M: Minor unit-test tweaks.
This commit is contained in:
5
t/1.t
5
t/1.t
@@ -1,12 +1,11 @@
|
|||||||
use Test::More qw(no_plan);
|
use Test::More tests => 29;
|
||||||
use Test::Exception;
|
use Test::Exception;
|
||||||
|
|
||||||
BEGIN { use_ok( 'File::DirWalk' ); }
|
BEGIN { use_ok( 'File::DirWalk' ); }
|
||||||
require_ok( 'File::DirWalk' );
|
require_ok( 'File::DirWalk' );
|
||||||
|
|
||||||
$dw = new File::DirWalk();
|
$dw = new File::DirWalk();
|
||||||
|
is(ref($dw), 'File::DirWalk' );
|
||||||
ok( ref($dw) eq 'File::DirWalk' );
|
|
||||||
|
|
||||||
is ($dw->getDepth(), 0);
|
is ($dw->getDepth(), 0);
|
||||||
dies_ok { $dw->setDepth(-1) };
|
dies_ok { $dw->setDepth(-1) };
|
||||||
|
|||||||
Reference in New Issue
Block a user