blob: ff293f6450ca9e2d0ab7f7a6b2b608fbbc589566 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
Index: tests/entry.test
==================================================================
--- tests/entry.test
+++ tests/entry.test
@@ -21,11 +21,11 @@
{-bg #ff0000 #ff0000 non-existent {unknown color name "non-existent"}}
{-borderwidth 1.3 1 badValue {bad screen distance "badValue"}}
{-command foo foo {} {}}
{-disabledforeground blue blue non-existent \
{unknown color name "non-existent"}}
- {-editable false false shazbot {expected boolean value but got "shazbot"}}
+ {-editable false 0 shazbot {expected boolean value but got "shazbot"}}
{-exportselection yes 1 xyzzy {expected boolean value but got "xyzzy"}}
{-fg #110022 #110022 bogus {unknown color name "bogus"}}
{-font {Helvetica 12 italic} {Helvetica 12 italic} {} \
{font "" doesn't exist}}
{-foreground #110022 #110022 bogus {unknown color name "bogus"}}
@@ -63,11 +63,11 @@
}
destroy .e
test Entry-2.1 {Entry} {
list [catch {Entry} msg] $msg
-} {1 {no value given for parameter "path" to "Entry"}}
+} {1 {wrong # args: should be "Entry path ?arg ...?"}}
test Entry-2.2 {Entry} {
list [catch {Entry gorp} msg] $msg
} {1 {bad window path name "gorp"}}
test Entry-2.3 {Entry procedure} {
Entry .e
|
GitWeb
