From 749b2945c77a0ecca584e60a0ea48bb97062c9f2 Mon Sep 17 00:00:00 2001
From: doy <doy@tozt.net>
Date: Tue, 7 Apr 2009 22:01:30 -0500
Subject: a few basic tests

---
 t/001-basic.t | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 t/001-basic.t

(limited to 't/001-basic.t')

diff --git a/t/001-basic.t b/t/001-basic.t
new file mode 100644
index 0000000..1a060af
--- /dev/null
+++ b/t/001-basic.t
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 1;
+
+package Foo;
+
+sub new {
+    my $class = shift;
+    bless { _class => $class }, $class;
+}
+
+package Foo::Moose;
+use Moose;
+use MooseX::NonMoose;
+extends_nonmoose 'Foo';
+
+package main;
+my $foo = Foo->new;
+my $foo_moose = Foo::Moose->new;
+isa_ok $foo, 'Foo';
+is $foo->{_class}, 'Foo', 'Foo gets the correct class';
+isa_ok $foo_moose, 'Foo::Moose';
+is $foo_moose->{_class}, 'Foo::Moose', 'Foo::Moose gets the correct class';
-- 
cgit v1.2.3-54-g00ecf