=== added file 'tests/Test-adjust-extension-css.px' --- tests/Test-adjust-extension-css.px 1970-01-01 00:00:00 +0000 +++ tests/Test-adjust-extension-css.px 2012-03-20 22:42:46 +0000 @@ -0,0 +1,47 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use HTTPTest; + + +############################################################################### + +my $dummyfile = < { + code => "200", + msg => "Dontcare", + headers => { + "Content-type" => "text/css", + }, + content => $dummyfile + }, +); + +my $cmdline = $WgetTest::WGETPATH . " --adjust-extension http://localhost:{{port}}/dummy.css"; + +my $expected_error_code = 0; + +my %expected_downloaded_files = ( + 'dummy.css' => { + content => $dummyfile, + } +); + +############################################################################### + +my $the_test = HTTPTest->new (name => "Test-O-HTTP-Content-Disposition", + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, + output => \%expected_downloaded_files); +exit $the_test->run(); + +# vim: et ts=4 sw=4 + === added file 'tests/Test-adjust-extension-htm.px' --- tests/Test-adjust-extension-htm.px 1970-01-01 00:00:00 +0000 +++ tests/Test-adjust-extension-htm.px 2012-03-20 22:37:53 +0000 @@ -0,0 +1,47 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use HTTPTest; + + +############################################################################### + +my $dummyfile = < { + code => "200", + msg => "Dontcare", + headers => { + "Content-type" => "text/html", + }, + content => $dummyfile + }, +); + +my $cmdline = $WgetTest::WGETPATH . " --adjust-extension http://localhost:{{port}}/dummy.htm"; + +my $expected_error_code = 0; + +my %expected_downloaded_files = ( + 'dummy.htm' => { + content => $dummyfile, + } +); + +############################################################################### + +my $the_test = HTTPTest->new (name => "Test-O-HTTP-Content-Disposition", + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, + output => \%expected_downloaded_files); +exit $the_test->run(); + +# vim: et ts=4 sw=4 + === added file 'tests/Test-adjust-extension-html.px' --- tests/Test-adjust-extension-html.px 1970-01-01 00:00:00 +0000 +++ tests/Test-adjust-extension-html.px 2012-03-20 22:38:30 +0000 @@ -0,0 +1,47 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use HTTPTest; + + +############################################################################### + +my $dummyfile = < { + code => "200", + msg => "Dontcare", + headers => { + "Content-type" => "text/html", + }, + content => $dummyfile + }, +); + +my $cmdline = $WgetTest::WGETPATH . " --adjust-extension http://localhost:{{port}}/dummy.html"; + +my $expected_error_code = 0; + +my %expected_downloaded_files = ( + 'dummy.html' => { + content => $dummyfile, + } +); + +############################################################################### + +my $the_test = HTTPTest->new (name => "Test-O-HTTP-Content-Disposition", + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, + output => \%expected_downloaded_files); +exit $the_test->run(); + +# vim: et ts=4 sw=4 + === added file 'tests/Test-adjust-extension-jpg-css.px' --- tests/Test-adjust-extension-jpg-css.px 1970-01-01 00:00:00 +0000 +++ tests/Test-adjust-extension-jpg-css.px 2012-03-20 22:41:29 +0000 @@ -0,0 +1,47 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use HTTPTest; + + +############################################################################### + +my $dummyfile = < { + code => "200", + msg => "Dontcare", + headers => { + "Content-type" => "text/css", + }, + content => $dummyfile + }, +); + +my $cmdline = $WgetTest::WGETPATH . " --adjust-extension http://localhost:{{port}}/dummy.jpg"; + +my $expected_error_code = 0; + +my %expected_downloaded_files = ( + 'dummy.jpg.css' => { + content => $dummyfile, + } +); + +############################################################################### + +my $the_test = HTTPTest->new (name => "Test-O-HTTP-Content-Disposition", + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, + output => \%expected_downloaded_files); +exit $the_test->run(); + +# vim: et ts=4 sw=4 + === added file 'tests/Test-adjust-extension-jpg-html.px' --- tests/Test-adjust-extension-jpg-html.px 1970-01-01 00:00:00 +0000 +++ tests/Test-adjust-extension-jpg-html.px 2012-03-20 22:39:55 +0000 @@ -0,0 +1,47 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use HTTPTest; + + +############################################################################### + +my $dummyfile = < { + code => "200", + msg => "Dontcare", + headers => { + "Content-type" => "text/html", + }, + content => $dummyfile + }, +); + +my $cmdline = $WgetTest::WGETPATH . " --adjust-extension http://localhost:{{port}}/dummy.jpg"; + +my $expected_error_code = 0; + +my %expected_downloaded_files = ( + 'dummy.jpg.html' => { + content => $dummyfile, + } +); + +############################################################################### + +my $the_test = HTTPTest->new (name => "Test-O-HTTP-Content-Disposition", + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, + output => \%expected_downloaded_files); +exit $the_test->run(); + +# vim: et ts=4 sw=4 + === added file 'tests/Test-adjust-extension-multiple-files.px' --- tests/Test-adjust-extension-multiple-files.px 1970-01-01 00:00:00 +0000 +++ tests/Test-adjust-extension-multiple-files.px 2012-03-20 23:05:52 +0000 @@ -0,0 +1,59 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use HTTPTest; + + +############################################################################### + +my $dummyfile = < { + code => "200", + msg => "Dontcare", + headers => { + "Content-type" => "text/css", + }, + content => $dummyfile + }, +); + +my $cmdline = $WgetTest::WGETPATH . " --adjust-extension http://localhost:{{port}}/dummy.css http://localhost:{{port}}/dummy.css http://localhost:{{port}}/dummy.css http://localhost:{{port}}/dummy.css http://localhost:{{port}}/dummy.css"; + +my $expected_error_code = 0; + +my %expected_downloaded_files = ( + 'dummy.css' => { + content => $dummyfile, + }, + 'dummy.css.1.css' => { + content => $dummyfile, + }, + 'dummy.css.1.1.css' => { + content => $dummyfile, + }, + 'dummy.css.1.2.css' => { + content => $dummyfile, + }, + 'dummy.css.1.3.css' => { + content => $dummyfile, + }, +); + +############################################################################### + +my $the_test = HTTPTest->new (name => "Test-O-HTTP-Content-Disposition", + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, + output => \%expected_downloaded_files); +exit $the_test->run(); + +# vim: et ts=4 sw=4 + === added file 'tests/Test-adjust-extension-no-ext.px' --- tests/Test-adjust-extension-no-ext.px 1970-01-01 00:00:00 +0000 +++ tests/Test-adjust-extension-no-ext.px 2012-03-20 22:40:31 +0000 @@ -0,0 +1,47 @@ +#!/usr/bin/env perl + +use strict; +use warnings; + +use HTTPTest; + + +############################################################################### + +my $dummyfile = < { + code => "200", + msg => "Dontcare", + headers => { + "Content-type" => "text/html", + }, + content => $dummyfile + }, +); + +my $cmdline = $WgetTest::WGETPATH . " --adjust-extension http://localhost:{{port}}/dummy"; + +my $expected_error_code = 0; + +my %expected_downloaded_files = ( + 'dummy.html' => { + content => $dummyfile, + } +); + +############################################################################### + +my $the_test = HTTPTest->new (name => "Test-O-HTTP-Content-Disposition", + input => \%urls, + cmdline => $cmdline, + errcode => $expected_error_code, + output => \%expected_downloaded_files); +exit $the_test->run(); + +# vim: et ts=4 sw=4 + === modified file 'tests/run-px' --- tests/run-px 2011-07-26 07:27:08 +0000 +++ tests/run-px 2012-03-20 22:54:50 +0000 @@ -79,6 +79,13 @@ 'Test--spider-r--no-content-disposition.px', 'Test--spider-r--no-content-disposition-trivial.px', 'Test--spider-r.px', + 'Test-adjust-extension-htm.px', + 'Test-adjust-extension-html.px', + 'Test-adjust-extension-css.px', + 'Test-adjust-extension-jpg-html.px', + 'Test-adjust-extension-jpg-css.px', + 'Test-adjust-extension-no-ext.px', + 'Test-adjust-extension-multiple-files.px', ); foreach my $var (qw(SYSTEM_WGETRC WGETRC)) {