From: Matt S Trout Date: Wed, 18 Jul 2012 15:42:39 +0000 (+0000) Subject: switch to no_plan to save a dep X-Git-Tag: v1.000000~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8b752e9c3003190e519e2e81bafdd6fe37fa7dc;p=p5sagit%2FSafe-Isa.git switch to no_plan to save a dep --- diff --git a/t/safe_isa.t b/t/safe_isa.t index 3829bee..5867bc5 100644 --- a/t/safe_isa.t +++ b/t/safe_isa.t @@ -1,6 +1,6 @@ use strict; use warnings FATAL => 'all'; -use Test::More; +use Test::More qw(no_plan); { package Foo; sub new { bless({}, $_[0]) } } { package Bar; our @ISA = qw(Foo); sub bar { 1 } } @@ -32,5 +32,3 @@ ok(eval { $blam->$_can('bar'); 1 }, 'no boom today'); ok($foo->$_call_if_object(isa => 'Foo'), 'foo $_call_if_object(isa => Foo)'); ok($bar->$_call_if_object(isa => 'Foo'), 'bar $_call_if_object(isa => Foo)'); ok(eval { $blam->$_call_if_object(isa => 'Foo'); 1 }, 'no boom today'); - -done_testing;