From b68490edda877bcda983c96f728d1e04a583eb4f Mon Sep 17 00:00:00 2001 From: doy Date: Mon, 20 Apr 2009 02:58:09 -0500 Subject: clean up tests a bit --- t/010-immutable.t | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 't/010-immutable.t') diff --git a/t/010-immutable.t b/t/010-immutable.t index 5ceb251..36430eb 100644 --- a/t/010-immutable.t +++ b/t/010-immutable.t @@ -33,11 +33,11 @@ __PACKAGE__->meta->make_immutable; package main; my $foo_moose = Foo::Moose->new(foo => 'FOO', bar => 'BAR'); -is $foo_moose->foo, 'FOO', 'foo set in constructor'; -is $foo_moose->bar, 'BAR', 'bar set in constructor'; +is($foo_moose->foo, 'FOO', 'foo set in constructor'); +is($foo_moose->bar, 'BAR', 'bar set in constructor'); $foo_moose->foo('BAZ'); $foo_moose->bar('QUUX'); -is $foo_moose->foo, 'BAZ', 'foo set by accessor'; -is $foo_moose->bar, 'QUUX', 'bar set by accessor'; -is $foo_moose->baz, 'Foo', 'baz method'; -is $foo_moose->quux, 'Foo::Moose', 'quux method'; +is($foo_moose->foo, 'BAZ', 'foo set by accessor'); +is($foo_moose->bar, 'QUUX', 'bar set by accessor'); +is($foo_moose->baz, 'Foo', 'baz method'); +is($foo_moose->quux, 'Foo::Moose', 'quux method'); -- cgit v1.2.3-54-g00ecf