#!/usr/bin/perl
use lib "t/lib";
use strict;
use warnings;
use Test::More;
plan tests => 14;
use M3::ServerView;
my $home = M3::ServerView::RootView->new("M3::ServerView", "file:t/data/home.html");
like($home->response_time, qr/^ \d+ (?:\.\d+) $/x);
like($home->request_time, qr/^ \d{4}-\d{2}-\d{2} \s+ \d{2}:\d{2}:\d{2} $/x);
like($home->request_time("timestamp"), qr/^\d+$/);
# Page should contains 21 items
my $rs = $home->search();
is($rs->count, 21);
$rs = $home->search({ type => "Supervisor" });
is($rs->count, 1);
my $entry = $rs->first;
is($entry->no, "1");
is($entry->type, "Supervisor");
is($entry->pid, 6443);
ok($entry->started);
ok(!defined $entry->jobs);
is($entry->threads, 26);
is($entry->cpu, "2/191");
is($entry->heap, 72928);
is($entry->status, "Up");