0.06

[gitmo/MooseX-AttributeHelpers.git] / t / 004_basic_number.t

diff --git a/t/004_basic_number.t b/t/004_basic_number.t
index 219e21e..0ca838e 100644 (file)
--- a/t/004_basic_number.t
+++ b/t/004_basic_number.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More tests => 18;
 
 BEGIN {
     use_ok('MooseX::AttributeHelpers');   
@@ -31,6 +31,11 @@ BEGIN {
 }
 
 my $real = Real->new;
+isa_ok($real, 'Real');
+
+can_ok($real, $_) for qw[
+    set add sub mul div mod abs
+];
 
 is $real->integer, 5, 'Default to five';