X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=inline;f=t%2F10-obj.t;h=ffa66fdd1bc5209a0b62364462dd3db1da9ea4e4;hb=22cd37cb62e8ca05600172ecb35338f59581e023;hp=49f3dc7e5e11d5518205ceb6bad7d9f895ec9688;hpb=f0596ac13a537630fc7421d5d21249a603bd0375;p=perl%2Fmodules%2FB-RecDeparse.git
diff --git a/t/10-obj.t b/t/10-obj.t
index 49f3dc7..ffa66fd 100644
--- a/t/10-obj.t
+++ b/t/10-obj.t
@@ -7,7 +7,7 @@ use Test::More tests => 10;
use B::RecDeparse;
-my $brd = new B::RecDeparse;
+my $brd = B::RecDeparse->new;
ok(defined $brd, 'BRD object is defined');
is(ref $brd, 'B::RecDeparse', 'BRD object is valid');
ok($brd->isa('B::Deparse'), 'BRD is a BD');
@@ -22,5 +22,5 @@ ok(defined $brd3, 'BRD::new called as a function works ');
is(ref $brd3, 'B::RecDeparse', 'BRD::new called as a functions returns a B::RecDeparse object');
ok($brd3->isa('B::Deparse'), 'BRD is a BD');
-eval { $brd2 = new B::RecDeparse qw };
+eval { $brd2 = B::RecDeparse->new(qw) };
like($@, qr/Optional\s+arguments/, 'BRD::new gets parameters as key => value pairs');