# 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: extfileselectionbox.test,v 1.3 2001/08/07 19:56:48 smithc Exp $ 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