arcadia 0.13.0 → 0.13.1

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

@@ -1,1325 +0,0 @@
-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
-  
-