From a0b87de2c2cf35f762ef9944ac46518ce9006d82 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 7 May 2004 13:53:00 +0000
Subject: adding some info in the test, to better localized bugs

---
 Perl/t/text.t | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'Perl/t')

diff --git a/Perl/t/text.t b/Perl/t/text.t
index cc8690b..b8893db 100644
--- a/Perl/t/text.t
+++ b/Perl/t/text.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #
-# $Id: text.t,v 1.5 2004-04-02 12:01:49 mertz Exp $
+# $Id: text.t,v 1.6 2004-05-07 13:53:00 mertz Exp $
 # Author: Christophe Mertz
 #
 
@@ -15,7 +15,7 @@ my $mw;
 BEGIN {
     if (!eval q{
 #        use Test::More qw(no_plan);
-        use Test::More tests => 55;
+        use Test::More tests => 69;
         1;
     }) {
         print "# tests only work properly with installed Test::More module\n";
@@ -56,8 +56,8 @@ my $g1 = $zinc->add('group',1, -tags => "gr1");
 
 my $TEXT = "";
 
-my @families = $zinc->fontFamilies;
-#print "@families\n";
+my @families = $mw->fontFamilies;
+#print "families=@families\n";
 
 my $family="";
 if ( grep /^verdana$/i , @families) {
@@ -68,7 +68,7 @@ if ( grep /^verdana$/i , @families) {
 } elsif  ( grep /^arial$/i , @families) {
     $family = "arial";
 }
-
+#print "family=$family\n";
 
 my $topLevel = $mw->Toplevel();
 $topLevel->title("testing all ascii glyphs of $family");
@@ -89,6 +89,7 @@ foreach my $row (2..15) {
     $zinc0->add('text', 1, -position => [10,$row*20-40], 
 		-text => $string, -font => 'fonta');
     $zinc0->update;
+    &pass("adding text item n°$row with a $family font of size 20 and normal weight");
 }
 
 
-- 
cgit v1.1