From: Marc Mims <marc@questright.com>
Date: Tue, 26 May 2009 01:51:26 +0000 (-0700)
Subject: TODO tests for UNIVERSAL methods
X-Git-Tag: 0.80~64
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6c13ef0dff03611643baae4a7344fd336df49449;p=gitmo%2FMoose.git

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
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";
+    }
+};