#!./perl
#
# base.t - simple tests for the base classes
#
use Graph::Writer;
use Graph::Reader;
print "1..2\n";
#
# You can't create instances of the base classes directly
#
#-----------------------------------------------------------------------
eval { $r = Graph::Reader->new(); };
if ($@ && not defined $r)
{
print "ok 1\n";
}
else
{
print "not ok 1\n";
}
#-----------------------------------------------------------------------
eval { $r = Graph::Writer->new(); };
if ($@ && not defined $r)
{
print "ok 2\n";
}
else
{
print "not ok 2\n";
}