X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fclassmethod.t;h=5493874ec1a99bb26e2bc4ff019eabb722abea0c;hb=e7ffbae6d2ffe2527f579dd41716d6e3e783fa91;hp=f928fd55ac48f4bbf5a1a28e80880f215033d089;hpb=3ad7da2f20602e5644f3c9b38ded472679b391af;p=p5sagit%2Flocal-lib.git diff --git a/t/classmethod.t b/t/classmethod.t index f928fd5..5493874 100644 --- a/t/classmethod.t +++ b/t/classmethod.t @@ -1,34 +1,24 @@ - use strict; use warnings; -use Test::More 'no_plan'; -use local::lib (); +use Test::More tests => 4;; +use local::lib (); my $c = 'local::lib'; - { - -is($c->resolve_empty_path, '~/perl5'); -is($c->resolve_empty_path('foo'), 'foo'); - + is($c->resolve_empty_path, '~/perl5'); + is($c->resolve_empty_path('foo'), 'foo'); } { - -no warnings 'once'; -local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; }; -is($c->resolve_relative_path('bar'),'FOObar'); - + no warnings 'once'; + local *File::Spec::rel2abs = sub { shift; 'FOO'.shift; }; + is($c->resolve_relative_path('bar'),'FOObar'); } { - -File::Path::rmtree('t/var/splat'); - -$c->ensure_dir_structure_for('t/var/splat'); - -ok(-d 't/var/splat'); - + File::Path::rmtree('t/var/splat'); + $c->ensure_dir_structure_for('t/var/splat'); + ok(-d 't/var/splat'); }