diff options
Diffstat (limited to 'tests/textImage.test')
| -rw-r--r-- | tests/textImage.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/textImage.test b/tests/textImage.test index 8cb717b..5127b49 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textImage.test,v 1.13 2009/01/13 01:46:06 patthoyts Exp $ +# RCS: @(#) $Id: textImage.test,v 1.14 2010/02/16 21:12:57 nijtmans Exp $ package require tcltest 2.2 namespace import ::tcltest::* @@ -161,13 +161,13 @@ test textImage-1.13 {names argument checking} -setup { .t image create insert -image small lappend result [.t image names] .t image create insert -image small - lappend result [.t image names] + lappend result [lsort [.t image names]] .t image create insert -image small -name little - lappend result [.t image names] + lappend result [lsort [.t image names]] } -cleanup { destroy .t image delete small -} -result {{} small {small#1 small} {small#1 small little}} +} -result {{} small {small small#1} {little small small#1}} test textImage-1.14 {basic argument checking} -setup { destroy .t |