From 5a7c62c70fe11f779c18d5e245700a4df6850587 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 7 May 2004 16:53:43 +0000
Subject: removing typos, unneeded print...

---
 Perl/t/traceutils.t | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'Perl/t')

diff --git a/Perl/t/traceutils.t b/Perl/t/traceutils.t
index ad18813..0636037 100644
--- a/Perl/t/traceutils.t
+++ b/Perl/t/traceutils.t
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: traceutils.t,v 1.1 2003-11-07 15:36:49 mertz Exp $
+# $Id: traceutils.t,v 1.2 2004-05-07 16:53:43 mertz Exp $
 # Author: Christophe Mertz
 #
 
 # testing Tk::Zinc::TraceUtils utilities
 
-use Tk::Zinc::TraceUtils;
+#use Tk::Zinc::TraceUtils;
 use strict;
 
 BEGIN {
@@ -25,7 +25,7 @@ BEGIN {
 	use Tk::Zinc::TraceUtils;
  	1;
     }) {
-        print "unable to load Tk::ZincTraceUtils";
+        print "unable to load Tk::Zinc::TraceUtils";
         print "1..1\n";
         print "ok 1\n";
         exit;
@@ -49,8 +49,7 @@ SKIP: {
     
     like ($font, qr/^testfont/, "font creation");
     is (&Item ($font), "'testfont'", "testing " . "testfont"); # not so sure about this result!
-    print "$font : ", ref($font), "\n";
-    is (&List (-font => $font), "(-font => 'testfont')", );
+    is (&List (-font => $font), "(-font => 'testfont')", "(-font => afont)");
 }
 
 $arg = "()";
-- 
cgit v1.1