From e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Mon, 24 Jan 2005 15:46:33 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'POSTSCRIPT'.

---
 Perl/t/text.t | 161 ----------------------------------------------------------
 1 file changed, 161 deletions(-)
 delete mode 100644 Perl/t/text.t

(limited to 'Perl/t/text.t')

diff --git a/Perl/t/text.t b/Perl/t/text.t
deleted file mode 100644
index b8893db..0000000
--- a/Perl/t/text.t
+++ /dev/null
@@ -1,161 +0,0 @@
-#!/usr/bin/perl -w
-
-#
-# $Id: text.t,v 1.6 2004-05-07 13:53:00 mertz Exp $
-# Author: Christophe Mertz
-#
-
-# testing text item
-
-# this script can be used with an optionnal argument, an integer giving
-# the delay in seconds during which the graphic updates will be displayed
-# this is usefull for visual inspection!
-
-my $mw;
-BEGIN {
-    if (!eval q{
-#        use Test::More qw(no_plan);
-        use Test::More tests => 69;
-        1;
-    }) {
-        print "# tests only work properly with installed Test::More module\n";
-        print "1..1\n";
-        print "ok 1\n";
-        exit;
-    }
-    if (!eval q{
-	use Tk::Zinc;
- 	1;
-    }) {
-        print "unable to load Tk::Zinc";
-        print "1..1\n";
-        print "ok 1\n";
-        exit;
-    }
-    if (!eval q{
- 	$mw = MainWindow->new();
- 	1;
-    }) {
-        print "# tests only work properly when it is possible to create a mainwindow in your env\n";
-        print "1..1\n";
-        print "ok 1\n";
-        exit;
-    }
-}
-
-use strict;
-
-my $zinc = $mw->Zinc(-render => 1,
-		     -width => 400, -height => 1200)->pack;
-
-like  ($zinc, qr/^Tk::Zinc=HASH/ , "zinc has been created");
-
-
-my $g1 = $zinc->add('group',1, -tags => "gr1");
-
-
-my $TEXT = "";
-
-my @families = $mw->fontFamilies;
-#print "families=@families\n";
-
-my $family="";
-if ( grep /^verdana$/i , @families) {
-    $family = "verdana";
-#    $family = "helvetica";
-} elsif ( grep /^helvetica$/i , @families) {
-    $family = "helvetica";
-} elsif  ( grep /^arial$/i , @families) {
-    $family = "arial";
-}
-#print "family=$family\n";
-
-my $topLevel = $mw->Toplevel();
-$topLevel->title("testing all ascii glyphs of $family");
-
-my $zinc0 = $topLevel->Zinc(-render => 1,
-			    -width => 300, 
-			    -height => 400,)->pack;
-like  ($zinc, qr/^Tk::Zinc=HASH/ , "zinc0 has been created");
-
-$zinc0->fontCreate("fonta", -family => $family, -size => -20, -weight => 'normal');
-
-
-foreach my $row (2..15) {
-    my $string = "";
-    foreach my $col (0..15) {
-	$string .= chr($row*16+$col);
-    }
-    $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");
-}
-
-
-### creating text items with many different fonts:
-
-my $size = 8;
-my $y = 10 ;
-
-$zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal');
-
-
-### creating text items with many different fonts:
-$zinc->add('text', $g1, -position => [10,$y],  -tags => ["txt$size"], -font => "font$size",
-	   -text => "$size pixels $family");
-$zinc->remove('txt8');
-$zinc->fontDelete("font$size");
-$zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal');
-$zinc->add('text', $g1, -position => [10,$y],  -tags => ["txt$size"], -font => "font$size",
-	   -text => "$size pixels $family");
-
-
-
-
-
-foreach my $size (9..60) {
-    $zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal');
-    $zinc->add('text', $g1, -position => [10,$y],  -tags => ["txt$size"], -font => "font$size",
-	       -text => "$size pixels $family");
-    $zinc->update;
-
-    # deleting both the font and the text item and recreating it 10 times
-    foreach my $count (1..10) {
-	$zinc->fontDelete("font$size");
-	$zinc->remove('txt8');
-	$zinc->fontCreate("font$size", -family => $family, -size => -$size, -weight => 'normal');
-	$zinc->add('text', $g1, -position => [10,$y],  -tags => ["txt$size"], -font => "font$size",
-		   -text => "$size pixels $family");
-	$zinc->update;
-    }
-    &pass("creating and deleting 10 times a text item with a $family font of size $size");
-    $y += $size;
-}
-
-
-&wait;
-
-## we should certainly test much much other things!
-
-
-
-sub wait {
-    $zinc->update;
-    ok (1, $_[0]);
-
-    my $delay = $ARGV[0];
-    if (defined $delay) {
-	$zinc->update;
-	if ($delay =~ /^\d+$/) {
-	    sleep $delay;
-	} else {
-	    sleep 1;
-	}
-    }
-    
-}
-
-
-
-diag("############## end of text test");
-- 
cgit v1.1