| branch | moose |
| changeset 2 | ba9ad363d185 |
| parent 1 | d2562d0417a9 |
| child 3 | 7e8df0715112 |
| 1:d2562d0417a9 | 2:ba9ad363d185 |
|---|---|
18 push @proc => $+{dev}; |
18 push @proc => $+{dev}; |
19 } |
19 } |
20 is_deeply(\@devices => \@proc, "got all devices"); |
20 is_deeply(\@devices => \@proc, "got all devices"); |
21 } |
21 } |
22 |
22 |
23 foreach (@devices) { |
|
24 my $dev = BlockDev->new(dev => $_); |
|
25 isa_ok($dev, "BlockDev"); |
|
26 ok(-b $dev->dev, "block device " . $dev->dev); |
|
27 } |
|
28 |
|
23 done_testing(); |
29 done_testing(); |