# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
# grid.test --
#
# This file is a Tcl script to test out tixGrid.c and tixGrRC.c
# It is organized in the standard fashion for Tcl tests.
#
# Copyright (c) 2000-2001 Tix Project Group.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# $Id: grid.test,v 1.2 2002/11/13 21:12:17 idiscovery Exp $
package require Tix
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
}
set longword xx
for {set i 0} {$i < 10} {incr i} {
set longword $longword$longword
}
proc format-$longword {args} {
global format_called
set format_called 1
}
test grid-1.1 {Tix_GrCallFormatCmd()} {
set format_called 0
tixGrid .grid -formatcmd format-$longword
pack .grid
update idletasks
destroy .grid
set format_called
} {1}
test grrc-1.1 {Tix_GrRCSize} {
tixGrid .grid
set a [list [catch {
.grid size row xx
} msg] $msg]
destroy .grid
set a
} {1 {unknown option "xx"; must be an integer or "default"}}
test grrc-1.2 {Tix_GrRCSize(): sprintf} {
tixGrid .grid
set a [list [catch {
.grid size row default -pad
} msg] $msg]
destroy .grid
set a
} {1 {value missing for option "-pad"}}
test grrc-1.3 {Tix_GrRCSize(): sprintf} {
tixGrid .grid
set a [list [catch {
.grid size row 123 -pad
} msg] $msg]
destroy .grid
set a
} {1 {value missing for option "-pad"}}
# cleanup
::tcltest::cleanupTests
return