[gitmo/Moose.git] / t / 500_test_moose / 004_test_moose_meta_ok.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::Builder::Tester;
use Test::More;

BEGIN {
  use_ok('Test::Moose');
}

{
    package Foo;
    use Moose;
}

{
    package Bar;
}

test_out('ok 1 - ... meta_ok(Foo) passes');

meta_ok('Foo', '... meta_ok(Foo) passes');

test_out ('not ok 2 - ... meta_ok(Bar) fails');
test_fail (+2);

meta_ok('Bar', '... meta_ok(Bar) fails');

test_test ('meta_ok');

done_testing;
Commit	Line	Data
7125b244	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
a28e50e4	6	use Test::Builder::Tester;
7125b244	7	use Test::More;
	8
	9	BEGIN {
	10	use_ok('Test::Moose');
	11	}
	12
	13	{
	14	package Foo;
	15	use Moose;
	16	}
	17
	18	{
	19	package Bar;
	20	}
	21
	22	test_out('ok 1 - ... meta_ok(Foo) passes');
	23
	24	meta_ok('Foo', '... meta_ok(Foo) passes');
	25
	26	test_out ('not ok 2 - ... meta_ok(Bar) fails');
	27	test_fail (+2);
	28
	29	meta_ok('Bar', '... meta_ok(Bar) fails');
	30
	31	test_test ('meta_ok');
	32
a28e50e4	33	done_testing;