#!/usr/bin/perl -w
# DESCRIPTION: Perl ExtUtils: Type 'make test' to test this package
#
# Copyright 2006-2009 by Wilson Snyder.  This program is free software;
# you can redistribute it and/or modify it under the terms of either the GNU
# Lesser General Public License Version 3 or the Perl Artistic License Version 2.0.

use strict;
use Test;
use Data::Dumper; $Data::Dumper::Indent=1; $Data::Dumper::Sortkeys=1;

BEGIN { plan tests => 5 }
BEGIN { require "t/test_utils.pl"; }

use Schedule::Load::Reporter::Filesys;
ok(1);

my $report = Schedule::Load::Reporter::Filesys->new();
ok($report);

$report->poll;
sleep 1;
$report->poll;
ok($report->stats);
print Dumper($report->stats);

if (!$ENV{VERILATOR_AUTHOR_SITE}) {
    # We might not be on a Linux system with appropriate /proc access
    skip("author only test (harmless)",1);
    skip("author only test (harmless)",1);
} else {
    ok($report->stats->{fs_local_size});
    ok(defined $report->stats->{fs_local_pct});
}