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

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 4;

use 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
171cd606	6	use Test::More tests => 4;
ee6bd664	7
171cd606	8	use Moose::Autobox ();
ee6bd664	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	}