M: Minor unit-test tweaks.

This commit is contained in:
Jens Luedicke
2013-03-10 15:47:05 +01:00
parent ee04ca7e4f
commit c2ce754d59

5
t/1.t
View File

@@ -1,12 +1,11 @@
use Test::More qw(no_plan);
use Test::More tests => 29;
use Test::Exception;
BEGIN { use_ok( 'File::DirWalk' ); }
require_ok( 'File::DirWalk' );
$dw = new File::DirWalk();
ok( ref($dw) eq 'File::DirWalk' );
is(ref($dw), 'File::DirWalk' );
is ($dw->getDepth(), 0);
dies_ok { $dw->setDepth(-1) };