arcadia 0.13.0 → 0.13.1

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

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