38 lines
684 B
Perl
38 lines
684 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use Test::More;
|
|
use strict;
|
|
|
|
BEGIN
|
|
{
|
|
plan tests => 6;
|
|
chdir 't' if -d 't';
|
|
use lib '../lib';
|
|
use_ok ("Graph::Easy::Base") or die($@);
|
|
};
|
|
|
|
can_ok ("Graph::Easy::Base", qw/
|
|
new error error_as_html
|
|
_init
|
|
self
|
|
class
|
|
sub_class
|
|
main_class
|
|
fatal_errors
|
|
no_fatal_errors
|
|
/);
|
|
|
|
#############################################################################
|
|
# Base tests
|
|
|
|
my $base = Graph::Easy::Base->new();
|
|
|
|
is (ref($base), 'Graph::Easy::Base', 'new seemed to work');
|
|
is ($base->error(), '', 'no error yet');
|
|
|
|
$base->{class} = 'group.test';
|
|
|
|
is ($base->main_class(), 'group', 'main_class works');
|
|
is ($base->error(), '', 'no error yet');
|
|
|