summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/cursor.test26
1 files changed, 13 insertions, 13 deletions
diff --git a/tests/cursor.test b/tests/cursor.test
index bb01561..2d818c3 100644
--- a/tests/cursor.test
+++ b/tests/cursor.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: cursor.test,v 1.2 1999/04/16 01:51:36 stanton Exp $
+# RCS: @(#) $Id: cursor.test,v 1.3 2001/04/04 06:40:14 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -61,37 +61,37 @@ test cursor-2.2 {Tk_GetCursor procedure} {
} {1 {bad cursor spec "@xyzzy"}}
test cursor-3.1 {Tk_FreeCursorFromObj - reference counts} {
- set x arrow
+ set x heart
destroy .b1 .b2 .b3
button .b1 -cursor $x
button .b3 -cursor $x
button .b2 -cursor $x
set result {}
- lappend result [testcursor arrow]
+ lappend result [testcursor heart]
destroy .b1
- lappend result [testcursor arrow]
+ lappend result [testcursor heart]
destroy .b2
- lappend result [testcursor arrow]
+ lappend result [testcursor heart]
destroy .b3
- lappend result [testcursor arrow]
+ lappend result [testcursor heart]
} {{{3 1}} {{2 1}} {{1 1}} {}}
test cursor-4.1 {FreeCursorObjProc} {
destroy .b
- set x [format arrow]
+ set x [format heart]
button .b -cursor $x
- set y [format arrow]
+ set y [format heart]
.b configure -cursor $y
- set z [format arrow]
+ set z [format heart]
.b configure -cursor $z
set result {}
- lappend result [testcursor arrow]
+ lappend result [testcursor heart]
set x red
- lappend result [testcursor arrow]
+ lappend result [testcursor heart]
set z 32
- lappend result [testcursor arrow]
+ lappend result [testcursor heart]
destroy .b
- lappend result [testcursor arrow]
+ lappend result [testcursor heart]
set y bogus
set result
} {{{1 3}} {{1 2}} {{1 1}} {}}