| Subject: | [PATCH] t/aggregate/unit_core_script_test.t: fix STDIN/STDOUT thinko |
| Date: | Wed, 14 Apr 2010 20:04:03 +0400 |
| To: | bug-catalyst-runtime [...] rt.cpan.org |
| From: | Alexey Tourbin <at [...] altlinux.ru> |
--- t/aggregate/unit_core_script_test.t- 2010-04-14 15:47:19.000000000 +0000
+++ t/aggregate/unit_core_script_test.t 2010-04-14 16:00:10.471825617 +0000
@@ -33,8 +33,8 @@ sub run_test {
} "new_with_options";
ok $i;
my $saved;
- open( $saved, '<&'. STDIN->fileno )
- or croak("Can't dup stdin: $!");
+ open( $saved, '>&'. STDOUT->fileno )
+ or croak("Can't dup stdout: $!");
open( STDOUT, '>&='. $fh->fileno )
or croak("Can't open stdout: $!");
eval { $i->run };
Old behaviour:
$ perl -Mblib t/aggregate/unit_core_script_test.t- </dev/null
ok 1 - new_with_options
ok 2
ok 3 - Ran ok
Can't restore stdout: Invalid argument at t/aggregate/unit_core_script_test.t- line 46
main::run_test ARGS=('/') called at t/aggregate/unit_core_script_test.t- line 15
# Tests were run but no plan was declared and done_testing() was not seen.
$
New behaviour:
$ perl -Mblib t/aggregate/unit_core_script_test.t </dev/null
ok 1 - new_with_options
ok 2
ok 3 - Ran ok
ok 4 - correct content printed
ok 5 - new_with_options
ok 6
ok 7 - Ran ok
ok 8 - Correct content printed for non root action
1..8
$
Message body not shown because it is not plain text.