From 8bd00a3836b0337bcb99f17ccec2761d910582ad Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 12 Sep 2009 14:42:37 -0500 Subject: skip the correct number of tests --- t/033-moosex-globref.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 't') diff --git a/t/033-moosex-globref.t b/t/033-moosex-globref.t index 6a8b4f6..be8c26b 100644 --- a/t/033-moosex-globref.t +++ b/t/033-moosex-globref.t @@ -71,7 +71,7 @@ is($handle->bar, 'RAB', 'moose accessor works properly (setting)'); SKIP: { my $fh = IO::File::Moose->new(baz => 'BAZ'); open $fh, "+>", undef - or skip "couldn't open a temporary file", 4; + or skip "couldn't open a temporary file", 3; is($fh->baz, 'BAZ', "accessor works"); $fh->baz('ZAB'); is($fh->baz, 'ZAB', "accessor works (writing)"); @@ -86,7 +86,7 @@ IO::File::Moose->meta->make_immutable; SKIP: { my $fh = IO::File::Moose->new(baz => 'BAZ'); open $fh, "+>", undef - or skip "couldn't open a temporary file", 4; + or skip "couldn't open a temporary file", 3; is($fh->baz, 'BAZ', "accessor works"); $fh->baz('ZAB'); is($fh->baz, 'ZAB', "accessor works (writing)"); -- cgit v1.2.3