diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-09-12 14:42:37 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-09-27 16:12:25 -0500 |
commit | 8bd00a3836b0337bcb99f17ccec2761d910582ad (patch) | |
tree | 8179d47adc090abdd3a8c72aa65f32a40f608156 | |
parent | 372ed0ebfabcd81529da7d1f41bb483b6a998fa2 (diff) | |
download | moosex-nonmoose-8bd00a3836b0337bcb99f17ccec2761d910582ad.tar.gz moosex-nonmoose-8bd00a3836b0337bcb99f17ccec2761d910582ad.zip |
skip the correct number of tests
-rw-r--r-- | t/033-moosex-globref.t | 4 |
1 files changed, 2 insertions, 2 deletions
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)"); |