#!/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)");