Subversion Repositories or1k

# This file contains tests for the tkMain.c file.

#

# This file contains a collection of tests for one or more of the Tcl

# built-in commands.  Sourcing this file into Tcl runs the tests and

# generates output for errors.  No output means no errors were found.

#

# Copyright (c) 1997 by Sun Microsystems, Inc.

#

# See the file "license.terms" for information on usage and redistribution

# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

#

# RCS: @(#) $Id: main.test,v 1.1.1.1 2002-01-16 10:25:59 markom Exp $

if {[info procs test] != "test"} {

    source defs

}

test main-1.1 {StdinProc} {unixOnly} {

    catch {removeFile script}

    set fd [open script w]

    puts $fd {

        close stdin; exit

    }

    close $fd

    if {[catch {exec $tktest 

        set error 1

    } else {

        set error 0

    }

    list $error $msg

} {0 {}}