[gitmo/Mouse.git] / t / 601-tiny-mouse.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;

do {
    package Class;
    use Mouse::Tiny;

    has attr => (
        is => 'rw',
    );

    package Class2;
    use Mouse;

    has attr => (
        is => 'rw',
    );
};

is(Class->new(attr => 'a')->attr, 'a');
is(Class2->new(attr => 'b')->attr, 'b');
Commit	Line	Data
30f45363	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 2;
	5
	6	do {
	7	package Class;
	8	use Mouse::Tiny;
	9
	10	has attr => (
	11	is => 'rw',
	12	);
	13
	14	package Class2;
	15	use Mouse;
	16
	17	has attr => (
	18	is => 'rw',
	19	);
	20	};
	21
	22	is(Class->new(attr => 'a')->attr, 'a');
	23	is(Class2->new(attr => 'b')->attr, 'b');
	24