$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"}}
