Changeset 10132

Timestamp:

04/22/08 15:47:11 (5 years ago)

Author:

nekokak

Message:

自前でtieするのやめてTest::Output使うようにした

Location:

lang/perl/Test-Declare/trunk

Files:

• lib/Test/Declare.pm (modified) (3 diffs)
• t/04_prints_ok.t (deleted)
• t/05_stderr_ok.t (deleted)

lang/perl/Test-Declare/trunk/lib/Test/Declare.pm

@@ -27 +27 @@
 use Test::Exception;
 use Test::Warn;
+use Test::Output;
 use Test::Deep;
 
@@ -35 +36 @@
     prints_ok stderr_ok
     warning_like warnings_like warning_is warnings_are
+    stdout_is stdout_isnt stdout_like stdout_unlike
+    stderr_is stderr_isnt stderr_like stderr_unlike
+    combined_is combined_isnt combined_like combined_unlike
+    output_is output_isnt output_like output_unlike
 );
 
@@ -106 +111 @@
     my $test_more_code = "Test\::More"->can('ok');
     goto $test_more_code, $test, $name||$test_block_name;
-}
-
-## original method
-use IO::Scalar;
-sub prints_ok (&$;$) { ## no critic
-    my ($code, $expected, $name) = @_;
-
-    tie *STDOUT, 'IO::Scalar', \my $stdout;
-        $code->();
-        like($stdout, qr/$expected/, $name||$test_block_name);
-    untie *STDOUT;
-}
-sub stderr_ok (&$;$) { ## no critic
-    my ($code, $expected, $name) = @_;
-
-    tie *STDERR, 'IO::Scalar', \my $stderr;
-        $code->();
-        like($stderr, qr/$expected/, $name||$test_block_name);
-    untie *STDERR;
 }