diff options
Diffstat (limited to 'itcl/iwidgets/tests/extfileselectionbox.test')
-rw-r--r-- | itcl/iwidgets/tests/extfileselectionbox.test | 209 |
1 files changed, 209 insertions, 0 deletions
diff --git a/itcl/iwidgets/tests/extfileselectionbox.test b/itcl/iwidgets/tests/extfileselectionbox.test new file mode 100644 index 00000000000..87f81901944 --- /dev/null +++ b/itcl/iwidgets/tests/extfileselectionbox.test @@ -0,0 +1,209 @@ +# This file is a Tcl script to test out [incr Widgets] Extfileselectionbox +# class. It is organized in the standard fashion for Tcl tests with the +# following notation for test case labels: +# +# 1.x - Construction/Destruction tests +# 2.x - Configuration option tests +# 3.x - Method tests +# +# Copyright (c) 1995 DSC Technologies Corporation +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# @(#) $Id$ + +package require tcltest +namespace import -force ::tcltest::* + +if [catch {package require Iwidgets 4.0}] { + # Let's try modifying the auto_path. Note that the IWIDGETS_LIBRARY + # env var is initialized in the Makefile when doing a 'make test'. + # If sourcing this file independently, this variable must be set manually. + if ![info exists env(IWIDGETS_LIBRARY)] { + error "Unable to locate Iwidgets package. Set your IWIDGETS_LIBRARY\ + environment\nvariable to the directory that contains iwidgets.tcl" + } + lappend auto_path $env(IWIDGETS_LIBRARY) + package require Iwidgets 4.0 +} + +if {[string compare test [info procs test]] == 1} { + source defs +} + +wm geometry . {} +raise . + +set c 1 +set o 1 +set m 1 + +# +# Initial construction test +# +test Extfileselectionbox-1.$c {Extfileselectionbox construction} { + iwidgets::Extfileselectionbox .fsb + pack .fsb -padx 10 -pady 10 -fill both -expand yes + update +} {} + +incr c + +# +# Option tests which are successful. +# +test Extfileselectionbox-2.$o {configuration option} { + llength [.fsb configure] +} {48} + +incr o + +foreach test { + {-activebackground #ececec #ececec} + {-activerelief raised raised} + {-background #d9d9d9 #d9d9d9} + {-borderwidth 2 2} + {-textbackground GhostWhite GhostWhite} + {-childsitepos n n} + {-childsitepos s s} + {-childsitepos e e} + {-childsitepos w w} + {-childsitepos top top} + {-childsitepos bottom bottom} + {-cursor gumby gumby} + {-directory {..} {..}} + {-foreground Black Black} + {-highlightcolor black black} + {-highlightthickness 2 2} + {-insertbackground Black Black} + {-insertborderwidth 1 1} + {-insertofftime 300 300} + {-insertontime 600 600} + {-insertwidth 3 3} + {-dirslabel "Dirs Label" "Dirs Label"} + {-dirson no no} + {-dirson yes yes} + {-fileslabel "Files Label" "Files Label"} + {-fileson no no} + {-fileson yes yes} + {-filetype any any} + {-filetype directory directory} + {-filetype regular regular} + {-filterlabel "Filter Label" "Filter Label"} + {-filteron no no} + {-filteron yes yes} + {-directory ../tests ../tests} + {-mask *.* *.*} + {-nomatchstring {No Files} {No Files}} + {-labelfont -Adobe-Helvetica-Medium-R-Normal--*-120-*-*-*-*-*-* -Adobe-Helvetica-Medium-R-Normal--*-120-*-*-*-*-*-*} + {-selectbackground #e6ceb1 #e6ceb1} + {-selectborderwidth 1 1} + {-selectionlabel "Selection Label" "Selection Label"} + {-selectionon no no} + {-selectionon yes yes} + {-automount {export tmp_mnt} {export tmp_mnt}} + {-textfont -*-courier-medium-r-normal--*-120-* -*-courier-medium-r-normal--*-120-*} + {-troughcolor #c3c3c3 #c3c3c3} + {-width 400 400} + {-height 375 375}} { + set option [lindex $test 0] + test Extfileselectionbox-2.$o "configuration options, $option" { + .fsb configure $option [lindex $test 1] + lindex [.fsb configure $option] 4 + } [lindex $test 2] + update + incr o +} +# +# Option tests which fail and produce errors. +# +foreach test { + {-directory bogus {bad directory option "bogus": directory does not exist}} + {-filetype bogus {bad filetype option "bogus": should be regular, directory, or any}}} { + set option [lindex $test 0] + test Extfileselectionbox-2.$o "configuration options, $option" { + list [catch {.fsb configure $option [lindex $test 1]} msg] $msg + } [list 1 [lindex $test 2]] + incr o +} + +# +# Method tests which are successful. +# +foreach test { + {{.fsb childsite} {.fsb.fsbchildsite}} + {{.fsb get} {}}} { + set method [lindex [lindex $test 0] 1] + test Extfileselectionbox-3.$m "object methods, $method" { + list [catch {eval [lindex $test 0]} msg] $msg + } [list 0 [lindex $test 1]] + update + incr m +} + +# +# Conclusion of constrcution/destruction tests +# +test Extfileselectionbox-1.$c {Extfileselectionbox destruction} { + destroy .fsb + update +} {} + + +incr c + +test Extfileselectionbox-1.$c {Extfileselectionbox construction} { + iwidgets::extfileselectionbox .fsb + pack .fsb -padx 10 -pady 10 -fill both -expand yes + update +} {} + + +incr c + +test Extfileselectionbox-1.$c {Extfileselectionbox destruction} { + destroy .fsb + update +} {} + +incr c + + +test Extfileselectionbox-1.$c {Extfileselectionbox destruction} { + iwidgets::extfileselectionbox .fsb + pack .fsb + destroy .fsb + update +} {} + +# +# Childsite tests +# +incr o + +test Extfileselectionbox-1.$o {Extfileselectionbox -childsitepos} { + iwidgets::extfileselectionbox .fsb + pack .fsb + update + label [.fsb childsite].lb -background red -text CS + pack [.fsb childsite].lb -fill both -expand yes + update + + .fsb configure -childsitepos n + update + .fsb configure -childsitepos s + update + .fsb configure -childsitepos e + update + .fsb configure -childsitepos w + update + .fsb configure -childsitepos top + update + .fsb configure -childsitepos bottom + update + destroy .fsb +} {} + +::tcltest::cleanupTests +exit |