From 2cb6f9f985d7b6b3f2ab21a4a33ca190f7bbf6b9 Mon Sep 17 00:00:00 2001
From: mertz
Date: Mon, 24 Mar 2003 15:28:55 +0000
Subject: passage aux gradients nouvzaux (>> 3.2.6h)

---
 Perl/t/test-no-crash.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Perl/t/test-no-crash.pl')

diff --git a/Perl/t/test-no-crash.pl b/Perl/t/test-no-crash.pl
index dda953b..5a6274d 100644
--- a/Perl/t/test-no-crash.pl
+++ b/Perl/t/test-no-crash.pl
@@ -168,7 +168,7 @@ sub creating_items {
     &test_eval (1, "add", 'curve', 1, [30,0 , 150,10, 100,110, 10,100, 50,140]);
     &test_eval (1, "add", 'rectangle', 1, [400,400 , 450,220]);
     &test_eval (1, "add", 'triangles', 1, [200,200 , 300,200 , 300,300, 200,300],
-		-colors => ["blue:50", "red:20", "green:80"]);
+		-colors => ["blue;50", "red;20", "green;80"]);
     
     $image1 = $zinc->Photo(-file => Tk::findINC("icon.gif") );
     $image2 = $zinc->Photo(-file => Tk::findINC("Xcamel.gif") );
@@ -261,8 +261,8 @@ sub creating_datas {
 	 'gradient' => ['green', 'LemonChiffon', '#c84', '#4488cc', '#888ccc444', 'red'], ## TBC
 	 'gradientlist' => [['green'], ['LemonChiffon'], ['#c84'], ['#4488cc'], ['#888ccc444'],
 			    ['red', 'green'], ['red', 'green', 'blue'],
-			    ['red:50', 'green:50', 'blue:50'],
-			    ['blue:0', 'green:50', 'red:90'],
+			    ['red;50', 'green;50', 'blue;50'],
+			    ['blue;0', 'green;50', 'red;90'],
 			    ], ## TBC
 	 'dimension' => [0..5, 10, 50, 100, 0.0, 5.5, 100.5, 4.5],  ## and floats ?!
 	 'edgelist' => ['left', 'right', 'top', 'bottom', 'contour', 'oblique', 'counteroblique'], ## +combinations!
@@ -304,7 +304,7 @@ sub creating_datas {
 	 'bitmaplist' => ['AlphaStipple0', 'AlphaStipple3', 'AlphaStipple14', 'AlphaStipple11', 'AlphaStipple7'],
 	 'capstyle' => 'butt',
 	 'gradient' => 'LemonChiffon',
-	 'gradientlist' => ['red:50', 'green:50', 'blue:50'],
+	 'gradientlist' => ['red;50', 'green;50', 'blue;50'],
 	 'dimension' => 45,
 	 'edgelist' => 'contour',
 	 'font' => '6x10',
@@ -818,7 +818,7 @@ if ($tests{5}) {
 
 # #### &test_illegal_call
 # for example:
-#  calling a methode for an non-existing item
+#  calling a method for an non-existing item
 #  getting coords, contours, fields, etc... of non-existing index
 #
 #  cloning, deleting topgroup
-- 
cgit v1.1