first commit

perl/lib/Graph-Easy-0.76/t/base.t

@@ -0,0 +1,37 @@
+#!/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');
+