# -*- 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