diff options
| author | mertz | 2004-05-07 16:53:43 +0000 |
|---|---|---|
| committer | mertz | 2004-05-07 16:53:43 +0000 |
| commit | 5a7c62c70fe11f779c18d5e245700a4df6850587 (patch) | |
| tree | ad362e6e3642688c45d0886aa46bcdce3c7e609b /Perl/t | |
| parent | 80ed7597c32a1d2836615f91cada00873a564e89 (diff) | |
| download | tkzinc-5a7c62c70fe11f779c18d5e245700a4df6850587.zip tkzinc-5a7c62c70fe11f779c18d5e245700a4df6850587.tar.gz tkzinc-5a7c62c70fe11f779c18d5e245700a4df6850587.tar.bz2 tkzinc-5a7c62c70fe11f779c18d5e245700a4df6850587.tar.xz | |
removing typos, unneeded print...
Diffstat (limited to 'Perl/t')
| -rw-r--r-- | Perl/t/traceutils.t | 9 |
1 files changed, 4 insertions, 5 deletions
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 = "()"; |