fix autobox loading approach

[gitmo/Moose-Autobox.git] / t / 007_base.t

diff --git a/t/007_base.t b/t/007_base.t
new file mode 100644 (file)
index 0000000..2453723
--- /dev/null
+++ b/t/007_base.t
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+
+use_ok("Moose::Autobox");
+
+foreach my $stem (qw(SCALAR ARRAY HASH CODE)) {
+  my $class = "Moose::Autobox::${stem}";
+  ok(!$class->isa('Moose::Object'), "${class} !isa Moose::Object");
+}