arcadia 0.12.2 → 0.13.0

data/tcl/ptwidgets-1.1.0/test/wmarkentry.test

@@ -0,0 +1,1325 @@
+lappend auto_path ".."
+
+package require wmarkentry
+package require tcltest 2.2
+
+proc setup {args} {
+  eval "wmarkentry::wmarkentry .wme $args"
+  pack .wme
+}
+
+proc cleanup {} {
+  destroy .wme
+}
+
+# Test Contraints
+tcltest::testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}]
+tcltest::testConstraint x11  [expr {[tk windowingsystem] eq "x11"}]
+
+# Tests
+#---------------------------------
+
+tcltest::test wme-configure-badoption {configure called with a bad option} \
+  -setup setup \
+  -body {
+    .wme configure -foobar
+  } -cleanup cleanup \
+  -returnCodes error -result "WMarkEntry configuration option -foobar does not exist"
+  
+tcltest::test wme-configure-badoptionwithvalue {configure called with a bad option with a value} \
+  -setup setup \
+  -body {
+    .wme configure -foobar bubba
+  } -cleanup cleanup \
+  -returnCodes error -result "Illegal option given to the wmarkentry configure command (-foobar)"
+  
+tcltest::test wme-cget {cget without an option} \
+  -setup setup \
+  -body {
+    .wme cget
+  } -cleanup cleanup \
+  -returnCodes error -result "Incorrect number of parameters given to the wmarkentry cget command"
+  
+#---------------------------------
+tcltest::test wme-background {setup -background returns correct result} \
+  -setup {
+    setup -background blue
+  } -body {
+    .wme cget -background
+  } -cleanup cleanup \
+  -result blue
+
+tcltest::test wme-background-cget-bg {setup -background returns correct result} \
+  -setup {
+    setup -background blue
+  } -body {
+    .wme cget -bg
+  } -cleanup cleanup \
+  -result blue
+  
+tcltest::test wme-configure-background {configure -background returns correct result} \
+  -setup {
+    setup -background blue
+  } -body {
+    .wme configure -background
+  } -cleanup cleanup \
+  -result {-background background Background white blue}
+
+tcltest::test wme-bg {setup -bg returns correct result} \
+  -setup {
+    setup -bg blue
+  } -body {
+    .wme cget -bg
+  } -cleanup cleanup \
+  -result blue
+
+tcltest::test wme-bg-cget-background {setup -bg returns correct result} \
+  -setup {
+    setup -bg blue
+  } -body {
+    .wme cget -background
+  } -cleanup cleanup \
+  -result blue
+
+tcltest::test wme-configure-bg {configure -bg returns correct result} \
+  -setup {
+    setup -bg blue
+  } -body {
+    .wme configure -bg
+  } -cleanup cleanup \
+  -result {-background background Background white blue}
+  
+tcltest::test wme-cget-background {cget -background returns the correct result} \
+  -setup setup \
+  -body {
+    .wme cget -background
+  } -cleanup cleanup \
+  -result white
+  
+tcltest::test wme-cget-bg {cget -bg returns the correct result} \
+  -setup setup \
+  -body {
+    .wme cget -bg
+  } -cleanup cleanup \
+  -result white
+  
+tcltest::test wme-configure-cget-background {configure/cget -background returns the correct result} \
+  -setup setup \
+  -body {
+    .wme configure -background blue
+    .wme cget -background
+  } -cleanup cleanup \
+  -result blue
+  
+tcltest::test wme-configure-cget-bg {configure/cget -bg returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -bg blue
+    .wme cget -bg
+  } -cleanup cleanup \
+  -result blue
+  
+tcltest::test wme-configure-background-cget-bg {configure/cget -background/-bg returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -background blue
+    .wme cget -bg
+  } -cleanup cleanup \
+  -result blue
+  
+tcltest::test wme-configure-bg-cget-background {configure/cget -bg/-background returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -bg blue
+    .wme cget -background
+  } -cleanup cleanup \
+  -result blue
+  
+#---------------------------------
+tcltest::test wme-configure-borderwidth {configure -borderwidth returns correct result} \
+  -setup {
+    setup -borderwidth 5
+  } -body {
+    .wme configure -borderwidth
+  } -cleanup cleanup \
+  -match glob \
+  -result {-borderwidth borderWidth BorderWidth * 5}
+  
+tcltest::test wme-configure-bd {configure -bd returns correct result} \
+  -setup {
+    setup -bd 5
+  } -body {
+    .wme configure -bd
+  } -cleanup cleanup \
+  -match glob \
+  -result {-borderwidth borderWidth BorderWidth * 5}
+  
+tcltest::test wme-cget-borderwidth {cget -borderwidth returns the correct result} \
+  -setup {
+    setup -borderwidth 5
+  } -body {
+    .wme cget -borderwidth
+  } -cleanup cleanup \
+  -result 5
+  
+tcltest::test wme-cget-bd {cget -bd returns the correct result} \
+  -setup {
+    setup -bd 5
+  } -body {
+    .wme cget -bd
+  } -cleanup cleanup \
+  -result 5
+
+tcltest::test wme-configure-cget-borderwidth {configure/cget -borderwidth returns the correct result} \
+  -setup setup \
+  -body {
+    .wme configure -borderwidth 2
+    .wme cget -borderwidth
+  } -cleanup cleanup \
+  -result 2
+  
+tcltest::test wme-configure-cget-bd {configure/cget -bd returns the correct result} \
+  -setup setup \
+  -body {
+    .wme configure -bd 2
+    .wme cget -bd
+  } -cleanup cleanup \
+  -result 2
+  
+tcltest::test wme-configure-borderwidth-cget-bd {configure/cget -borderwidth/-bd returns the correct result} \
+  -setup setup \
+  -body {
+    .wme configure -borderwidth 2
+    .wme cget -bd
+  } -cleanup cleanup \
+  -result 2
+  
+tcltest::test wme-configure-bd-cget-borderwidth {configure/cget -bd/-borderwidth returns the correct result} \
+  -setup setup \
+  -body {
+    .wme configure -bd 2
+    .wme cget -borderwidth
+  } -cleanup cleanup \
+  -result 2
+
+#---------------------------------
+tcltest::test wme-configure-cursor {configure -cursor returns correct result} \
+  -setup {
+    setup -cursor xterm
+  } -body {
+    .wme configure -cursor
+  } -cleanup cleanup \
+  -result {-cursor cursor Cursor xterm xterm}
+
+tcltest::test wme-cget-cursor {cget -cursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -cursor
+  } -cleanup cleanup \
+  -result xterm
+  
+tcltest::test wme-configure-cget-cursor {configure/cget -cursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -cursor watch
+    .wme cget -cursor
+  } -cleanup cleanup \
+  -result watch
+
+#---------------------------------  
+tcltest::test wme-configure-disabledbackground {configure -disabledbackground returns correct result} \
+  -setup {
+    setup -disabledbackground yellow
+  } -body {
+    .wme configure -disabledbackground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-disabledbackground disabledBackground DisabledBackground \S+ yellow}
+
+tcltest::test wme-cget-disabledbackground {cget -disabledbackground returns correct result} \
+  -setup {
+    setup -disabledbackground yellow
+  } -body {
+    .wme cget -disabledbackground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test wme-configure-cget-disabledbackground {configure/cget -disabledbackground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -disabledbackground yellow
+    .wme cget -disabledbackground
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test wme-configure-disabledforeground {configure -disabledforeground returns correct result} \
+  -setup {
+    setup -disabledforeground yellow
+  } -body {
+    .wme configure -disabledforeground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-disabledforeground disabledForeground DisabledForeground \S+ yellow}
+
+tcltest::test wme-cget-disabledforeground {cget -disabledforeground returns correct result} \
+  -setup {
+    setup -disabledforeground yellow
+  } -body {
+    .wme cget -disabledforeground
+  } -cleanup cleanup \
+  -result yellow
+
+tcltest::test wme-configure-cget-disabledforeground {configure/cget -disabledforeground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -disabledforeground orange
+    .wme cget -disabledforeground
+  } -cleanup cleanup \
+  -result orange
+  
+#---------------------------------
+tcltest::test wme-configure-exportselection {configure -exportselection returns correct result} \
+  -setup {
+    setup -exportselection 1
+  } -body {
+    .wme configure -exportselection
+  } -cleanup cleanup \
+  -result {-exportselection exportSelection ExportSelection 1 1}
+
+tcltest::test wme-cget-exportselection {cget -exportselection returns correct result} \
+  -setup {
+    setup -exportselection 1
+  } -body {
+    .wme cget -exportselection
+  } -cleanup cleanup \
+  -result 1
+  
+tcltest::test wme-configure-cget-exportselection {configure/cget -exportselection returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -exportselection 0
+    .wme cget -exportselection
+  } -cleanup cleanup \
+  -result 0
+  
+#---------------------------------
+tcltest::test wme-configure-font {configure -font returns correct result} \
+  -setup {
+    setup -font TkTextFont
+  } -body {
+    .wme configure -font
+  } -cleanup cleanup \
+  -result {-font font Font TkTextFont TkTextFont}
+  
+tcltest::test wme-cget-font {cget -font returns correct result} \
+  -setup {
+    setup -font TkTextFont
+  } -body {
+    .wme cget -font
+  } -cleanup cleanup \
+  -result TkTextFont
+  
+tcltest::test wme-configure-cget-font {configure/cget -font returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -font TkFixedFont
+    .wme cget -font
+  } -cleanup cleanup \
+  -result TkFixedFont
+  
+#---------------------------------
+tcltest::test wme-configure-foreground {configure -foreground returns correct result} \
+  -setup {
+    setup -foreground yellow
+  } -body {
+    .wme configure -foreground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-foreground foreground Foreground \S+ yellow}
+  
+tcltest::test wme-configure-fg {configure -fg returns correct result} \
+  -setup {
+    setup -fg yellow
+  } -body {
+    .wme configure -fg
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-foreground foreground Foreground \S+ yellow}
+
+tcltest::test wme-cget-foreground {cget -foreground returns correct result} \
+  -setup {
+    setup -foreground yellow
+  } -body {
+    .wme cget -foreground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test wme-cget-fg {cget -fg returns correct result} \
+  -setup {
+    setup -fg yellow
+  } -body {
+    .wme cget -fg
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test wme-configure-cget-foreground {configure/cget -foreground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -foreground red
+    .wme cget -foreground
+  } -cleanup cleanup \
+  -result red
+
+tcltest::test wme-configure-cget-fg {configure/cget -fg returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -fg red
+    .wme cget -fg
+  } -cleanup cleanup \
+  -result red
+  
+tcltest::test wme-configure-foreground-cget-fg {configure/cget -foreground/-fg returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -foreground red
+    .wme cget -fg
+  } -cleanup cleanup \
+  -result red
+  
+tcltest::test wme-configure-fg-cget-foreground {configure/cget -fg/-foreground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -fg red
+    .wme cget -foreground
+  } -cleanup cleanup \
+  -result red
+
+#---------------------------------
+tcltest::test wme-configure-highlightbackground {configure -highlightbackground returns correct result} \
+  -setup {
+    setup -highlightbackground yellow
+  } -body {
+    .wme configure -highlightbackground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-highlightbackground highlightBackground HighlightBackground \S+ yellow}
+
+tcltest::test wme-cget-highlightbackground {cget -highlightbackground returns correct result} \
+  -setup {
+    setup -highlightbackground yellow
+  } -body {
+    .wme cget -highlightbackground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test wme-configure-cget-highlightbackground {configure/cget -highlightbackground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -highlightbackground yellow
+    .wme cget -highlightbackground
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test wme-configure-highlightcolor {configure -highlightcolor returns correct result} \
+  -setup {
+    setup -highlightcolor yellow
+  } -body {
+    .wme configure -highlightcolor
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-highlightcolor highlightColor HighlightColor \S+ yellow}
+  
+tcltest::test wme-cget-highlightcolor {cget -highlightcolor returns correct result} \
+  -setup {
+    setup -highlightcolor yellow
+  } -body {
+    .wme cget -highlightcolor
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test wme-configure-cget-highlightcolor {configure/cget -highlightcolor returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -highlightcolor yellow
+    .wme cget -highlightcolor
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test wme-configure-highlightthickness {configure -highlightthickness returns correct result} \
+  -setup {
+    setup -highlightthickness 2
+  } -body {
+    .wme configure -highlightthickness
+  } -cleanup cleanup \
+  -match glob \
+  -result {-highlightthickness highlightThickness HighlightThickness * 2}
+  
+tcltest::test wme-cget-highlightthickness {cget -highlightthickness returns correct result} \
+  -setup {
+    setup -highlightthickness 2
+  } -body {
+    .wme cget -highlightthickness
+  } -cleanup cleanup \
+  -result 2
+  
+tcltest::test wme-configure-cget-highlightthickness {configure/cget -highlightthickness returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -highlightthickness 5
+    .wme cget -highlightthickness
+  } -cleanup cleanup \
+  -result 5
+
+#---------------------------------
+tcltest::test wme-configure-insertbackground {configure -insertbackground returns correct result} \
+  -setup {
+    setup -insertbackground yellow
+  } -body {
+    .wme configure -insertbackground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-insertbackground insertBackground InsertBackground \S+ yellow}
+  
+tcltest::test wme-cget-insertbackground {cget -insertbackground returns correct result} \
+  -setup {
+    setup -insertbackground yellow
+  } -body {
+    .wme cget -insertbackground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test wme-configure-cget-insertbackground {configure/cget -insertbackground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -insertbackground yellow
+    .wme cget -insertbackground
+  } -cleanup cleanup \
+  -result yellow
+  
+#---------------------------------
+tcltest::test wme-configure-insertborderwidth {configure -insertborderwidth returns correct result} \
+  -setup {
+    setup -insertborderwidth 0
+  } -body {
+    .wme configure -insertborderwidth
+  } -cleanup cleanup \
+  -match glob \
+  -result {-insertborderwidth insertBorderWidth InsertBorderWidth * 0}
+  
+tcltest::test wme-cget-insertborderwidth {cget -insertborderwidth returns correct result} \
+  -setup {
+    setup -insertborderwidth 0
+  } -body {
+    .wme cget -insertborderwidth
+  } -cleanup cleanup \
+  -result 0
+  
+tcltest::test wme-configure-cget-insertborderwidth {configure/cget -insertborderwidth returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -insertborderwidth 0
+    .wme cget -insertborderwidth
+  } -cleanup cleanup \
+  -result 0
+
+#---------------------------------
+tcltest::test wme-configure-insertofftime {configure -insertofftime returns correct result} \
+  -setup {
+    setup -insertofftime 500
+  } -body {
+    .wme configure -insertofftime
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-insertofftime insertOffTime InsertOffTime \d+ 500}
+  
+tcltest::test wme-cget-insertofftime {cget -insertofftime returns correct result} \
+  -setup {
+    setup -insertofftime 500
+  } -body {
+    .wme cget -insertofftime
+  } -cleanup cleanup \
+  -result 500
+  
+tcltest::test wme-configure-cget-insertofftime {configure/cget -insertofftime returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -insertofftime 600
+    .wme cget -insertofftime
+  } -cleanup cleanup \
+  -result 600
+  
+#---------------------------------
+tcltest::test wme-configure-insertontime {configure -insertontime returns correct result} \
+  -setup {
+    setup -insertontime 500
+  } -body {
+    .wme configure -insertontime
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-insertontime insertOnTime InsertOnTime \d+ 500}
+
+tcltest::test wme-cget-insertontime {cget -insertontime returns correct result} \
+  -setup {
+    setup -insertontime 500
+  } -body {
+    .wme cget -insertontime
+  } -cleanup cleanup \
+  -result 500
+  
+tcltest::test wme-configure-cget-insertontime {configure/cget -insertontime returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -insertontime 1000
+    .wme cget -insertontime
+  } -cleanup cleanup \
+  -result 1000
+
+#---------------------------------
+tcltest::test wme-configure-insertwidth {configure -insertwidth returns correct result} \
+  -setup {
+    setup -insertwidth 5
+  } -body {
+    .wme configure -insertwidth
+  } -cleanup cleanup \
+  -match glob \
+  -result {-insertwidth insertWidth InsertWidth * 5}
+  
+tcltest::test wme-cget-insertwidth {cget -insertwidth returns correct result} \
+  -setup {
+    setup -insertwidth 5
+  } -body {
+    .wme cget -insertwidth
+  } -cleanup cleanup \
+  -result 5
+  
+tcltest::test wme-configure-cget-insertwidth {configure/cget -insertwidth returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -insertwidth 10
+    .wme cget -insertwidth
+  } -cleanup cleanup \
+  -result 10
+  
+#---------------------------------
+tcltest::test wme-configure-invalidcommand {configure -invalidcommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -invalidcommand
+  } -cleanup cleanup \
+  -result {-invalidcommand invalidCommand InvalidCommand {} {}}
+  
+tcltest::test wme-configure-invcmd {configure -invcmd returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -invcmd
+  } -cleanup cleanup \
+  -result {-invalidcommand invalidCommand InvalidCommand {} {}}
+  
+tcltest::test wme-cget-invalidcommand {cget -invalidcommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -invalidcommand
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test wme-cget-invcmd {cget -invcmd returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -invcmd
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test wme-configure-cget-invalidcommand {configure/cget -invalidcommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -invalidcommand foobar
+    .wme cget -invalidcommand
+  } -cleanup cleanup \
+  -result foobar
+  
+tcltest::test wme-configure-cget-invcmd {configure/cget -invcmd returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -invcmd foobar
+    .wme cget -invcmd
+  } -cleanup cleanup \
+  -result foobar
+  
+tcltest::test wme-configure-invalidcommand-cget-invcmd {configure/cget -invalidcommand/-invcmd returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -invalidcommand foobar
+    .wme cget -invcmd
+  } -cleanup cleanup \
+  -result foobar
+  
+tcltest::test wme-configure-invcmd-cget-invalidcommand {configure/cget -invcmd/-invalidcommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -invcmd foobar
+    .wme cget -invalidcommand
+  } -cleanup cleanup \
+  -result foobar
+  
+#---------------------------------
+tcltest::test wme-configure-justify {configure -justify returns correct result} \
+  -setup {
+    setup -justify right
+  } -body {
+    .wme configure -justify
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-justify justify Justify \S+ right}
+  
+tcltest::test wme-cget-justify {cget -justify returns correct result} \
+  -setup {
+    setup -justify right
+  } -body {
+    .wme cget -justify
+  } -cleanup cleanup \
+  -result right
+  
+tcltest::test wme-configure-cget-justify {configure/cget -justify returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -justify right
+    .wme cget -justify
+  } -cleanup cleanup \
+  -result right
+  
+#---------------------------------
+tcltest::test wme-configure-readonlybackground {configure -readonlybackground returns correct result} \
+  -setup {
+    setup -readonlybackground yellow
+  } -body {
+    .wme configure -readonlybackground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-readonlybackground readonlyBackground ReadonlyBackground \S+ yellow}
+  
+tcltest::test wme-cget-readonlybackground {cget -readonlybackground returns correct result} \
+  -setup {
+    setup -readonlybackground yellow
+  } -body {
+    .wme cget -readonlybackground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test wme-configure-cget-readonlybackground {configure/cget -readonlybackground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -readonlybackground yellow
+    .wme cget -readonlybackground
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test wme-configure-relief {configure -relief returns correct result} \
+  -setup {
+    setup -relief flat
+  } -body {
+    .wme configure -relief
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-relief relief Relief \S+ flat}
+  
+tcltest::test wme-cget-relief {cget -relief returns correct result} \
+  -setup {
+    setup -relief flat
+  } -body {
+    .wme cget -relief
+  } -cleanup cleanup \
+  -result flat
+
+tcltest::test wme-configure-cget-relief {configure/cget -relief returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -relief ridge
+    .wme cget -relief
+  } -cleanup cleanup \
+  -result ridge
+  
+#---------------------------------
+tcltest::test wme-configure-selectbackground {configure -selectbackground returns correct result} \
+  -setup {
+    setup -selectbackground yellow
+  } -body {
+    .wme configure -selectbackground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-selectbackground selectBackground Background \S+ yellow}
+  
+tcltest::test wme-cget-selectbackground {cget -selectbackground returns correct result} \
+  -setup {
+    setup -selectbackground yellow
+  } -body {
+    .wme cget -selectbackground
+  } -cleanup cleanup \
+  -result yellow
+
+tcltest::test wme-configure-cget-selectbackground {configure/cget -selectbackground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -selectbackground yellow
+    .wme cget -selectbackground
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test wme-configure-selectborderwidth {configure -selectborderwidth returns correct result} \
+  -setup {
+    setup -selectborderwidth 5
+  } -body {
+    .wme configure -selectborderwidth
+  } -cleanup cleanup \
+  -match glob \
+  -result {-selectborderwidth selectBorderWidth BorderWidth * 5}
+  
+tcltest::test wme-cget-selectborderwidth {cget -selectborderwidth returns correct result} \
+  -setup {
+    setup -selectborderwidth 5
+  } -body {
+    .wme cget -selectborderwidth
+  } -cleanup cleanup \
+  -result 5
+  
+tcltest::test wme-configure-cget-selectborderwidth {configure/cget -selectborderwidth returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -selectborderwidth 1
+    .wme cget -selectborderwidth
+  } -cleanup cleanup \
+  -result 1
+  
+#---------------------------------
+tcltest::test wme-configure-selectforeground {configure -selectforeground returns correct result} \
+  -setup {
+    setup -selectforeground yellow
+  } -body {
+    .wme configure -selectforeground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-selectforeground selectForeground Foreground \S+ yellow}
+
+tcltest::test wme-cget-selectforeground {cget -selectforeground returns correct result} \
+  -setup {
+    setup -selectforeground yellow
+  } -body {
+    .wme cget -selectforeground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test wme-configure-cget-selectforeground {configure/cget -selectforeground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -selectforeground yellow
+    .wme cget -selectforeground
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test wme-configure-show {configure -show returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -show
+  } -cleanup cleanup \
+  -result {-show show Show {} {}}
+  
+tcltest::test wme-cget-show {cget -show returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -show
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test wme-configure-cget-show {configure/cget -show returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -show 1
+    .wme cget -show
+  } -cleanup cleanup \
+  -result 1
+
+#---------------------------------
+tcltest::test wme-configure-state {configure -state returns correct result} \
+  -setup {
+    setup -state disabled
+  } -body {
+    .wme configure -state
+  } -cleanup cleanup \
+  -result {-state state State normal disabled}
+  
+tcltest::test wme-cget-state {cget -state returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -state
+  } -cleanup cleanup \
+  -result normal
+  
+tcltest::test wme-configure-cget-state {configure/cget -state returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -state disabled
+    .wme cget -state
+  } -cleanup cleanup \
+  -result disabled
+
+#---------------------------------
+tcltest::test wme-configure-takefocus {configure -takefocus returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -takefocus
+  } -cleanup cleanup \
+  -result {-takefocus takeFocus TakeFocus 1 1}
+  
+tcltest::test wme-cget-takefocus {cget -takefocus returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -takefocus
+  } -cleanup cleanup \
+  -result 1
+  
+tcltest::test wme-configure-cget-takefocus {configure/cget -takefocsu returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -takefocus 0
+    .wme cget -takefocus
+  } -cleanup cleanup \
+  -result 0
+           
+#---------------------------------
+tcltest::test wme-configure-textvariable {configure -textvariable returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -textvariable
+  } -cleanup cleanup \
+  -result {-textvariable textVariable Variable {} {}}
+
+tcltest::test wme-cget-textvariable {cget -textvariable returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -textvariable
+  } -cleanup cleanup \
+  -result ""
+
+tcltest::test wme-configure-cget-textvariable {configure/cget -textvariable returns correct result} \
+  -setup setup \
+  -body {
+    set ::foobar "buddy"
+    .wme configure -textvariable ::foobar
+    .wme cget -textvariable
+  } -cleanup {
+    cleanup
+    unset ::foobar
+  } -result ::foobar
+
+#---------------------------------
+tcltest::test wme-configure-validate {configure -validate returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -validate
+  } -cleanup cleanup \
+  -result {-validate validate Validate none none}
+
+tcltest::test wme-cget-validate {cget -validate returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -validate
+  } -cleanup cleanup \
+  -result none
+
+tcltest::test wme-configure-cget-validate {configure/cget -validate returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -validate key
+    .wme cget -validate
+  } -cleanup cleanup \
+  -result key
+
+#---------------------------------
+tcltest::test wme-configure-validatecommand {configure -validatecommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -validatecommand
+  } -cleanup cleanup \
+  -result {-validatecommand validateCommand ValidateCommand {} {}}
+
+tcltest::test wme-configure-vcmd {configure -vcmd returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -vcmd
+  } -cleanup cleanup \
+  -result {-validatecommand validateCommand ValidateCommand {} {}}
+
+tcltest::test wme-cget-validatecommand {cget -validatecommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -validatecommand
+  } -cleanup cleanup \
+  -result ""
+
+tcltest::test wme-cget-vcmd {cget -vcmd returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -vcmd
+  } -cleanup cleanup \
+  -result ""
+
+tcltest::test wme-configure-cget-validatecommand {configure/cget -validatecommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -validatecommand foobar
+    .wme cget -validatecommand
+  } -cleanup cleanup \
+  -result foobar
+
+tcltest::test wme-configure-cget-vcmd {configure/cget -vcmd returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -vcmd foobar
+    .wme cget -vcmd
+  } -cleanup cleanup \
+  -result foobar
+
+#---------------------------------
+tcltest::test wme-configure-watermark {configure -watermark returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark
+  } -cleanup cleanup \
+  -result {-watermark watermark Watermark {} {}}
+  
+tcltest::test wme-cget-watermark {cget -watermark returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -watermark
+  } -cleanup cleanup \
+  -result ""
+
+tcltest::test wme-configure-cget-watermark {configure/cget -watermark returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme cget -watermark
+  } -cleanup cleanup \
+  -result "Enter string"
+
+tcltest::test wme-no-watermark {verify that no watermark exists in the entry field when -watermark is empty} \
+  -setup setup \
+  -body {
+    .wme configure -watermark ""
+    .wme.e get
+  } -cleanup cleanup \
+  -result ""
+
+tcltest::test wme-watermark {verify that a watermark exists in the entry field when -watermark is non-empty} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme.e get
+  } -cleanup cleanup \
+  -result "Enter string"
+
+tcltest::test wme-watermark-removed {verify that the watermark is removed when text is inserted into the widget} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme insert end "foobar"
+    .wme.e get
+  } -cleanup cleanup \
+  -result "foobar"
+
+#---------------------------------
+tcltest::test wme-configure-watermarkforeground {configure -watermarkforeground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermarkforeground
+  } -cleanup cleanup \
+  -result {-watermarkforeground watermarkForeground Foreground {light gray} {light gray}}
+  
+tcltest::test wme-cget-watermarkforeground {cget -watermarkforeground returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -watermarkforeground
+  } -cleanup cleanup \
+  -result "light gray"
+  
+tcltest::test wme-configure-cget-watermarkforeground {configure/cget -watermarkforeground returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermarkforeground orange
+    .wme cget -watermarkforeground
+  } -cleanup cleanup \
+  -result orange
+
+tcltest::test wme-watermark-color-check {check that the color is the watercolor when the watermark is present} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string" -watermarkforeground orange -foreground black
+    .wme.e cget -foreground
+  } -cleanup cleanup \
+  -result orange
+
+tcltest::test wme-watermark-removed-color-check {check that the color is the foreground color when the watermark is removed} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string" -watermarkforeground orange -foreground black
+    .wme insert end "foobar"
+    .wme.e cget -foreground
+  } -cleanup cleanup \
+  -result black
+
+#---------------------------------
+tcltest::test wme-configure-width {configure -width returns correct result} \
+  -setup {
+    setup -width 40
+  } -body {
+    .wme configure -width
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-width width Width \d+ 40}
+
+tcltest::test wme-cget-width {cget -width returns correct result} \
+  -setup {
+    setup -width 40
+  } -body {
+    .wme cget -width
+  } -cleanup cleanup \
+  -result 40
+  
+tcltest::test wme-configure-cget-width {configure/cget -width returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -width 50
+    .wme cget -width
+  } -cleanup cleanup \
+  -result 50
+
+#---------------------------------
+tcltest::test wme-configure-xscrollcommand {configure -xscrollcommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -xscrollcommand
+  } -cleanup cleanup \
+  -result {-xscrollcommand xScrollCommand ScrollCommand {} {}}
+
+tcltest::test wme-cget-xscrollcommand {cget -xscrollcommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme cget -xscrollcommand
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test wme-configure-cget-xscrollcommand {configure/cget -xscrollcommand returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -xscrollcommand "foobar"
+    .wme cget -xscrollcommand
+  } -cleanup cleanup \
+  -result "foobar"
+
+#---------------------------------
+tcltest::test wme-bbox-0 {bbox returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme bbox 0
+  } -cleanup cleanup \
+  -match regexp \
+  -result {\d+ -\d+ \d+ \d+}
+  
+#---------------------------------
+tcltest::test wme-delete-0 {delete returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme delete 0
+    .wme get
+  } -cleanup cleanup \
+  -result "oobar"
+  
+tcltest::test wme-delete-end {delete returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme delete end
+    .wme get
+  } -cleanup cleanup \
+  -result "foobar"
+  
+tcltest::test wme-delete-less {delete returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme delete -1
+    .wme get
+  } -cleanup cleanup \
+  -result "oobar"
+  
+tcltest::test wme-delete-more {delete returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme delete 10
+    .wme get
+  } -cleanup cleanup \
+  -result "foobar"
+  
+tcltest::test wme-delete-first-last {delete first/last returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme delete 1 4
+    .wme get
+  } -cleanup cleanup \
+  -result "far"
+  
+tcltest::test wme-delete-all {delete all returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme delete 0 end
+    .wme get
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test wme-delete-watermark {delete returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme delete 1 end
+    .wme get
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test wme-delete-watermark-all {delete returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme delete 0 end
+    .wme get
+  } -cleanup cleanup \
+  -result ""
+
+#---------------------------------
+tcltest::test wme-get-empty {get returns correct result} \
+  -setup setup \
+  -body {
+    .wme get
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test wme-get-watermark-empty {get returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme get
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test wme-get {get returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme get
+  } -cleanup cleanup \
+  -result "foobar"
+  
+tcltest::test wme-get-watermark {get returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme insert end "foobar"
+    .wme get
+  } -cleanup cleanup \
+  -result "foobar"
+
+#---------------------------------
+tcltest::test wme-icursor-watermark-empty-1 {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Empty string"
+    .wme icursor 1
+    .wme index insert
+  } -cleanup cleanup \
+  -result 0
+
+tcltest::test wme-icursor-watermark-empty-end {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Empty string"
+    .wme icursor end
+    .wme index insert
+  } -cleanup cleanup \
+  -result 0
+  
+tcltest::test wme-icursor-watermark-empty-less {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Empty string"
+    .wme icursor -1
+    .wme index insert
+  } -cleanup cleanup \
+  -result 0
+  
+tcltest::test wme-icursor-1 {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme icursor 1
+    .wme index insert
+  } -cleanup cleanup \
+  -result 1
+  
+tcltest::test wme-icursor-end {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme icursor end
+    .wme index insert
+  } -cleanup cleanup \
+  -result 6
+  
+tcltest::test wme-icursor-less {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme icursor -1
+    .wme index insert
+  } -cleanup cleanup \
+  -result 0
+  
+tcltest::test wme-icursor-more {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .wme insert end "foobar"
+    .wme icursor 10
+    .wme index insert
+  } -cleanup cleanup \
+  -result 6
+
+#---------------------------------
+tcltest::test wme-index-1 {make sure the index of end is 0 when watermark is displayed} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme index end
+  } -cleanup cleanup \
+  -result 0
+
+tcltest::test wme-index-2 {make sure the index is correct if the watermark is not displayed} \
+  -setup setup \
+  -body {
+    .wme configure -watermark "Enter string"
+    .wme insert end "foobar"
+    .wme index end
+  } -cleanup cleanup \
+  -result 6
+
+# Cleanup the tests
+tcltest::cleanupTests
+  
+