branch | moose |
changeset 2 | ba9ad363d185 |
parent 1 | d2562d0417a9 |
child 3 | 7e8df0715112 |
--- a/t/00-module.t Wed Jul 20 22:35:03 2011 +0200 +++ b/t/00-module.t Wed Jul 27 23:07:42 2011 +0200 @@ -20,4 +20,10 @@ is_deeply(\@devices => \@proc, "got all devices"); } +foreach (@devices) { + my $dev = BlockDev->new(dev => $_); + isa_ok($dev, "BlockDev"); + ok(-b $dev->dev, "block device " . $dev->dev); +} + done_testing();