Changeset 8559 for lang/perl/Test-Declare

Timestamp:

03/31/08 16:59:13 (5 years ago)

Author:

nekokak

Message:

lang/perl/Test-Declare: add prints_ok and stderr_ok.

Location:

lang/perl/Test-Declare

Files:

• MANIFEST (modified) (1 diff)
• lib/Test/Declare.pm (modified) (2 diffs)
• t/04_prints_ok.t (added)
• t/05_stderr_ok.t (added)

lang/perl/Test-Declare/MANIFEST

@@ -26 +26 @@
 t/02_test_more.t
 t/03_test_exception.t
+t/04_prints_ok.t
+t/05_stderr_ok.t
 t/98_perlcritic.t
 t/pod.t

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

@@ -34 +34 @@
     cmp_deeply re
     blocks
+    prints_ok stderr_ok
 /);
 
@@ -107 +108 @@
 }
 
+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;
+}
+
 1;