# This file is a Tcl script to test out [incr Widgets] Canvasprintbox class.
|
# This file is a Tcl script to test out [incr Widgets] Canvasprintbox class.
|
# It is organized in the standard fashion for Tcl tests with the following
|
# It is organized in the standard fashion for Tcl tests with the following
|
# notation for test case labels:
|
# notation for test case labels:
|
#
|
#
|
# 1.x - Construction/Destruction tests
|
# 1.x - Construction/Destruction tests
|
# 2.x - Configuration option tests
|
# 2.x - Configuration option tests
|
# 3.x - Method tests
|
# 3.x - Method tests
|
#
|
#
|
# Copyright (c) 1995 Tako Schotanus
|
# Copyright (c) 1995 Tako Schotanus
|
#
|
#
|
# See the file "license.terms" for information on usage and redistribution
|
# See the file "license.terms" for information on usage and redistribution
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
#
|
#
|
|
|
package require Iwidgets 3.0
|
package require Iwidgets 3.0
|
|
|
if {[string compare test [info procs test]] == 1} {
|
if {[string compare test [info procs test]] == 1} {
|
source defs
|
source defs
|
}
|
}
|
|
|
wm geometry . {}
|
wm geometry . {}
|
raise .
|
raise .
|
|
|
set c 1
|
set c 1
|
set o 1
|
set o 1
|
set m 1
|
set m 1
|
|
|
#
|
#
|
# Initial construction test
|
# Initial construction test
|
#
|
#
|
test Canvasprintbox-1.$c {Canvasprintbox construction} {
|
test Canvasprintbox-1.$c {Canvasprintbox construction} {
|
iwidgets::Canvasprintbox .cpb
|
iwidgets::Canvasprintbox .cpb
|
pack .cpb -padx 10 -pady 10 -fill both -expand yes
|
pack .cpb -padx 10 -pady 10 -fill both -expand yes
|
update
|
update
|
} {}
|
} {}
|
|
|
incr c
|
incr c
|
|
|
#
|
#
|
# Option tests which are successful.
|
# Option tests which are successful.
|
#
|
#
|
test Canvasprintbox-2.$o {configuration option} {
|
test Canvasprintbox-2.$o {configuration option} {
|
llength [.cpb configure]
|
llength [.cpb configure]
|
} {34}
|
} {34}
|
|
|
incr o
|
incr o
|
|
|
foreach test {
|
foreach test {
|
{-background #d9d9d9 #d9d9d9}
|
{-background #d9d9d9 #d9d9d9}
|
{-cursor gumby gumby}
|
{-cursor gumby gumby}
|
{-hpagecnt 2 2}
|
{-hpagecnt 2 2}
|
{-orient portrait portrait}
|
{-orient portrait portrait}
|
{-orient landscape landscape}
|
{-orient landscape landscape}
|
{-output file file}
|
{-output file file}
|
{-filename test.ps test.ps}
|
{-filename test.ps test.ps}
|
{-output printer printer}
|
{-output printer printer}
|
{-pagesize a5 a5}
|
{-pagesize a5 a5}
|
{-pagesize a4 a4}
|
{-pagesize a4 a4}
|
{-pagesize a3 a3}
|
{-pagesize a3 a3}
|
{-pagesize a2 a2}
|
{-pagesize a2 a2}
|
{-pagesize a1 a1}
|
{-pagesize a1 a1}
|
{-pagesize legal legal}
|
{-pagesize legal legal}
|
{-pagesize letter letter}
|
{-pagesize letter letter}
|
{-posterize 1 1}
|
{-posterize 1 1}
|
{-posterize 0 0}
|
{-posterize 0 0}
|
{-printcmd test test}
|
{-printcmd test test}
|
{-printcmd lpr lpr}
|
{-printcmd lpr lpr}
|
{-printregion {10 10 100 100} {10 10 100 100}}
|
{-printregion {10 10 100 100} {10 10 100 100}}
|
{-printregion {} {}}
|
{-printregion {} {}}
|
{-stretch 1 1}
|
{-stretch 1 1}
|
{-stretch 0 0}
|
{-stretch 0 0}
|
{-vpagecnt 2 2}} {
|
{-vpagecnt 2 2}} {
|
set option [lindex $test 0]
|
set option [lindex $test 0]
|
test Canvasprintbox-2.$o "configuration options, $option" {
|
test Canvasprintbox-2.$o "configuration options, $option" {
|
.cpb configure $option [lindex $test 1]
|
.cpb configure $option [lindex $test 1]
|
lindex [.cpb configure $option] 4
|
lindex [.cpb configure $option] 4
|
} [lindex $test 2]
|
} [lindex $test 2]
|
update
|
update
|
incr o
|
incr o
|
}
|
}
|
|
|
#
|
#
|
# Option tests which fail and produce errors.
|
# Option tests which fail and produce errors.
|
#
|
#
|
#foreach test {
|
#foreach test {
|
# {-printregion bogus {bad option "printregion": should contain 4 coordinates}}
|
# {-printregion bogus {bad option "printregion": should contain 4 coordinates}}
|
# {-output bogus {bad option "output": should be file or printer}}
|
# {-output bogus {bad option "output": should be file or printer}}
|
# {-orient bogus {bad option "orient": should be portrait or landscape}}
|
# {-orient bogus {bad option "orient": should be portrait or landscape}}
|
# {-stretch bogus {bad option "stretch": should be a boolean}}
|
# {-stretch bogus {bad option "stretch": should be a boolean}}
|
# {-posterize bogus {bad option "posterize": should be a boolean}}
|
# {-posterize bogus {bad option "posterize": should be a boolean}}
|
# } {
|
# } {
|
# set option [lindex $test 0]
|
# set option [lindex $test 0]
|
# test Canvasprintbox-2.$o "configuration options, $option" {
|
# test Canvasprintbox-2.$o "configuration options, $option" {
|
# list [catch {.cpb configure $option [lindex $test 1]} msg] $msg
|
# list [catch {.cpb configure $option [lindex $test 1]} msg] $msg
|
# } [list 1 [lindex $test 2]]
|
# } [list 1 [lindex $test 2]]
|
# incr o
|
# incr o
|
#}
|
#}
|
|
|
#
|
#
|
# Method tests which are successful.
|
# Method tests which are successful.
|
#
|
#
|
canvas .c
|
canvas .c
|
foreach test {
|
foreach test {
|
{{.cpb getoutput} {lpr}}
|
{{.cpb getoutput} {lpr}}
|
{{.cpb refresh} {}}
|
{{.cpb refresh} {}}
|
{{.cpb setcanvas .c} {}}} {
|
{{.cpb setcanvas .c} {}}} {
|
set method [lindex [lindex $test 0] 1]
|
set method [lindex [lindex $test 0] 1]
|
test Canvasprintbox-3.$m "object methods, $method" {
|
test Canvasprintbox-3.$m "object methods, $method" {
|
list [catch {eval [lindex $test 0]} msg] $msg
|
list [catch {eval [lindex $test 0]} msg] $msg
|
} [list 0 [lindex $test 1]]
|
} [list 0 [lindex $test 1]]
|
update
|
update
|
incr m
|
incr m
|
}
|
}
|
|
|
#
|
#
|
# Conclusion of constrcution/destruction tests
|
# Conclusion of constrcution/destruction tests
|
#
|
#
|
test Canvasprintbox-1.$c {Canvasprintbox destruction} {
|
test Canvasprintbox-1.$c {Canvasprintbox destruction} {
|
destroy .c
|
destroy .c
|
destroy .cpb
|
destroy .cpb
|
update
|
update
|
} {}
|
} {}
|
|
|
incr c
|
incr c
|
|
|
test Canvasprintbox-1.$c {Canvasprintbox construction} {
|
test Canvasprintbox-1.$c {Canvasprintbox construction} {
|
iwidgets::canvasprintbox .cpb
|
iwidgets::canvasprintbox .cpb
|
pack .cpb -padx 10 -pady 10 -fill both -expand yes
|
pack .cpb -padx 10 -pady 10 -fill both -expand yes
|
update
|
update
|
} {}
|
} {}
|
|
|
incr c
|
incr c
|
|
|
test Canvasprintbox-1.$c {Canvasprintbox destruction} {
|
test Canvasprintbox-1.$c {Canvasprintbox destruction} {
|
destroy .cpb
|
destroy .cpb
|
update
|
update
|
} {}
|
} {}
|
|
|
incr c
|
incr c
|
|
|
test Canvasprintbox-1.$c {Canvasprintbox destruction} {
|
test Canvasprintbox-1.$c {Canvasprintbox destruction} {
|
iwidgets::canvasprintbox .cpb
|
iwidgets::canvasprintbox .cpb
|
pack .cpb
|
pack .cpb
|
destroy .cpb
|
destroy .cpb
|
update
|
update
|
} {}
|
} {}
|
|
|
