From 3607c8fa44102df16d6c55f3f6451acad544c098 Mon Sep 17 00:00:00 2001 From: Torsten Raudssus Date: Mon, 9 Jul 2012 05:41:06 -0400 Subject: [PATCH] More wrong line endings fixed --- t/10-meta.t | 44 +++++++++++++++--------------- t/20-location.t | 72 ++++++++++++++++++++++++------------------------- 2 files changed, 58 insertions(+), 58 deletions(-) diff --git a/t/10-meta.t b/t/10-meta.t index 1d907744..b5c8a9f4 100644 --- a/t/10-meta.t +++ b/t/10-meta.t @@ -1,22 +1,22 @@ -#!/usr/bin/env perl - -use strict; -use warnings; -use Test::More; -use utf8; - -use FindBin qw($Bin); -use lib "$Bin/lib"; - -use DDG::Test::Goodie; - -ddg_goodie_test( - [qw( - DDGTest::Goodie::Location - DDGTest::Goodie::Request - )], - "my location", test_zci("United States Pennsylvania Phoenixville", answer_type => 'location'), - " my request ", test_zci(" my request ", answer_type => 'request'), -); - -done_testing; +#!/usr/bin/env perl + +use strict; +use warnings; +use Test::More; +use utf8; + +use FindBin qw($Bin); +use lib "$Bin/lib"; + +use DDG::Test::Goodie; + +ddg_goodie_test( + [qw( + DDGTest::Goodie::Location + DDGTest::Goodie::Request + )], + "my location", test_zci("United States Pennsylvania Phoenixville", answer_type => 'location'), + " my request ", test_zci(" my request ", answer_type => 'request'), +); + +done_testing; diff --git a/t/20-location.t b/t/20-location.t index 03cae8fc..464974bc 100644 --- a/t/20-location.t +++ b/t/20-location.t @@ -1,36 +1,36 @@ -#!/usr/bin/env perl - -use strict; -use warnings; -use Test::More; -use utf8; - -use FindBin qw($Bin); -use lib "$Bin/lib"; - -use DDG::Test::Goodie; -use DDG::Test::Location; -use DDG::Request; - -zci answer_type => 'location'; - -my @location_tests = ( - de => 'Germany Nordrhein-Westfalen Mönchengladbach', - my => 'Malaysia Kuala Lumpur Kuala Lumpur', - in => 'India Delhi New Delhi', -); - -while (@location_tests) { - my $location_key = shift @location_tests; - my $expected_reply = shift @location_tests; - my $loc = test_location($location_key); - my $req = DDG::Request->new( query_raw => "my location", location => $loc ); - ddg_goodie_test( - [qw( - DDGTest::Goodie::Location - )], - $req, test_zci($expected_reply), - ); -} - -done_testing; +#!/usr/bin/env perl + +use strict; +use warnings; +use Test::More; +use utf8; + +use FindBin qw($Bin); +use lib "$Bin/lib"; + +use DDG::Test::Goodie; +use DDG::Test::Location; +use DDG::Request; + +zci answer_type => 'location'; + +my @location_tests = ( + de => 'Germany Nordrhein-Westfalen Mönchengladbach', + my => 'Malaysia Kuala Lumpur Kuala Lumpur', + in => 'India Delhi New Delhi', +); + +while (@location_tests) { + my $location_key = shift @location_tests; + my $expected_reply = shift @location_tests; + my $loc = test_location($location_key); + my $req = DDG::Request->new( query_raw => "my location", location => $loc ); + ddg_goodie_test( + [qw( + DDGTest::Goodie::Location + )], + $req, test_zci($expected_reply), + ); +} + +done_testing;