From d5f72820c7556a1eca26f023c8ae19d0e99b3cbe Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Mon, 20 Apr 2009 21:00:51 -0500
Subject: test that extends always gets you Moose::Object as a base class

---
 t/001-basic.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/001-basic.t b/t/001-basic.t
index 483ac75..a448abf 100644
--- a/t/001-basic.t
+++ b/t/001-basic.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 9;
 
 package Foo;
 
@@ -22,6 +22,7 @@ isa_ok($foo, 'Foo');
 is($foo->{_class}, 'Foo', 'Foo gets the correct class');
 isa_ok($foo_moose, 'Foo::Moose');
 isa_ok($foo_moose, 'Foo');
+isa_ok($foo_moose, 'Moose::Object');
 is($foo_moose->{_class}, 'Foo::Moose', 'Foo::Moose gets the correct class');
 my $meta = Foo::Moose->meta;
 ok($meta->has_method('new'), 'Foo::Moose has its own constructor');
-- 
cgit v1.2.3-54-g00ecf