Bug #81241 for CGI-Snapp: test.t hangs on Windows

On Fri Nov 16 19:42:52 2012, RSAVAGE wrote: Show quoted text
Windows work correctly with '/', so tests still fail and hang. I wrote a patch for your test to be more informative. Here is new output of test.t: not ok 1 - run() in basic.pl returned real data # Failed test 'run() in basic.pl returned real data' # at t/test.t line 18. not ok 2 - basic.pl ran 0 tests # Failed test 'basic.pl ran 0 tests' # at t/test.t line 29. # got: '0' # expected: '4' not ok 3 - run() in callbacks.pl returned real data # Failed test 'run() in callbacks.pl returned real data' # at t/test.t line 18. not ok 4 - callbacks.pl ran 0 tests # Failed test 'callbacks.pl ran 0 tests' # at t/test.t line 29. # got: '0' # expected: '13' not ok 5 - run() in defaults.pl returned real data # Failed test 'run() in defaults.pl returned real data' # at t/test.t line 18. not ok 6 - defaults.pl ran 0 tests # Failed test 'defaults.pl ran 0 tests' # at t/test.t line 29. # got: '0' # expected: '6' not ok 7 - run() in headers.pl returned real data # Failed test 'run() in headers.pl returned real data' # at t/test.t line 18. not ok 8 - headers.pl ran 0 tests # Failed test 'headers.pl ran 0 tests' # at t/test.t line 29. # got: '0' # expected: '16' Terminating on signal SIGINT(2) -- Alexandr Ciornii, http://chorny.net

--- test.t.dist 2012-11-17 02:18:25.000000000 +0200 +++ test.t 2012-11-17 14:03:48.609375000 +0200 @@ -14,18 +14,19 @@ { my($script, $test_count, $output) = @_; - ok(length($output) > 0, "run() in $script returned real data"); + my $output_str = join('',@$output); + ok(length($output_str) > 0, "run() in $script returned real data"); - my($count); + my $count = 0; for my $line (@$output) { # This returns the final value from all matching lines. - $count = $1 if ($line =~ /^ok\s(\d+)/); + $count = $1+0 if ($line =~ /^ok\s(\d+)/); } - ok($count == $test_count, "$script ran $count test" . ($count == 1 ? '' : 's') ); + is($count, $test_count, "$script ran $count test" . ($count == 1 ? '' : 's') ); # Return the # of tests in /this/ script.

Hi, I tried attached Runscript.pm where I decided not to use fork module, as t/lib/CGI/Snapp/RunScript.pm. Under Strawberry Perl 5.8.9 on Windows 7, I used this command: prove -Ilib -It/lib t/test.t and it seemed to me that all tests passed.. Hope this help.

package CGI::Snapp::RunScript; use strict; use warnings; use Carp; our $VERSION = '1.08'; # -------------------------------------------------- sub new { my($class) = @_; return bless {}, $class; } # End of new. # ----------------------------------------------- sub run_script { my($self, $script) = @_; my(@stack); my $cmd = "$^X $script"; open PIPE, "-|", $cmd or croak "Testing script $script\n"; while (my $line = <PIPE>) { push @stack, $line; } close(PIPE) or croak "Failed pipe close\n"; return [@stack]; } # End of run_script; # -------------------------------------------------- 1;

Hi I tried: o prove -lv t/default.pl o prove -lvt with Strawberry Perl on Windows 7, and copied & pasted from command prompt to text files. Those are attached. Oh! debian, I have used it by Kurobox long time ago. Thank you, On 2016-9月-04 日 03:35:41, ron@savage.net.au wrote: Show quoted text

C:\home\flower\CGI-Snapp-master>perl Makefile.PL Useless use of a constant in void context at Makefile.PL line 8. Useless use of a constant in void context at Makefile.PL line 8. WARNING: TEST_REQUIRES is not a known parameter. Warning: prerequisite IO::Pipe 1.15 not found. We have 1.13. 'TEST_REQUIRES' is not a known MakeMaker parameter name. Writing Makefile for CGI::Snapp C:\home\flower\CGI-Snapp-master>dmake cp lib/CGI/Snapp.pm blib\lib\CGI\Snapp.pm C:\home\flower\CGI-Snapp-master>prove -lv t\defaults.pl t\defaults.pl .. call_hook(init, ...) cgiapp_init() setup() error_mode() ok 1 - Get default error mode get_current_runmode() ok 2 - Get default run mode header_type() ok 3 - Get default header type ok 4 - Get default mode source ok 5 - Get default send_output start_mode(start) ok 6 - Get default start mode 1..6 ok All tests successful. Files=1, Tests=6, 0 wallclock secs ( 0.03 usr + 0.09 sys = 0.12 CPU) Result: PASS C:\home\flower\CGI-Snapp-master>prove -lvt t\forward.t ... Can't locate Carp.pm in @INC (@INC contains: t/lib C:\home\flowe r\CGI-Snapp-master\lib C:/STRAWB~4/perl/lib C:/STRAWB~4/perl/site/lib C:\strawbe rry\perl\vendor\lib) at C:/STRAWB~4/perl/lib/warnings.pm line 134. BEGIN failed--compilation aborted at C:/STRAWB~4/perl/lib/warnings.pm line 134. Compilation failed in require at t\forward.t line 5. BEGIN failed--compilation aborted at t\forward.t line 5. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t\redirect.t .. Can't locate Carp.pm in @INC (@INC contains: t/lib C:\home\flowe r\CGI-Snapp-master\lib C:/STRAWB~4/perl/lib C:/STRAWB~4/perl/site/lib C:\strawbe rry\perl\vendor\lib) at C:/STRAWB~4/perl/lib/warnings.pm line 134. BEGIN failed--compilation aborted at C:/STRAWB~4/perl/lib/warnings.pm line 134. Compilation failed in require at t\redirect.t line 5. BEGIN failed--compilation aborted at t\redirect.t line 5. Dubious, test returned 2 (wstat 512, 0x200) No subtests run t\test.t ...... Can't locate Carp.pm in @INC (@INC contains: t/lib C:\home\flowe r\CGI-Snapp-master\lib C:/STRAWB~4/perl/lib C:/STRAWB~4/perl/site/lib C:\strawbe rry\perl\vendor\lib) at C:/STRAWB~4/perl/lib/warnings.pm line 134. BEGIN failed--compilation aborted at C:/STRAWB~4/perl/lib/warnings.pm line 134. Compilation failed in require at t\test.t line 5. BEGIN failed--compilation aborted at t\test.t line 5. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Test Summary Report ------------------- t\forward.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t\redirect.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output t\test.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output Files=3, Tests=0, 1 wallclock secs ( 0.05 usr + 0.08 sys = 0.12 CPU) Result: FAIL C:\home\flower\CGI-Snapp-master>perl -v This is perl, v5.8.9 built for MSWin32-x86-multi-thread Copyright 1987-2008, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. C:\home\flower\CGI-Snapp-master>

Hi! It seems to me that the prove command does not recognize the environment value "PERL5LIB". So, I tired with Strawberry Perl 5.8.9 on Windows 7: o prove -lvt -I%PERL5LIB% and Test passed!!!!!!!!!!!!!! All tests successful!!!!!!!!!!!!!! Thank you, On 2016-9月-05 月 18:50:47, ron@savage.net.au wrote: Show quoted text

C:\home\flower\CGI-Snapp-master>echo %PERL5LIB% C:\home\flower\perl5\lib\perl5 C:\home\flower\CGI-Snapp-master>prove -lvt -I%PERL5LIB% t\forward.t ... call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x23257a8)) run_modes(...) start_mode(first_r_m) run() _determine_output() _query() _query() _determine_run_mode() => first_r_m call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name get_current_runmode() ok 2 - Get run mode 'first_r_m' call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x232d0ec)) run_modes(...) start_mode(second_rm) run() _determine_output() _query() _query() _determine_run_mode() => second_rm call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.second_sub() forward(third_rm, ...) call_hook(forward_prerun, ...) CGI::Snapp::ForwardTest.fourth_sub() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.third_sub() call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - Run mode third_sub returned its name get_current_runmode() ok 4 - Got run mode 'third_rm' after forward() 1..4 ok t\redirect.t .. call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x22f9270)) run_modes(...) start_mode(first_rm) run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x22fcc24)) run_modes(...) start_mode(first_rm) param(...) ok 2 - PARAMS => {test.prerun.mode => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) redirect(http://first.net.au/, ...) run_modes(...) prerun_mode(dummy_redirect) header_add(...) header_type(redirect) _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - redirect(http://first.net.au/) during cgiapp_prerun() worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x2311794)) run_modes(...) start_mode(first_rm) param(...) ok 4 - PARAMS => {test.without.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) redirect(http://second.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 5 - Check url: redirect(http://second.net.au/) without a status worked ok 6 - Check default status: redirect('http://second.net.au/') without a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x22f94b0)) run_modes(...) start_mode(first_rm) param(...) ok 7 - PARAMS => {test.with.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) redirect(http://third.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 8 - Check url: redirect(http://third.net.au/) with a status worked ok 9 - Check explicit status: redirect('http://third.net.au/', '301 Moved Perman ently') with a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x238ad70)) run_modes(...) start_mode(first_rm) param(...) ok 10 - PARAMS => {test.local.url => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) redirect(login.html, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 11 - Check url: redirect(login.html) without a status worked ok 12 - Check default status: redirect(login.html) without a status worked 1..12 ok t\test.t ...... ok 1 - run() in basic.pl returned real data ok 2 - basic.pl ran 4 tests ok 3 - run() in callbacks.pl returned real data ok 4 - callbacks.pl ran 13 tests ok 5 - run() in defaults.pl returned real data ok 6 - defaults.pl ran 6 tests ok 7 - run() in headers.pl returned real data ok 8 - headers.pl ran 17 tests ok 9 - run() in hook.tests.pl returned real data ok 10 - hook.tests.pl ran 16 tests ok 11 - run() in isa.pl returned real data ok 12 - isa.pl ran 1 test ok 13 - run() in overrides.pl returned real data ok 14 - overrides.pl ran 2 tests # Start test 1 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 2 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 3 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 4 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 5 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 6 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 7 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 8 # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # Start test 9 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 10 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 11 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 12 # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- ok 15 - run() in params.pl returned real data ok 16 - params.pl ran 12 tests ok 17 - run() in psgi.basic.pl returned real data ok 18 - psgi.basic.pl ran 4 tests ok 19 - run() in run.modes.pl returned real data ok 20 - run.modes.pl ran 11 tests ok 21 - run() in subclass.pl returned real data ok 22 - subclass.pl ran 3 tests 1..22 ok All tests successful. Files=3, Tests=38, 10 wallclock secs ( 0.14 usr + 0.06 sys = 0.20 CPU) Result: PASS C:\home\flower\CGI-Snapp-master>perl -v This is perl, v5.8.9 built for MSWin32-x86-multi-thread Copyright 1987-2008, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. C:\home\flower\CGI-Snapp-master>

Hi I found that the following command works fine. o prove -v --lib t and my workaround for such a message: Error in tempfile() using template \XXXXXXXXXX: Could not create temp file... is mkdir c:\temp and cpan install dependency module. Thank, you, On 2016-9月-06 火 18:44:34, ron@savage.net.au wrote: Show quoted text

############################### TESTER COMMENTS ############################### If you try to install CGI::PSGI with Strawberry Perl 5.14.4 on Windows 7, you may come accross message like: Error in tempfile() using template \XXXXXXXXXX: Could not create temp file... and CGI::PSGI's test may fail at t/upload.t. SEE ALSO: Bug #60340 for File-Temp: Fails under -T, Windows 7, Strawberry Perl 5.12.1 https://rt.cpan.org/Public/Bug/Display.html?id=103452 [My Workaround] C:\home\heaven>mkdir c:\temp C:\home\heaven>cpan CGI::PSGI (snip) ################################################################################ C:\home\heaven>cd CGI-Snapp-master C:\home\heaven\CGI-Snapp-master>echo %PERL5LIB% C:\home\heaven\perl5\lib\perl5 C:\home\heaven\CGI-Snapp-master>prove -v --lib t t\forward.t ... call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x214f80c)) run_modes(...) start_mode(first_r_m) run() _determine_output() _query() _query() _determine_run_mode() => first_r_m call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name get_current_runmode() ok 2 - Get run mode 'first_r_m' call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x2152d54)) run_modes(...) start_mode(second_rm) run() _determine_output() _query() _query() _determine_run_mode() => second_rm call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.second_sub() forward(third_rm, ...) call_hook(forward_prerun, ...) CGI::Snapp::ForwardTest.fourth_sub() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.third_sub() call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - Run mode third_sub returned its name get_current_runmode() ok 4 - Got run mode 'third_rm' after forward() 1..4 ok t\redirect.t .. call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x213f334)) run_modes(...) start_mode(first_rm) run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x21417e4)) run_modes(...) start_mode(first_rm) param(...) ok 2 - PARAMS => {test.prerun.mode => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) redirect(http://first.net.au/, ...) run_modes(...) prerun_mode(dummy_redirect) header_add(...) header_type(redirect) _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - redirect(http://first.net.au/) during cgiapp_prerun() worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x21f5804)) run_modes(...) start_mode(first_rm) param(...) ok 4 - PARAMS => {test.without.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) redirect(http://second.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 5 - Check url: redirect(http://second.net.au/) without a status worked ok 6 - Check default status: redirect('http://second.net.au/') without a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x21f3c14)) run_modes(...) start_mode(first_rm) param(...) ok 7 - PARAMS => {test.with.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) redirect(http://third.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 8 - Check url: redirect(http://third.net.au/) with a status worked ok 9 - Check explicit status: redirect('http://third.net.au/', '301 Moved Permanently') with a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x21f3b74)) run_modes(...) start_mode(first_rm) param(...) ok 10 - PARAMS => {test.local.url => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) redirect(login.html, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 11 - Check url: redirect(login.html) without a status worked ok 12 - Check default status: redirect(login.html) without a status worked 1..12 ok t\test.t ...... ok 1 - run() in basic.pl returned real data ok 2 - basic.pl ran 4 tests ok 3 - run() in callbacks.pl returned real data ok 4 - callbacks.pl ran 13 tests ok 5 - run() in defaults.pl returned real data ok 6 - defaults.pl ran 6 tests ok 7 - run() in headers.pl returned real data ok 8 - headers.pl ran 17 tests ok 9 - run() in hook.tests.pl returned real data ok 10 - hook.tests.pl ran 16 tests ok 11 - run() in isa.pl returned real data ok 12 - isa.pl ran 1 test ok 13 - run() in overrides.pl returned real data ok 14 - overrides.pl ran 2 tests # Start test 1 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 2 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 3 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 4 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 5 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 6 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 7 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 8 # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # Start test 9 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 10 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 11 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 12 # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- ok 15 - run() in params.pl returned real data ok 16 - params.pl ran 12 tests ok 17 - run() in psgi.basic.pl returned real data ok 18 - psgi.basic.pl ran 4 tests ok 19 - run() in run.modes.pl returned real data ok 20 - run.modes.pl ran 11 tests ok 21 - run() in subclass.pl returned real data ok 22 - subclass.pl ran 3 tests 1..22 ok All tests successful. Files=3, Tests=38, 13 wallclock secs ( 0.11 usr + 0.03 sys = 0.14 CPU) Result: PASS C:\home\heaven\CGI-Snapp-master>perl -v This is perl 5, version 14, subversion 4 (v5.14.4) built for MSWin32-x86-multi-thread Copyright 1987-2013, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. C:\home\heaven\CGI-Snapp-master>

C:\home\journey\CGI-Snapp-master>prove -v --lib t t\forward.t ... call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x20293cc)) run_modes(...) start_mode(first_r_m) run() _determine_output() _query() _query() _determine_run_mode() => first_r_m call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name get_current_runmode() ok 2 - Get run mode 'first_r_m' call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x2030fa4)) run_modes(...) start_mode(second_rm) run() _determine_output() _query() _query() _determine_run_mode() => second_rm call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.second_sub() forward(third_rm, ...) call_hook(forward_prerun, ...) CGI::Snapp::ForwardTest.fourth_sub() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.third_sub() call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - Run mode third_sub returned its name get_current_runmode() ok 4 - Got run mode 'third_rm' after forward() 1..4 ok t\redirect.t .. call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x20ef97c)) run_modes(...) start_mode(first_rm) run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x20f7914)) run_modes(...) start_mode(first_rm) param(...) ok 2 - PARAMS => {test.prerun.mode => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) redirect(http://first.net.au/, ...) run_modes(...) prerun_mode(dummy_redirect) header_add(...) header_type(redirect) _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - redirect(http://first.net.au/) during cgiapp_prerun() worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x20f9294)) run_modes(...) start_mode(first_rm) param(...) ok 4 - PARAMS => {test.without.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) redirect(http://second.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 5 - Check url: redirect(http://second.net.au/) without a status worked ok 6 - Check default status: redirect('http://second.net.au/') without a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x20f8db4)) run_modes(...) start_mode(first_rm) param(...) ok 7 - PARAMS => {test.with.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) redirect(http://third.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 8 - Check url: redirect(http://third.net.au/) with a status worked ok 9 - Check explicit status: redirect('http://third.net.au/', '301 Moved Permanently') with a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x20f8f4c)) run_modes(...) start_mode(first_rm) param(...) ok 10 - PARAMS => {test.local.url => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) redirect(login.html, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 11 - Check url: redirect(login.html) without a status worked ok 12 - Check default status: redirect(login.html) without a status worked 1..12 ok t\test.t ...... ok 1 - run() in basic.pl returned real data ok 2 - basic.pl ran 4 tests ok 3 - run() in callbacks.pl returned real data ok 4 - callbacks.pl ran 13 tests ok 5 - run() in defaults.pl returned real data ok 6 - defaults.pl ran 6 tests ok 7 - run() in headers.pl returned real data ok 8 - headers.pl ran 17 tests ok 9 - run() in hook.tests.pl returned real data ok 10 - hook.tests.pl ran 16 tests ok 11 - run() in isa.pl returned real data ok 12 - isa.pl ran 1 test ok 13 - run() in overrides.pl returned real data ok 14 - overrides.pl ran 2 tests # Start test 1 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 2 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 3 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 4 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 5 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 6 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 7 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 8 # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # Start test 9 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 10 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 11 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 12 # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- ok 15 - run() in params.pl returned real data ok 16 - params.pl ran 12 tests ok 17 - run() in psgi.basic.pl returned real data ok 18 - psgi.basic.pl ran 4 tests ok 19 - run() in run.modes.pl returned real data ok 20 - run.modes.pl ran 11 tests ok 21 - run() in subclass.pl returned real data ok 22 - subclass.pl ran 3 tests 1..22 ok All tests successful. Files=3, Tests=38, 12 wallclock secs ( 0.16 usr + 0.08 sys = 0.23 CPU) Result: PASS C:\home\journey\CGI-Snapp-master>perl -v This is perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x86-multi-thread-64int Copyright 1987-2013, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. C:\home\journey\CGI-Snapp-master>

C:\home\flower\CGI-Snapp-master>prove -v --lib t t\forward.t ... call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x2218010)) run_modes(...) start_mode(first_r_m) run() _determine_output() _query() _query() _determine_run_mode() => first_r_m call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name get_current_runmode() ok 2 - Get run mode 'first_r_m' call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x2282474)) run_modes(...) start_mode(second_rm) run() _determine_output() _query() _query() _determine_run_mode() => second_rm call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.second_sub() forward(third_rm, ...) call_hook(forward_prerun, ...) CGI::Snapp::ForwardTest.fourth_sub() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.third_sub() call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - Run mode third_sub returned its name get_current_runmode() ok 4 - Got run mode 'third_rm' after forward() 1..4 ok t\redirect.t .. call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x2219adc)) run_modes(...) start_mode(first_rm) run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x22f7384)) run_modes(...) start_mode(first_rm) param(...) ok 2 - PARAMS => {test.prerun.mode => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) redirect(http://first.net.au/, ...) run_modes(...) prerun_mode(dummy_redirect) header_add(...) header_type(redirect) _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - redirect(http://first.net.au/) during cgiapp_prerun() worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x22fc688)) run_modes(...) start_mode(first_rm) param(...) ok 4 - PARAMS => {test.without.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) redirect(http://second.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 5 - Check url: redirect(http://second.net.au/) without a status worked ok 6 - Check default status: redirect('http://second.net.au/') without a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x22fbdd0)) run_modes(...) start_mode(first_rm) param(...) ok 7 - PARAMS => {test.with.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) redirect(http://third.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 8 - Check url: redirect(http://third.net.au/) with a status worked ok 9 - Check explicit status: redirect('http://third.net.au/', '301 Moved Perman ently') with a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x22fbd58)) run_modes(...) start_mode(first_rm) param(...) ok 10 - PARAMS => {test.local.url => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) redirect(login.html, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 11 - Check url: redirect(login.html) without a status worked ok 12 - Check default status: redirect(login.html) without a status worked 1..12 ok t\test.t ...... ok 1 - run() in basic.pl returned real data ok 2 - basic.pl ran 4 tests ok 3 - run() in callbacks.pl returned real data ok 4 - callbacks.pl ran 13 tests ok 5 - run() in defaults.pl returned real data ok 6 - defaults.pl ran 6 tests ok 7 - run() in headers.pl returned real data ok 8 - headers.pl ran 17 tests ok 9 - run() in hook.tests.pl returned real data ok 10 - hook.tests.pl ran 16 tests ok 11 - run() in isa.pl returned real data ok 12 - isa.pl ran 1 test ok 13 - run() in overrides.pl returned real data ok 14 - overrides.pl ran 2 tests # Start test 1 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 2 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 3 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 4 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 5 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 6 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 7 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 8 # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # Start test 9 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 10 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 11 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 12 # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- ok 15 - run() in params.pl returned real data ok 16 - params.pl ran 12 tests ok 17 - run() in psgi.basic.pl returned real data ok 18 - psgi.basic.pl ran 4 tests ok 19 - run() in run.modes.pl returned real data ok 20 - run.modes.pl ran 11 tests ok 21 - run() in subclass.pl returned real data ok 22 - subclass.pl ran 3 tests 1..22 ok All tests successful. Files=3, Tests=38, 9 wallclock secs ( 0.11 usr + 0.08 sys = 0.19 CPU) Result: PASS C:\home\flower\CGI-Snapp-master>perl -v This is perl, v5.8.9 built for MSWin32-x86-multi-thread Copyright 1987-2008, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. C:\home\flower\CGI-Snapp-master>

C:\home\tennis\CGI-Snapp-master>prove -v --lib t t\forward.t ... call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x204a17c)) run_modes(...) start_mode(first_r_m) run() _determine_output() _query() _query() _determine_run_mode() => first_r_m call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name get_current_runmode() ok 2 - Get run mode 'first_r_m' call_hook(init, ...) cgiapp_init() CGI::Snapp::ForwardTest.setup() add_callback(forward_prerun, ...) mode_param(...) _query(CGI=HASH(0x204c6cc)) run_modes(...) start_mode(second_rm) run() _determine_output() _query() _query() _determine_run_mode() => second_rm call_hook(prerun, ...) cgiapp_prerun() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.second_sub() forward(third_rm, ...) call_hook(forward_prerun, ...) CGI::Snapp::ForwardTest.fourth_sub() _generate_output() run_modes(...) CGI::Snapp::ForwardTest.third_sub() call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - Run mode third_sub returned its name get_current_runmode() ok 4 - Got run mode 'third_rm' after forward() 1..4 ok t\redirect.t .. call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x1d4e96c)) run_modes(...) start_mode(first_rm) run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 1 - Run mode first_sub returned its name call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x1d51e7c)) run_modes(...) start_mode(first_rm) param(...) ok 2 - PARAMS => {test.prerun.mode => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) redirect(http://first.net.au/, ...) run_modes(...) prerun_mode(dummy_redirect) header_add(...) header_type(redirect) _generate_output() run_modes(...) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 3 - redirect(http://first.net.au/) during cgiapp_prerun() worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x228537c)) run_modes(...) start_mode(first_rm) param(...) ok 4 - PARAMS => {test.without.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) redirect(http://second.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 5 - Check url: redirect(http://second.net.au/) without a status worked ok 6 - Check default status: redirect('http://second.net.au/') without a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x217dc6c)) run_modes(...) start_mode(first_rm) param(...) ok 7 - PARAMS => {test.with.status => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) param(...) param(...) redirect(http://third.net.au/, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 8 - Check url: redirect(http://third.net.au/) with a status worked ok 9 - Check explicit status: redirect('http://third.net.au/', '301 Moved Perman ently') with a status worked call_hook(init, ...) cgiapp_init() CGI::Snapp::RedirectTest.setup() add_callback(prerun, ...) mode_param(...) _query(CGI=HASH(0x217dbcc)) run_modes(...) start_mode(first_rm) param(...) ok 10 - PARAMS => {test.local.url => 1} worked run() _determine_output() _query() _query() _determine_run_mode() => first_rm call_hook(prerun, ...) CGI::Snapp::RedirectTest.cgiapp_prerun() param(...) _generate_output() run_modes(...) CGI::Snapp::RedirectTest.first_sub() param(...) redirect(login.html, ...) header_add(...) header_type(redirect) call_hook(postrun, ...) cgiapp_postrun() _determine_cgi_header() _query() header_type() header_props(...) call_hook(teardown, ...) teardown() ok 11 - Check url: redirect(login.html) without a status worked ok 12 - Check default status: redirect(login.html) without a status worked 1..12 ok t\test.t ...... ok 1 - run() in basic.pl returned real data ok 2 - basic.pl ran 4 tests ok 3 - run() in callbacks.pl returned real data ok 4 - callbacks.pl ran 13 tests ok 5 - run() in defaults.pl returned real data ok 6 - defaults.pl ran 6 tests ok 7 - run() in headers.pl returned real data ok 8 - headers.pl ran 17 tests ok 9 - run() in hook.tests.pl returned real data ok 10 - hook.tests.pl ran 16 tests ok 11 - run() in isa.pl returned real data ok 12 - isa.pl ran 1 test ok 13 - run() in overrides.pl returned real data ok 14 - overrides.pl ran 2 tests # Start test 1 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 2 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 3 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 4 # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # [ # 1, # 2, # "one", # "two" # ] # -------------------- # Start test 5 # -------------------- # [] # -------------------- # [] # -------------------- # Start test 6 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 7 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 8 # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # [ # 1, # 2, # 3, # 4, # 5, # "five", # "four", # "one", # "three", # "two" # ] # -------------------- # Start test 9 # -------------------- # 5 # -------------------- # 5 # -------------------- # Start test 10 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 11 # -------------------- # undef # -------------------- # undef # -------------------- # Start test 12 # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- # [ # 6, # 7, # "seven", # "six" # ] # -------------------- ok 15 - run() in params.pl returned real data ok 16 - params.pl ran 12 tests ok 17 - run() in psgi.basic.pl returned real data ok 18 - psgi.basic.pl ran 4 tests ok 19 - run() in run.modes.pl returned real data ok 20 - run.modes.pl ran 11 tests ok 21 - run() in subclass.pl returned real data ok 22 - subclass.pl ran 3 tests 1..22 ok All tests successful. Files=3, Tests=38, 10 wallclock secs ( 0.12 usr + 0.03 sys = 0.15 CPU) Result: PASS C:\home\tennis\CGI-Snapp-master>perl -v This is perl, v5.10.1 (*) built for MSWin32-x86-multi-thread Copyright 1987-2009, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. C:\home\tennis\CGI-Snapp-master>