[Bast-commits] r3549 - trunk/Devel-Declare/t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-06-29 03:32:08 +0100 (Fri, 29 Jun 2007)
New Revision: 3549

Modified:
   trunk/Devel-Declare/t/simple.t
Log:
test now uses Test::More

Modified: trunk/Devel-Declare/t/simple.t
===================================================================
--- trunk/Devel-Declare/t/simple.t	2007-06-29 02:16:13 UTC (rev 3548)
+++ trunk/Devel-Declare/t/simple.t	2007-06-29 02:32:08 UTC (rev 3549)
@@ -1,8 +1,7 @@
 use strict;
 use warnings;
+use Test::More 'no_plan';
 
-print "1..1\n";
-
 sub method {
   my ($pack, $name, $sub) = @_;
   no strict 'refs';
@@ -13,11 +12,7 @@
 
 method bar {
   my $str = join(', ', @_);
-  if ($str eq 'main, baz, quux') {
-    print "ok 1\n";
-  } else {
-    print "not ok 1\n";
-  }
+  is($str, 'main, baz, quux', 'Method args ok');
 };
 
 __PACKAGE__->bar(qw(baz quux));