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
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 6;
use_ok "Sys::MemInfo";
my $nbkeys = @{[Sys::MemInfo::availkeys()]};
ok(0<$nbkeys, "At least one defined key");
my $n = 0;
use Data::Dumper;
foreach my $key (Sys::MemInfo::availkeys()) {
my $value = Sys::MemInfo::get($key);
printf +(" Key %-20s = %7s MB = %10s kB\n", $key,
(defined $value ? int($value/1024/1024) : "undef"),
(defined $value ? int($value/1024) : "undef"));
$n++;
}
ok ($n==$nbkeys, "All keys return value");
my ($tm, $fm);
ok ($tm = Sys::MemInfo::totalmem (), "Total Memory");
ok ($fm = Sys::MemInfo::freemem (), "Free Memory");
ok ($fm <= $tm, "Free ($fm) <= Total ($tm)");
|
