t/02-JournalCtl.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!perl -T
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

BEGIN {
    use_ok( 'AdminPanel::Shared::JournalCtl' ) || print "JournalCtl failed!\n";
}

    ok( my $o = AdminPanel::Shared::JournalCtl->new(this_boot=>1,), 'create');
    ok( my $c = $o->getLog(), 'gets_log' );

done_testing;