diff options
Diffstat (limited to 'Perl/t/test-no-crash.pl')
| -rw-r--r-- | Perl/t/test-no-crash.pl | 10 |
1 files changed, 5 insertions, 5 deletions
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 |