Subversion Repositories or1k

# This file is a Tcl script to test out [incr Widgets] Fileselectionbox 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: fileselectionbox.test,v 1.1.1.1 2002-01-16 10:24:51 markom Exp $

package require Iwidgets 3.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 Fileselectionbox-1.$c {Fileselectionbox construction} {

    iwidgets::Fileselectionbox .fsb

    pack .fsb -padx 10 -pady 10 -fill both -expand yes

    update

} {}

incr c

#

# Option tests which are successful.

#

test Fileselectionbox-2.$o {configuration option} {

    llength [.fsb configure]

} {45}

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}

    {-childsitepos center center}

    {-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}

    {-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 Fileselectionbox-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 Fileselectionbox-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 Fileselectionbox-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 Fileselectionbox-1.$c {Fileselectionbox destruction} {

    destroy .fsb

    update

} {}

incr c

test Fileselectionbox-1.$c {Fileselectionbox construction} {

    iwidgets::fileselectionbox .fsb

    pack .fsb -padx 10 -pady 10 -fill both -expand yes

    update

} {}

incr c

test Fileselectionbox-1.$c {Fileselectionbox destruction} {

    destroy .fsb

    update

} {}

incr c

test Fileselectionbox-1.$c {Fileselectionbox destruction} {

    iwidgets::fileselectionbox .fsb

    pack .fsb

    destroy .fsb

    update

} {}

#

# Childsite tests

#

incr o

test Fileselectionbox-1.$o {Fileselectionbox -childsitepos} {

    iwidgets::fileselectionbox .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

    .fsb configure -childsitepos center

    update

    destroy .fsb

} {}