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/003-attrs.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 't/003-attrs.t') diff --git a/t/003-attrs.t b/t/003-attrs.t index 2a92ab0..6b25849 100644 --- a/t/003-attrs.t +++ b/t/003-attrs.t @@ -28,9 +28,9 @@ has bar => ( 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->foo, 'BAZ', 'foo set by accessor'); +is($foo_moose->bar, 'QUUX', 'bar set by accessor'); -- cgit v1.2.3-54-g00ecf