blob: 3ce5e985cf6e5d8d88eb00d211367f1b65e5df6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;
use Data::Dumper;
BEGIN {
use_ok( 'ManaTools::Shared::disk_backend' ) || print "ManaTools::Shared::disk_backend failed!\n";
}
ok ( my $obj = ManaTools::Shared::disk_backend->new(), 'new_disk_backend');
diag Dumper($obj);
# check load / probe / save
ok ( $obj->load(), 'load_disk_backend');
diag Dumper($obj);
ok ( $obj->probe(), 'probe_disk_backend');
diag Dumper($obj);
ok ( $obj->save(), 'save_disk_backend');
diag Dumper($obj);
# check find* functions too
ok ( my @parts = $obj->findnoin(), 'no_in_disk_backend');
diag Dumper(@parts);
my @ios = ();
if (scalar(@parts) > 0) {
ok ( my @ios = $parts[0]->out_list(), 'ios_no_out_disk_backend');
}
diag Dumper(@ios);
ok ( @parts = $obj->findnoout(), 'no_out_disk_backend');
diag Dumper(@parts);
@ios = ();
if (scalar(@parts) > 0) {
ok ( @ios = $parts[0]->in_list(), 'ios_no_in_disk_backend');
}
diag Dumper(@ios);
ok ( @parts = $obj->findpart('Disk'), 'find_part_disk_backend');
diag Dumper(@parts);
ok ( @ios = $obj->findioprop('dev', '8:0'), 'find_io_via_prop_disk_backend');
diag Dumper(@ios);
done_testing;
|
