TODO tests for UNIVERSAL methods

diff --git a/t/010_basics/018_universal_methods.t b/t/010_basics/018_universal_methods.t
new file mode 100644 (file)
index 0000000..023fa58
--- /dev/null
+++ b/t/010_basics/018_universal_methods.t
@@ -0,0 +1,24 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+{
+    package Foo;
+    use Moose;
+}
+
+
+plan tests => scalar ( my @universal_methods = qw/isa can VERSION/ );
+
+my $foo = Foo->new;
+
+TODO: {
+    local $TODO = 'UNIVERSAL methods should be available';
+
+    for my $method ( @universal_methods ) {
+       ok $foo->meta->find_method_by_name($method), "has UNIVERSAL method $method";
+    }
+};