From: Marc Mims <marc@questright.com>
Date: Tue, 26 May 2009 16:14:43 +0000 (-0700)
Subject: Added tests or UNIVERSAL methods
X-Git-Tag: 0.85~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0c71943f1cfb6ffb9b2b61c87fa0e0e7dd8a1b96;p=gitmo%2FClass-MOP.git

Added tests or UNIVERSAL methods
---

diff --git a/t/032_universal_methods.t b/t/032_universal_methods.t
new file mode 100644
index 0000000..c0b5ba8
--- /dev/null
+++ b/t/032_universal_methods.t
@@ -0,0 +1,24 @@
+#!perl
+
+use strict;
+use warnings;
+
+# UNIVERSAL methods
+
+use Test::More;
+use Class::MOP;
+
+my $meta_class = Class::MOP::Class->create_anon_class;
+
+my @universal_methods = qw/isa can VERSION/;
+push @universal_methods, 'DOES' if $] >= 5.010;
+
+plan tests => scalar @universal_methods;
+
+TODO: {
+    local $TODO = 'UNIVERSAL methods should be available';
+
+    for my $method ( @universal_methods ) {
+       ok $meta_class->find_method_by_name($method), "has UNIVERSAL method $method";
+    }
+};