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/020-BUILD.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 't/020-BUILD.t') diff --git a/t/020-BUILD.t b/t/020-BUILD.t index 8473dd3..aceff03 100644 --- a/t/020-BUILD.t +++ b/t/020-BUILD.t @@ -48,10 +48,10 @@ sub BUILD { package main; my $foo_moose = Foo::Moose->new; -is $foo_moose->class, 'Foo::Moose', 'BUILD method called properly'; -is $foo_moose->accum, 'a', 'BUILD method called properly'; +is($foo_moose->class, 'Foo::Moose', 'BUILD method called properly'); +is($foo_moose->accum, 'a', 'BUILD method called properly'); my $foo_moose_sub = Foo::Moose::Sub->new; -is $foo_moose_sub->class, 'Foo::Moose::Sub', 'parent BUILD method called'; -is $foo_moose_sub->bar, 'BAR', 'child BUILD method called'; -is $foo_moose_sub->accum, 'ab', 'BUILD methods called in the correct order'; +is($foo_moose_sub->class, 'Foo::Moose::Sub', 'parent BUILD method called'); +is($foo_moose_sub->bar, 'BAR', 'child BUILD method called'); +is($foo_moose_sub->accum, 'ab', 'BUILD methods called in the correct order'); -- cgit v1.2.3-54-g00ecf