view release on metacpan or  search on metacpan

devstat.xs  view on Meta::CPAN

86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
HViv(rh, "operations_read",         dev.operations[DEVSTAT_READ]);
HViv(rh, "operations_write",        dev.operations[DEVSTAT_WRITE]);
HViv(rh, "operations_free",         dev.operations[DEVSTAT_FREE]);
HViv(rh, "operations_other",        dev.operations[DEVSTAT_NO_DATA]);
HViv(rh, "duration_read_sec",       dev.duration[DEVSTAT_READ].sec);
HViv(rh, "duration_read_frac",      dev.duration[DEVSTAT_READ].frac);
HViv(rh, "duration_write_sec",      dev.duration[DEVSTAT_WRITE].sec);
HViv(rh, "duration_write_frac",     dev.duration[DEVSTAT_WRITE].frac);
HViv(rh, "duration_free_sec",       dev.duration[DEVSTAT_FREE].sec);
HViv(rh, "duration_free_frac",      dev.duration[DEVSTAT_FREE].frac);
HViv(rh, "busy_time_sec",           dev.busy_time.sec);
HViv(rh, "busy_time_frac",          dev.busy_time.frac);
HViv(rh, "creation_time_sec",       dev.creation_time.sec);
HViv(rh, "creation_time_frac",      dev.creation_time.frac);
HViv(rh, "block_size",              dev.block_size);
HViv(rh, "tag_simple",              dev.tag_types[DEVSTAT_TAG_SIMPLE]);
HViv(rh, "tag_ordered",             dev.tag_types[DEVSTAT_TAG_ORDERED]);
HViv(rh, "tag_head",                dev.tag_types[DEVSTAT_TAG_HEAD]);
HViv(rh, "flags",                   dev.flags);
HViv(rh, "device_type",             dev.device_type);
HViv(rh, "priority",                dev.priority);
RETVAL = rh;

t/01_normal.t  view on Meta::CPAN

14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
eval { $o->devices(-1) };
ok $@, 'devices(-1) should die';
 
eval { $o->devices(100) };
ok $@, 'devices(100) should die';
 
$_ = $o->devices(0);
is ref $_, 'HASH', 'devices() returns HASH';
 
is join(',', sort keys %$_), 'block_size,busy_time_frac,busy_time_sec,bytes_free,bytes_read,bytes_write,creation_time_frac,creation_time_sec,device_name,device_type,duration_free_frac,duration_free_sec,duration_read_frac,duration_read_sec,duration_wr...
 
ok exists $_->{device_name}, 'exists {device_name}';
ok length($_->{device_name}) > 0, '  has len: ' . ($_->{device_name}||'');
ok exists $_->{unit_number}, 'exists {unit_number}';
like $_->{unit_number}, qr/^\d+$/, '  like number';
 
$_ = $o->compute_statistics(0, 0.5);
is ref $_, 'HASH', 'compute_statistics() returns HASH';
 
is join(',', sort keys %$_), 'BLOCKS_PER_SECOND,BLOCKS_PER_SECOND_FREE,BLOCKS_PER_SECOND_READ,BLOCKS_PER_SECOND_WRITE,BUSY_PCT,KB_PER_TRANSFER,KB_PER_TRANSFER_FREE,KB_PER_TRANSFER_READ,KB_PER_TRANSFER_WRITE,MB_PER_SECOND,MB_PER_SECOND_FREE,MB_PER_SEC...