some new Array methods and some pod-coverage cleanup

[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..519b9f6 100644 (file)
--- a/t/004_basic_number.t
+++ b/t/004_basic_number.t
@@ -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';