initial release of some real (very very tiny) tests, as they are working now

without Tk::Zinc being installed

1 files changed, 30 insertions, 0 deletions

diff --git a/Perl/t/Import.t b/Perl/t/Import.t
new file mode 100644
index 0000000..862904c
--- /dev/null
+++ b/Perl/t/Import.t
@@ -0,0 +1,30 @@
+#!/usr/bin/perl -w
+
+#
+# $Id: Import.t,v 1.1 2003-09-23 12:15:15 mertz Exp $
+# Author: Christophe Mertz
+#
+
+# testing all the import
+
+BEGIN {
+    if (!eval q{
+        use Test::More qw(no_plan);
+        1;
+    }) {
+        print "# tests only work properly with installed Test::More module\n";
+        print "1..1\n";
+        print "ok 1\n";
+        exit;
+    }
+}
+
+require_ok( 'Tk::Zinc' );
+require_ok( 'Tk::Zinc::Debug' );
+require_ok( 'Tk::Zinc::Trace' );
+# require_ok( 'Tk::Zinc::TraceErrors' ); # incompatible with the previous one
+# we do not test the previous, as it should be equivalent!
+require_ok( 'Tk::Zinc::Graphics' );
+require_ok( 'Tk::Zinc::Logo' );
+require_ok( 'Tk::Zinc::Text' );
+diag("############## all imports");