t/00-module.t
branchmoose
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();