30 lines
1.1 KiB
Plaintext
30 lines
1.1 KiB
Plaintext
$OpenBSD: patch-tests_entry_test,v 1.1 2009/10/13 01:35:06 sthen Exp $
|
|
--- tests/entry.test.orig Mon Feb 28 13:06:41 2000
|
|
+++ tests/entry.test Mon Oct 12 10:30:58 2009
|
|
@@ -1,7 +1,5 @@
|
|
-if { [lsearch [package names] tcltest] == -1 } {
|
|
package require tcltest
|
|
namespace import tcltest::*
|
|
-}
|
|
lappend auto_path /home/ericm/bwidget
|
|
package require BWidget
|
|
|
|
@@ -23,7 +21,7 @@ foreach test {
|
|
{-command foo foo {} {}}
|
|
{-disabledforeground blue blue non-existent \
|
|
{unknown color name "non-existent"}}
|
|
- {-editable false false shazbot {expected boolean value but got "shazbot"}}
|
|
+ {-editable 0 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} {} \
|
|
@@ -65,7 +63,7 @@ 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 ..."}}
|
|
test Entry-2.2 {Entry} {
|
|
list [catch {Entry gorp} msg] $msg
|
|
} {1 {bad window path name "gorp"}}
|