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

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

use strict;
use warnings;

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

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

{
    package Foo;
    use Mouse;
}

{
    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
ca5d8e24	1	#!/usr/bin/perl
	2	# This is automatically generated by author/import-moose-test.pl.
	3	# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
	4	use t::lib::MooseCompat;
	5
	6	use strict;
	7	use warnings;
	8
	9	use Test::Builder::Tester;
	10	use Test::More;
	11
	12	BEGIN {
	13	use_ok('Test::Mouse');
	14	}
	15
	16	{
	17	package Foo;
	18	use Mouse;
	19	}
	20
	21	{
	22	package Bar;
	23	}
	24
	25	test_out('ok 1 - ... meta_ok(Foo) passes');
	26
	27	meta_ok('Foo', '... meta_ok(Foo) passes');
	28
	29	test_out ('not ok 2 - ... meta_ok(Bar) fails');
	30	test_fail (+2);
	31
	32	meta_ok('Bar', '... meta_ok(Bar) fails');
	33
	34	test_test ('meta_ok');
	35
	36	done_testing;