arcadia 0.12.2 → 0.13.0

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

@@ -0,0 +1,1023 @@
+lappend auto_path ".."
+
+package require tokensearch
+package require tcltest 2.2
+
+proc setup {args} {
+  eval "tokensearch::tokensearch .ts $args"
+  pack .ts
+}
+
+proc cleanup {} {
+  destroy .ts
+}
+
+# Test Contraints
+tcltest::testConstraint aqua [expr {[tk windowingsystem] eq "aqua"}]
+tcltest::testConstraint x11  [expr {[tk windowingsystem] eq "x11"}]
+
+# Skip list
+tcltest::skip ts-bbox-0
+
+# Tests
+#---------------------------------
+
+tcltest::test ts-configure-badoption {configure called with a bad option} \
+  -setup setup \
+  -body {
+    .ts configure -foobar
+  } -cleanup cleanup \
+  -returnCodes error -result "TokenSearch configuration option -foobar does not exist"
+  
+tcltest::test ts-configure-badoptionwithvalue {configure called with a bad option with a value} \
+  -setup setup \
+  -body {
+    .ts configure -foobar bubba
+  } -cleanup cleanup \
+  -returnCodes error -result "Illegal option given to the tokensearch configure command (-foobar)"
+  
+tcltest::test ts-cget {cget without an option} \
+  -setup setup \
+  -body {
+    .ts cget
+  } -cleanup cleanup \
+  -returnCodes error -result "Incorrect number of parameters given to the tokensearch cget command"
+  
+#---------------------------------
+tcltest::test ts-background {setup -background returns correct result} \
+  -setup {
+    setup -background blue
+  } -body {
+    .ts cget -background
+  } -cleanup cleanup \
+  -result blue
+
+tcltest::test ts-background-cget-bg {setup -background returns correct result} \
+  -setup {
+    setup -background blue
+  } -body {
+    .ts cget -bg
+  } -cleanup cleanup \
+  -result blue
+  
+tcltest::test ts-configure-background {configure -background returns correct result} \
+  -setup {
+    setup -background blue
+  } -body {
+    .ts configure -background
+  } -cleanup cleanup \
+  -result {-background background Background white blue}
+
+tcltest::test ts-bg {setup -bg returns correct result} \
+  -setup {
+    setup -bg blue
+  } -body {
+    .ts cget -bg
+  } -cleanup cleanup \
+  -result blue
+
+tcltest::test ts-bg-cget-background {setup -bg returns correct result} \
+  -setup {
+    setup -bg blue
+  } -body {
+    .ts cget -background
+  } -cleanup cleanup \
+  -result blue
+
+tcltest::test ts-configure-bg {configure -bg returns correct result} \
+  -setup {
+    setup -bg blue
+  } -body {
+    .ts configure -bg
+  } -cleanup cleanup \
+  -result {-background background Background white blue}
+  
+tcltest::test ts-cget-background {cget -background returns the correct result} \
+  -setup setup \
+  -body {
+    .ts cget -background
+  } -cleanup cleanup \
+  -result white
+  
+tcltest::test ts-cget-bg {cget -bg returns the correct result} \
+  -setup setup \
+  -body {
+    .ts cget -bg
+  } -cleanup cleanup \
+  -result white
+  
+tcltest::test ts-configure-cget-background {configure/cget -background returns the correct result} \
+  -setup setup \
+  -body {
+    .ts configure -background blue
+    .ts cget -background
+  } -cleanup cleanup \
+  -result blue
+  
+tcltest::test ts-configure-cget-bg {configure/cget -bg returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -bg blue
+    .ts cget -bg
+  } -cleanup cleanup \
+  -result blue
+  
+tcltest::test ts-configure-background-cget-bg {configure/cget -background/-bg returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -background blue
+    .ts cget -bg
+  } -cleanup cleanup \
+  -result blue
+  
+tcltest::test ts-configure-bg-cget-background {configure/cget -bg/-background returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -bg blue
+    .ts cget -background
+  } -cleanup cleanup \
+  -result blue
+  
+#---------------------------------
+tcltest::test ts-configure-borderwidth {configure -borderwidth returns correct result} \
+  -setup {
+    setup -borderwidth 5
+  } -body {
+    .ts configure -borderwidth
+  } -cleanup cleanup \
+  -match glob \
+  -result {-borderwidth borderWidth BorderWidth * 5}
+  
+tcltest::test ts-configure-bd {configure -bd returns correct result} \
+  -setup {
+    setup -bd 5
+  } -body {
+    .ts configure -bd
+  } -cleanup cleanup \
+  -match glob \
+  -result {-borderwidth borderWidth BorderWidth * 5}
+  
+tcltest::test ts-cget-borderwidth {cget -borderwidth returns the correct result} \
+  -setup {
+    setup -borderwidth 5
+  } -body {
+    .ts cget -borderwidth
+  } -cleanup cleanup \
+  -result 5
+  
+tcltest::test ts-cget-bd {cget -bd returns the correct result} \
+  -setup {
+    setup -bd 5
+  } -body {
+    .ts cget -bd
+  } -cleanup cleanup \
+  -result 5
+
+tcltest::test ts-configure-cget-borderwidth {configure/cget -borderwidth returns the correct result} \
+  -setup setup \
+  -body {
+    .ts configure -borderwidth 2
+    .ts cget -borderwidth
+  } -cleanup cleanup \
+  -result 2
+  
+tcltest::test ts-configure-cget-bd {configure/cget -bd returns the correct result} \
+  -setup setup \
+  -body {
+    .ts configure -bd 2
+    .ts cget -bd
+  } -cleanup cleanup \
+  -result 2
+  
+tcltest::test ts-configure-borderwidth-cget-bd {configure/cget -borderwidth/-bd returns the correct result} \
+  -setup setup \
+  -body {
+    .ts configure -borderwidth 2
+    .ts cget -bd
+  } -cleanup cleanup \
+  -result 2
+  
+tcltest::test ts-configure-bd-cget-borderwidth {configure/cget -bd/-borderwidth returns the correct result} \
+  -setup setup \
+  -body {
+    .ts configure -bd 2
+    .ts cget -borderwidth
+  } -cleanup cleanup \
+  -result 2
+
+#---------------------------------
+tcltest::test ts-configure-exportselection {configure -exportselection returns correct result} \
+  -setup {
+    setup -exportselection 1
+  } -body {
+    .ts configure -exportselection
+  } -cleanup cleanup \
+  -result {-exportselection exportSelection ExportSelection 1 1}
+
+tcltest::test ts-cget-exportselection {cget -exportselection returns correct result} \
+  -setup {
+    setup -exportselection 1
+  } -body {
+    .ts cget -exportselection
+  } -cleanup cleanup \
+  -result 1
+  
+tcltest::test ts-configure-cget-exportselection {configure/cget -exportselection returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -exportselection 0
+    .ts cget -exportselection
+  } -cleanup cleanup \
+  -result 0
+  
+#---------------------------------
+tcltest::test ts-configure-font {configure -font returns correct result} \
+  -setup {
+    setup -font TkTextFont
+  } -body {
+    .ts configure -font
+  } -cleanup cleanup \
+  -result {-font font Font TkFixedFont TkTextFont}
+  
+tcltest::test ts-cget-font {cget -font returns correct result} \
+  -setup {
+    setup -font TkTextFont
+  } -body {
+    .ts cget -font
+  } -cleanup cleanup \
+  -result TkTextFont
+  
+tcltest::test ts-configure-cget-font {configure/cget -font returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -font TkFixedFont
+    .ts cget -font
+  } -cleanup cleanup \
+  -result TkFixedFont
+  
+#---------------------------------
+tcltest::test ts-configure-foreground {configure -foreground returns correct result} \
+  -setup {
+    setup -foreground yellow
+  } -body {
+    .ts configure -foreground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-foreground foreground Foreground \S+ yellow}
+  
+tcltest::test ts-configure-fg {configure -fg returns correct result} \
+  -setup {
+    setup -fg yellow
+  } -body {
+    .ts configure -fg
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-foreground foreground Foreground \S+ yellow}
+
+tcltest::test ts-cget-foreground {cget -foreground returns correct result} \
+  -setup {
+    setup -foreground yellow
+  } -body {
+    .ts cget -foreground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test ts-cget-fg {cget -fg returns correct result} \
+  -setup {
+    setup -fg yellow
+  } -body {
+    .ts cget -fg
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test ts-configure-cget-foreground {configure/cget -foreground returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -foreground red
+    .ts cget -foreground
+  } -cleanup cleanup \
+  -result red
+
+tcltest::test ts-configure-cget-fg {configure/cget -fg returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -fg red
+    .ts cget -fg
+  } -cleanup cleanup \
+  -result red
+  
+tcltest::test ts-configure-foreground-cget-fg {configure/cget -foreground/-fg returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -foreground red
+    .ts cget -fg
+  } -cleanup cleanup \
+  -result red
+  
+tcltest::test ts-configure-fg-cget-foreground {configure/cget -fg/-foreground returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -fg red
+    .ts cget -foreground
+  } -cleanup cleanup \
+  -result red
+
+#---------------------------------
+tcltest::test ts-configure-highlightbackground {configure -highlightbackground returns correct result} \
+  -setup {
+    setup -highlightbackground yellow
+  } -body {
+    .ts configure -highlightbackground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-highlightbackground highlightBackground HighlightBackground \S+ yellow}
+
+tcltest::test ts-cget-highlightbackground {cget -highlightbackground returns correct result} \
+  -setup {
+    setup -highlightbackground yellow
+  } -body {
+    .ts cget -highlightbackground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test ts-configure-cget-highlightbackground {configure/cget -highlightbackground returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -highlightbackground yellow
+    .ts cget -highlightbackground
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test ts-configure-highlightcolor {configure -highlightcolor returns correct result} \
+  -setup {
+    setup -highlightcolor yellow
+  } -body {
+    .ts configure -highlightcolor
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-highlightcolor highlightColor HighlightColor \S+ yellow}
+  
+tcltest::test ts-cget-highlightcolor {cget -highlightcolor returns correct result} \
+  -setup {
+    setup -highlightcolor yellow
+  } -body {
+    .ts cget -highlightcolor
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test ts-configure-cget-highlightcolor {configure/cget -highlightcolor returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -highlightcolor yellow
+    .ts cget -highlightcolor
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test ts-configure-highlightthickness {configure -highlightthickness returns correct result} \
+  -setup {
+    setup -highlightthickness 2
+  } -body {
+    .ts configure -highlightthickness
+  } -cleanup cleanup \
+  -match glob \
+  -result {-highlightthickness highlightThickness HighlightThickness * 2}
+  
+tcltest::test ts-cget-highlightthickness {cget -highlightthickness returns correct result} \
+  -setup {
+    setup -highlightthickness 2
+  } -body {
+    .ts cget -highlightthickness
+  } -cleanup cleanup \
+  -result 2
+  
+tcltest::test ts-configure-cget-highlightthickness {configure/cget -highlightthickness returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -highlightthickness 5
+    .ts cget -highlightthickness
+  } -cleanup cleanup \
+  -result 5
+
+#---------------------------------
+tcltest::test ts-configure-insertbackground {configure -insertbackground returns correct result} \
+  -setup {
+    setup -insertbackground yellow
+  } -body {
+    .ts configure -insertbackground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-insertbackground insertBackground InsertBackground \S+ yellow}
+  
+tcltest::test ts-cget-insertbackground {cget -insertbackground returns correct result} \
+  -setup {
+    setup -insertbackground yellow
+  } -body {
+    .ts cget -insertbackground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test ts-configure-cget-insertbackground {configure/cget -insertbackground returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -insertbackground yellow
+    .ts cget -insertbackground
+  } -cleanup cleanup \
+  -result yellow
+  
+#---------------------------------
+tcltest::test ts-configure-insertborderwidth {configure -insertborderwidth returns correct result} \
+  -setup {
+    setup -insertborderwidth 0
+  } -body {
+    .ts configure -insertborderwidth
+  } -cleanup cleanup \
+  -match glob \
+  -result {-insertborderwidth insertBorderWidth InsertBorderWidth * 0}
+  
+tcltest::test ts-cget-insertborderwidth {cget -insertborderwidth returns correct result} \
+  -setup {
+    setup -insertborderwidth 0
+  } -body {
+    .ts cget -insertborderwidth
+  } -cleanup cleanup \
+  -result 0
+  
+tcltest::test ts-configure-cget-insertborderwidth {configure/cget -insertborderwidth returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -insertborderwidth 0
+    .ts cget -insertborderwidth
+  } -cleanup cleanup \
+  -result 0
+
+#---------------------------------
+tcltest::test ts-configure-insertofftime {configure -insertofftime returns correct result} \
+  -setup {
+    setup -insertofftime 500
+  } -body {
+    .ts configure -insertofftime
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-insertofftime insertOffTime InsertOffTime \d+ 500}
+  
+tcltest::test ts-cget-insertofftime {cget -insertofftime returns correct result} \
+  -setup {
+    setup -insertofftime 500
+  } -body {
+    .ts cget -insertofftime
+  } -cleanup cleanup \
+  -result 500
+  
+tcltest::test ts-configure-cget-insertofftime {configure/cget -insertofftime returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -insertofftime 600
+    .ts cget -insertofftime
+  } -cleanup cleanup \
+  -result 600
+  
+#---------------------------------
+tcltest::test ts-configure-insertontime {configure -insertontime returns correct result} \
+  -setup {
+    setup -insertontime 500
+  } -body {
+    .ts configure -insertontime
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-insertontime insertOnTime InsertOnTime \d+ 500}
+
+tcltest::test ts-cget-insertontime {cget -insertontime returns correct result} \
+  -setup {
+    setup -insertontime 500
+  } -body {
+    .ts cget -insertontime
+  } -cleanup cleanup \
+  -result 500
+  
+tcltest::test ts-configure-cget-insertontime {configure/cget -insertontime returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -insertontime 1000
+    .ts cget -insertontime
+  } -cleanup cleanup \
+  -result 1000
+
+#---------------------------------
+tcltest::test ts-configure-insertwidth {configure -insertwidth returns correct result} \
+  -setup {
+    setup -insertwidth 5
+  } -body {
+    .ts configure -insertwidth
+  } -cleanup cleanup \
+  -match glob \
+  -result {-insertwidth insertWidth InsertWidth * 5}
+  
+tcltest::test ts-cget-insertwidth {cget -insertwidth returns correct result} \
+  -setup {
+    setup -insertwidth 5
+  } -body {
+    .ts cget -insertwidth
+  } -cleanup cleanup \
+  -result 5
+  
+tcltest::test ts-configure-cget-insertwidth {configure/cget -insertwidth returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -insertwidth 10
+    .ts cget -insertwidth
+  } -cleanup cleanup \
+  -result 10
+
+#---------------------------------
+tcltest::test ts-configure-relief {configure -relief returns correct result} \
+  -setup {
+    setup -relief flat
+  } -body {
+    .ts configure -relief
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-relief relief Relief \S+ flat}
+  
+tcltest::test ts-cget-relief {cget -relief returns correct result} \
+  -setup {
+    setup -relief flat
+  } -body {
+    .ts cget -relief
+  } -cleanup cleanup \
+  -result flat
+
+tcltest::test ts-configure-cget-relief {configure/cget -relief returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -relief ridge
+    .ts cget -relief
+  } -cleanup cleanup \
+  -result ridge
+  
+#---------------------------------
+tcltest::test ts-configure-selectbackground {configure -selectbackground returns correct result} \
+  -setup {
+    setup -selectbackground yellow
+  } -body {
+    .ts configure -selectbackground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-selectbackground selectBackground Background \S+ yellow}
+  
+tcltest::test ts-cget-selectbackground {cget -selectbackground returns correct result} \
+  -setup {
+    setup -selectbackground yellow
+  } -body {
+    .ts cget -selectbackground
+  } -cleanup cleanup \
+  -result yellow
+
+tcltest::test ts-configure-cget-selectbackground {configure/cget -selectbackground returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -selectbackground yellow
+    .ts cget -selectbackground
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test ts-configure-selectborderwidth {configure -selectborderwidth returns correct result} \
+  -setup {
+    setup -selectborderwidth 5
+  } -body {
+    .ts configure -selectborderwidth
+  } -cleanup cleanup \
+  -match glob \
+  -result {-selectborderwidth selectBorderWidth BorderWidth * 5}
+  
+tcltest::test ts-cget-selectborderwidth {cget -selectborderwidth returns correct result} \
+  -setup {
+    setup -selectborderwidth 5
+  } -body {
+    .ts cget -selectborderwidth
+  } -cleanup cleanup \
+  -result 5
+  
+tcltest::test ts-configure-cget-selectborderwidth {configure/cget -selectborderwidth returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -selectborderwidth 1
+    .ts cget -selectborderwidth
+  } -cleanup cleanup \
+  -result 1
+  
+#---------------------------------
+tcltest::test ts-configure-selectforeground {configure -selectforeground returns correct result} \
+  -setup {
+    setup -selectforeground yellow
+  } -body {
+    .ts configure -selectforeground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-selectforeground selectForeground Foreground \S+ yellow}
+
+tcltest::test ts-cget-selectforeground {cget -selectforeground returns correct result} \
+  -setup {
+    setup -selectforeground yellow
+  } -body {
+    .ts cget -selectforeground
+  } -cleanup cleanup \
+  -result yellow
+  
+tcltest::test ts-configure-cget-selectforeground {configure/cget -selectforeground returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -selectforeground yellow
+    .ts cget -selectforeground
+  } -cleanup cleanup \
+  -result yellow
+
+#---------------------------------
+tcltest::test ts-configure-state {configure -state returns correct result} \
+  -setup {
+    setup -state disabled
+  } -body {
+    .ts configure -state
+  } -cleanup cleanup \
+  -result {-state state State normal disabled}
+  
+tcltest::test ts-cget-state {cget -state returns correct result} \
+  -setup setup \
+  -body {
+    .ts cget -state
+  } -cleanup cleanup \
+  -result normal
+  
+tcltest::test ts-configure-cget-state {configure/cget -state returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -state disabled
+    .ts cget -state
+  } -cleanup cleanup \
+  -result disabled
+
+#---------------------------------
+tcltest::test ts-configure-takefocus {configure -takefocus returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -takefocus
+  } -cleanup cleanup \
+  -result {-takefocus takeFocus TakeFocus 1 1}
+  
+tcltest::test ts-cget-takefocus {cget -takefocus returns correct result} \
+  -setup setup \
+  -body {
+    .ts cget -takefocus
+  } -cleanup cleanup \
+  -result 1
+  
+tcltest::test ts-configure-cget-takefocus {configure/cget -takefocsu returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -takefocus 0
+    .ts cget -takefocus
+  } -cleanup cleanup \
+  -result 0
+
+#---------------------------------
+tcltest::test ts-configure-watermark {configure -watermark returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark
+  } -cleanup cleanup \
+  -result {-watermark watermark Watermark {} {}}
+  
+tcltest::test ts-cget-watermark {cget -watermark returns correct result} \
+  -setup setup \
+  -body {
+    .ts cget -watermark
+  } -cleanup cleanup \
+  -result ""
+
+tcltest::test ts-configure-cget-watermark {configure/cget -watermark returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    .ts cget -watermark
+  } -cleanup cleanup \
+  -result "Enter string"
+
+tcltest::test ts-no-watermark {verify that no watermark exists in the entry field when -watermark is empty} \
+  -setup setup \
+  -body {
+    .ts configure -watermark ""
+    string trim [.ts.txt get 1.0 end]
+  } -cleanup cleanup \
+  -result ""
+
+tcltest::test ts-watermark {verify that a watermark exists in the entry field when -watermark is non-empty} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    string trim [.ts.txt get 1.0 end]
+  } -cleanup cleanup \
+  -result "Enter string"
+
+tcltest::test ts-watermark-removed {verify that the watermark is removed when text is inserted into the widget} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    .ts insert end "foobar"
+    string trim [.ts.txt get 1.0 end]
+  } -cleanup cleanup \
+  -result "foobar"
+
+#---------------------------------
+tcltest::test ts-configure-watermarkforeground {configure -watermarkforeground returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermarkforeground
+  } -cleanup cleanup \
+  -result {-watermarkforeground watermarkForeground Foreground {light gray} {light gray}}
+  
+tcltest::test ts-cget-watermarkforeground {cget -watermarkforeground returns correct result} \
+  -setup setup \
+  -body {
+    .ts cget -watermarkforeground
+  } -cleanup cleanup \
+  -result "light gray"
+  
+tcltest::test ts-configure-cget-watermarkforeground {configure/cget -watermarkforeground returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermarkforeground orange
+    .ts cget -watermarkforeground
+  } -cleanup cleanup \
+  -result orange
+
+tcltest::test ts-watermark-color-check {check that the color is the watercolor when the watermark is present} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string" -watermarkforeground orange -foreground black
+    .ts.txt cget -foreground
+  } -cleanup cleanup \
+  -result orange
+
+tcltest::test ts-watermark-removed-color-check {check that the color is the foreground color when the watermark is removed} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string" -watermarkforeground orange -foreground black
+    .ts insert end "foobar"
+    .ts.txt cget -foreground
+  } -cleanup cleanup \
+  -match regexp \
+  -result {(black|Black|#000000)}
+
+#---------------------------------
+tcltest::test ts-configure-width {configure -width returns correct result} \
+  -setup {
+    setup -width 40
+  } -body {
+    .ts configure -width
+  } -cleanup cleanup \
+  -match regexp \
+  -result {-width width Width \d+ 40}
+
+tcltest::test ts-cget-width {cget -width returns correct result} \
+  -setup {
+    setup -width 40
+  } -body {
+    .ts cget -width
+  } -cleanup cleanup \
+  -result 40
+  
+tcltest::test ts-configure-cget-width {configure/cget -width returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -width 50
+    .ts cget -width
+  } -cleanup cleanup \
+  -result 50
+
+#---------------------------------
+tcltest::test ts-configure-xscrollcommand {configure -xscrollcommand returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -xscrollcommand
+  } -cleanup cleanup \
+  -result {-xscrollcommand xScrollCommand ScrollCommand {} {}}
+
+tcltest::test ts-cget-xscrollcommand {cget -xscrollcommand returns correct result} \
+  -setup setup \
+  -body {
+    .ts cget -xscrollcommand
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test ts-configure-cget-xscrollcommand {configure/cget -xscrollcommand returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -xscrollcommand "foobar"
+    .ts cget -xscrollcommand
+  } -cleanup cleanup \
+  -result "foobar"
+
+#---------------------------------
+tcltest::test ts-bbox-0 {bbox returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts bbox 0
+  } -cleanup cleanup \
+  -match regexp \
+  -result {\d+ -\d+ \d+ \d+}
+  
+#---------------------------------
+tcltest::test ts-delete-0 {delete returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts delete 0
+    .ts get
+  } -cleanup cleanup \
+  -result "oobar"
+  
+tcltest::test ts-delete-end {delete returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts delete end
+    .ts get
+  } -cleanup cleanup \
+  -result "foobar"
+  
+tcltest::test ts-delete-less {delete returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts delete end-1
+    .ts get
+  } -cleanup cleanup \
+  -result "fooba"
+  
+tcltest::test ts-delete-more {delete returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts delete 10
+    .ts get
+  } -cleanup cleanup \
+  -result "foobar"
+  
+tcltest::test ts-delete-first-last {delete first/last returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts delete 1 4
+    .ts get
+  } -cleanup cleanup \
+  -result "far"
+  
+tcltest::test ts-delete-all {delete all returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts delete 0 end
+    .ts get
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test ts-delete-watermark {delete returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    .ts delete 1 end
+    .ts get
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test ts-delete-watermark-all {delete returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    .ts delete 0 end
+    .ts get
+  } -cleanup cleanup \
+  -result ""
+
+#---------------------------------
+tcltest::test ts-get-empty {get returns correct result} \
+  -setup setup \
+  -body {
+    .ts get
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test ts-get-watermark-empty {get returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    .ts get
+  } -cleanup cleanup \
+  -result ""
+  
+tcltest::test ts-get {get returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts get
+  } -cleanup cleanup \
+  -result "foobar"
+  
+tcltest::test ts-get-watermark {get returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    .ts insert end "foobar"
+    .ts get
+  } -cleanup cleanup \
+  -result "foobar"
+
+#---------------------------------
+tcltest::test ts-icursor-watermark-empty-1 {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Empty string"
+    .ts icursor 1
+    .ts index insert
+  } -cleanup cleanup \
+  -result 0
+
+tcltest::test ts-icursor-watermark-empty-end {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Empty string"
+    .ts icursor end
+    .ts index insert
+  } -cleanup cleanup \
+  -result 0
+  
+tcltest::test ts-icursor-watermark-empty-less {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Empty string"
+    .ts icursor -1
+    .ts index insert
+  } -cleanup cleanup \
+  -result 0
+  
+tcltest::test ts-icursor-1 {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts icursor 1
+    .ts index insert
+  } -cleanup cleanup \
+  -result 1
+  
+tcltest::test ts-icursor-end {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts icursor end
+    .ts index insert
+  } -cleanup cleanup \
+  -result 6
+  
+tcltest::test ts-icursor-less {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts icursor -1
+    .ts index insert
+  } -cleanup cleanup \
+  -result 0
+  
+tcltest::test ts-icursor-more {icursor returns correct result} \
+  -setup setup \
+  -body {
+    .ts insert end "foobar"
+    .ts icursor 10
+    .ts index insert
+  } -cleanup cleanup \
+  -result 6
+
+#---------------------------------
+tcltest::test ts-index-1 {make sure the index of end is 0 when watermark is displayed} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    .ts index end
+  } -cleanup cleanup \
+  -result 0
+
+tcltest::test ts-index-2 {make sure the index is correct if the watermark is not displayed} \
+  -setup setup \
+  -body {
+    .ts configure -watermark "Enter string"
+    .ts insert end "foobar"
+    .ts index end
+  } -cleanup cleanup \
+  -result 6
+
+# Cleanup the tests
+tcltest::cleanupTests
+  
+