Changeset 8465 for lang/perl/Test-Declare

Timestamp:

03/28/08 14:14:26 (5 years ago)

Author:

nekokak

Message:

add test case and etc. thanks to tokuhirom.

Location:

lang/perl/Test-Declare

Files:

• MANIFEST (modified) (1 diff)
• lib/Test/Declare.pm (modified) (2 diffs)
• t/00_compile.t (modified) (1 diff)
• t/01_base.t (added)
• t/02_test_more.t (added)
• t/03_test_exception.t (added)

lang/perl/Test-Declare/MANIFEST

@@ -23 +23 @@
 README
 t/00_compile.t
+t/01_base.t
+t/02_test_more.t
+t/03_test_exception.t
 t/pod.t

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

@@ -30 +30 @@
     init cleanup run test describe
     is_deeply_array
-    dies_ok
+    dies_ok throws_ok
     is is_deeply like
     isa_ok
@@ -84 +84 @@
             my ($actual, $expected, $name) = @_;
             my $test_more_code = "Test\::More"->can($sub);
-            &$test_more_code( $actual, $expected, $name||$test_block_name);
+            goto $test_more_code, $actual, $expected, $name||$test_block_name;
         }
     }

lang/perl/Test-Declare/t/00_compile.t

@@ -1 @@
-use strict;
-use Test::More tests => 1;
+use Test::Declare;
+plan tests => 1;
 
-BEGIN { use_ok 'Test::Declare' }
+pass 'Test::Declare compiles';