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

#!/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");
}
Commit	Line	Data
ee6bd664	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 5;
	7
	8	use_ok("Moose::Autobox");
	9
	10	foreach my $stem (qw(SCALAR ARRAY HASH CODE)) {
	11	my $class = "Moose::Autobox::${stem}";
	12	ok(!$class->isa('Moose::Object'), "${class} !isa Moose::Object");
	13	}