view release on metacpan or  search on metacpan

t/050-pgswstats.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Linux::Info;

my @pgswstats = qw(
   pgpgin
   pgpgout
   pswpin
   pswpout
);

my $sys = Linux::Info->new();

if (!-r '/proc/diskstats' || !-r '/proc/partitions' || !-r '/proc/stat' || !-r '/proc/vmstat') {
    plan skip_all => "it seems that your system doesn't provide paging/swapping statistics";
    exit(0);
}

plan tests => 4;

$sys->set(pgswstats => 1);
sleep(1);
my $stats = $sys->get;
ok(defined $stats->pgswstats->{$_}, "checking pgswstats $_") for @pgswstats;