head	1.13;
access;
symbols
	core-8-5-9:1.10.4.1
	core-8-5-8:1.10.4.1
	macosx-cocoa-merge:1.12
	macosx-cocoa-premerge:1.12
	macosx-carbon-freeze:1.12
	core-8-5-7:1.10.4.1
	core-8-5-6:1.10.4.1
	core-8-6-b1:1.12
	core-8-6-a3:1.12
	core-8-5-5:1.10.4.1
	core-8-6-a2:1.12
	core-8-5-4:1.10.4.1
	core-8-5-3:1.10.4.1
	core-8-6-a1:1.11
	core-8-4-19:1.6.2.1
	core-8-5-branch:1.10.0.4
	core-8-5-2:1.10
	core-8-4-18:1.6
	core-8-5-1:1.10
	core-8-4-17:1.6
	core-8-5-0:1.10
	core-8-5-b3:1.10
	core-8-5-b2:1.10
	core-8-4-16:1.6
	core-8-5-b1:1.10
	core-stablilizer-merge:1.10
	core-stabilizer-branch:1.10.0.2
	core-stabilizer-merge:1.10.4.1
	core-8-4-15:1.6
	core-8-5-a6:1.10
	core-8-5-a5:1.10
	core-8-4-14:1.6
	core-8-5-a4:1.10
	core-8-4-13:1.6
	core-8-4-12:1.6
	core-8-4-11:1.6
	core-8-5-a3:1.10
	core-8-4-10:1.6
	core-8-4-9-branch:1.6.0.4
	core-8-5-a2:1.9
	core-8-4-9:1.6
	core-8-4-8:1.6
	core-8-4-7:1.6
	core-8-5-a1:1.8
	core-8-4-6:1.6
	core-8-4-5:1.6
	mistachkin-dev-branch:1.8.0.2
	core-8-4-4:1.6
	core-8-4-3:1.6
	core-8-4-branch:1.6.0.2
	core-8-4-2:1.6
	core-8-4-1:1.6
	core-8-3-5:1.5
	core-8-4-0:1.6
	macosx-8-4-merge-2002-08-31-trunk:1.6
	macosx-8-4-premerge-2002-08-31-branch:1.5.18.1
	macosx-8-4-premerge-2002-08-31-trunk:1.6
	macosx-8-4-merge-2002-08-30-branch:1.5.18.1
	macosx-8-4-merge-2002-08-30-trunk:1.6
	macosx-8-4-merge-2002-08-20-branch:1.5.18.1
	macosx-8-4-merge-2002-08-20-trunk:1.6
	core-8-4-b2:1.6
	core-8-4-b1:1.5
	macosx-premerge-6-9-02:1.5
	core-8-4-a4:1.5
	core-8-3-4:1.5
	macosx-8-4-branch:1.5.0.18
	macosx-8-4-branchpoint:1.5
	core-8-4-a3:1.5
	core-8-3-3:1.5
	dgp-privates-into-namespace:1.5.0.16
	tclpro-1-5-0:1.5
	core-8-4-win-speedup:1.5.0.14
	core-8-4-a2:1.5
	tclpro-1-4-1:1.5
	tclpro-1-4-0:1.5
	core-8-3-2:1.5
	ajuba-ajuba2-2-1-base:1.5
	ajuba-ajuba2-2-0:1.5
	core-8-4-a1:1.5
	core-8-3-1-branch:1.5.0.12
	core-8-3-1:1.5
	scriptics-sc-2-0-b5:1.5
	scriptics-sc-2-0-fixed:1.5
	scriptics-sc-2-0-b2:1.5
	scriptics-sc-2-0-b1:1.5
	core-8-3-0:1.5
	core-8-3-b2:1.5
	core-8-3-b1:1.5
	scriptics-sc-1-1:1.5
	scriptics-sc-1-1-b1:1.5
	core-8-2-3:1.5
	scriptics-sc-1-1-branch:1.5.0.10
	scriptics-sc-1-1-base:1.5
	scriptics-sc-1-0:1.5
	scriptics-sc-1-0-branch:1.5.0.8
	scriptics-sc-1-0-base:1.5
	core-8-2-2:1.5
	core-8-2-1:1.5
	scriptics-bc-1-0-b1:1.5
	core-8-2-1-branch:1.5.0.6
	scriptics-tclpro-1-3-0:1.5
	core-8-2-0:1.5
	core-8-2-b3-branch:1.5.0.4
	core-8-2-b3-base:1.5
	scriptics-tclpro-1-3-b4:1.5
	core-8-2-b2:1.5
	scriptics-tclpro-1-3-b3:1.5
	core-8-2-b1:1.5
	scriptics-tclpro-1-3-b2:1.5
	merge-to-mainline-5/21/99:1.5
	scriptics-tclpro-1-3-b2-branch:1.5.0.2
	core-8-1-1:1.5
	scriptics-tclpro-1-3-b1:1.5
	core-8-1-1-base:1.5
	core-8-1-0:1.5
	merge-to-mainline-4-29-99:1.5
	merge-to-mainline-4-23-99:1.5
	core-8-1-branch-old:1.1.0.4
	core-8-0-6-branch:1.4.0.6
	core-8-0-6-base:1.4
	core-8-0-5:1.4
	core-8-1-b3:1.1.4.6
	core-8-1-b2:1.1.4.4
	dev-8-1-stubs-branch:1.1.4.3.0.2
	dev-stubs-branch:1.4.0.4
	scriptics-tclpro-1-2:1.4
	scriptics-tclpro-1-2-b2:1.4
	core-8-1-merge-2/10/99:1.4
	core-8-0-5-branch:1.4.0.2
	core-8-0-5-base:1.4
	scriptics-tclpro-1-2-b1:1.3
	scriptics-tclpro-1-2-a1:1.3
	core-8-1-b1:1.1.4.1
	core-8-0-4:1.2
	core-8-1-a2:1.1
	core-8-0-2:1.1
	core-8-0-3:1.2;
locks; strict;
comment	@# @;


1.13
date	2010.12.13.15.25.35;	author nijtmans;	state Exp;
branches;
next	1.12;

1.12
date	2008.08.12.22.52.23;	author aniap;	state Exp;
branches;
next	1.11;

1.11
date	2008.04.07.23.14.39;	author hobbs;	state Exp;
branches;
next	1.10;

1.10
date	2004.12.08.03.03.06;	author dgp;	state Exp;
branches
	1.10.2.1
	1.10.4.1;
next	1.9;

1.9
date	2004.05.23.17.34.48;	author dkf;	state Exp;
branches;
next	1.8;

1.8
date	2003.09.05.22.44.39;	author dgp;	state Exp;
branches;
next	1.7;

1.7
date	2003.04.01.21.06.41;	author dgp;	state Exp;
branches;
next	1.6;

1.6
date	2002.07.13.20.28.35;	author dgp;	state Exp;
branches
	1.6.2.1;
next	1.5;

1.5
date	99.04.16.01.51.39;	author stanton;	state Exp;
branches
	1.5.18.1;
next	1.4;

1.4
date	99.02.04.21.03.28;	author stanton;	state Exp;
branches;
next	1.3;

1.3
date	98.12.29.19.34.50;	author hershey;	state Exp;
branches;
next	1.2;

1.2
date	98.09.14.18.23.48;	author stanton;	state Exp;
branches;
next	1.1;

1.1
date	98.04.01.09.58.13;	author rjohnson;	state Exp;
branches
	1.1.4.1;
next	;

1.1.4.1
date	98.09.30.02.18.47;	author stanton;	state Exp;
branches;
next	1.1.4.2;

1.1.4.2
date	99.01.29.00.34.35;	author stanton;	state Exp;
branches;
next	1.1.4.3;

1.1.4.3
date	99.02.11.04.13.49;	author stanton;	state Exp;
branches;
next	1.1.4.4;

1.1.4.4
date	99.03.11.18.50.59;	author hershey;	state Exp;
branches;
next	1.1.4.5;

1.1.4.5
date	99.03.24.01.16.56;	author hershey;	state Exp;
branches;
next	1.1.4.6;

1.1.4.6
date	99.03.24.02.54.51;	author hershey;	state Exp;
branches;
next	;

1.5.18.1
date	2002.08.20.20.27.14;	author das;	state Exp;
branches;
next	;

1.6.2.1
date	2008.04.07.23.12.10;	author hobbs;	state Exp;
branches;
next	;

1.10.2.1
date	2008.06.25.16.46.12;	author dgp;	state Exp;
branches;
next	;

1.10.4.1
date	2008.04.07.23.14.07;	author hobbs;	state Exp;
branches;
next	;


desc
@@


1.13
log
@Change "Application initialization failed" to "application-specific initialization failed", for consistency with Tcl.
@
text
@# 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.
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @@(#) $Id: main.test,v 1.12 2008/08/12 22:52:23 aniap Exp $

package require tcltest 2.2
namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands

test main-1.1 {StdinProc} -constraints stdio -setup {
    set script [makeFile {close stdin; exit} script]
} -body {
    exec [interpreter] <$script
} -cleanup {
    removeFile script
} -returnCodes ok

test main-2.1 {Tk_MainEx: -encoding option} -constraints stdio -setup {
	set script [makeFile {} script]
	file delete $script
	set f [open $script w]
	fconfigure $f -encoding utf-8
	puts $f {puts [list $argv0 $argv $tcl_interactive]}
	puts -nonewline $f {puts [string equal \u20ac }
	puts $f "\u20ac]; exit"
	close $f
	catch {set f [open "|[list [interpreter] -encoding utf-8 script]" r]}
} -body {
	read $f
} -cleanup {
	close $f
	removeFile script
} -result "script {} 0\n1\n"

test main-2.2 {Tk_MainEx: -encoding option} -constraints stdio -setup {
	set script [makeFile {} script]
	file delete $script
	set f [open $script w]
	fconfigure $f -encoding utf-8
	puts $f {puts [list $argv0 $argv $tcl_interactive]}
	puts -nonewline $f {puts [string equal \u20ac }
	puts $f "\u20ac]; exit"
	close $f
	catch {set f [open "|[list [interpreter] -encoding ascii script]" r]}
} -body {
	read $f
} -cleanup {
	close $f
	removeFile script
} -result "script {} 0\n0\n"

    # Procedure to simulate interactive typing of commands, line by line, 
	# for test 2.3
    proc type {chan script} {
        foreach line [split $script \n] {
            if {[catch {
                puts $chan $line
                flush $chan
            }]} {
                return
            }
            # Grrr... Behavior depends on this value.
            after 1000
        }
    }

test main-2.3 {Tk_MainEx: -encoding option} -constraints stdio -setup {
	set script [makeFile {} script]
	file delete $script
	set f [open $script w]
	fconfigure $f -encoding utf-8
	puts $f {puts [list $argv0 $argv $tcl_interactive]}
	puts -nonewline $f {puts [string equal \u20ac }
	puts $f "\u20ac]"
	close $f
	catch {set f [open "|[list [interpreter] -enc utf-8 script]" r+]}
} -body {
	type $f {
		puts $argv
		exit
	}
	gets $f
} -cleanup {
	close $f
	removeFile script
} -returnCodes ok -result {-enc utf-8 script}

test main-3.1 {Tk_ParseArgv: -help option} -constraints unix -body {
    # Run only on unix as Win32 pops up native dialog
    exec [interpreter] -help
} -returnCodes error -match glob -result {% application-specific initialization failed: Command-specific options:*}

test main-3.2 {Tk_ParseArgv: -help option} -setup {
    set maininterp [interp create]
} -body {
    $maininterp eval { set argc 1 ; set argv -help }
    load {} Tk $maininterp
} -cleanup {
    interp delete $maininterp
} -returnCodes error -match glob -result {Command-specific options:*}

test main-3.3 {Tk_ParseArgv: -help option} -setup {
    set maininterp [interp create]
} -body {
    # Repeat of 3.2 to catch cleanup, eg Bug 1927135
    $maininterp eval { set argc 1 ; set argv -help }
    load {} Tk $maininterp
} -cleanup {
    interp delete $maininterp
} -returnCodes error -match glob -result {Command-specific options:*}

# cleanup
cleanupTests
return
@


1.12
log
@Update to tcltest2
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.11 2008/04/07 23:14:39 hobbs Exp $
d99 1
a99 1
} -returnCodes error -match glob -result {% Application initialization failed: Command-specific options:*}
@


1.11
log
@	* generic/tkWindow.c (Initialize): fix double-free on Tk_ParseArgv
	* tests/main.test (main-3.*):      error. [Bug 1937135]
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.10 2004/12/08 03:03:06 dgp Exp $
d13 2
a14 1
package require tcltest 2.1
d19 1
a19 3
    set script [makeFile {
	close stdin; exit
    } script]
d21 1
a21 1
    list [catch {exec [interpreter] <$script} msg] $msg
d24 1
a24 1
} -result {0 {}}
d26 33
a58 37
test main-2.1 {Tk_MainEx: -encoding option} -constraints {
        stdio
    } -setup {
        set script [makeFile {} script]
        file delete $script
        set f [open $script w]
        fconfigure $f -encoding utf-8
        puts $f {puts [list $argv0 $argv $tcl_interactive]}
        puts -nonewline $f {puts [string equal \u20ac }
        puts $f "\u20ac]; exit"
        close $f
        catch {set f [open "|[list [interpreter] -encoding utf-8 script]" r]}
    } -body {
        read $f
    } -cleanup {
        close $f
        removeFile script
    } -result [list script {} 0]\n1\n

test main-2.2 {Tk_MainEx: -encoding option} -constraints {
        stdio
    } -setup {
        set script [makeFile {} script]
        file delete $script
        set f [open $script w]
        fconfigure $f -encoding utf-8
        puts $f {puts [list $argv0 $argv $tcl_interactive]}
        puts -nonewline $f {puts [string equal \u20ac }
        puts $f "\u20ac]; exit"
        close $f
        catch {set f [open "|[list [interpreter] -encoding ascii script]" r]}
    } -body {
        read $f
    } -cleanup {
        close $f
        removeFile script
    } -result [list script {} 0]\n0\n
d60 2
a61 1
    # Procedure to simulate interactive typing of commands, line by line
d75 20
a94 22
test main-2.3 {Tk_MainEx: -encoding option} -constraints {
        stdio
    } -setup {
        set script [makeFile {} script]
        file delete $script
        set f [open $script w]
        fconfigure $f -encoding utf-8
        puts $f {puts [list $argv0 $argv $tcl_interactive]}
        puts -nonewline $f {puts [string equal \u20ac }
        puts $f "\u20ac]"
        close $f
        catch {set f [open "|[list [interpreter] -enc utf-8 script]" r+]}
    } -body {
        type $f {
            puts $argv
	    exit
        }
        list [catch {gets $f} line] $line
    } -cleanup {
        close $f
        removeFile script
    } -result {0 {-enc utf-8 script}}
d98 2
a99 2
    list [catch {exec [interpreter] -help} msg] $msg
} -match glob -result {1 {% Application initialization failed: Command-specific options:*}}
d105 1
a105 1
    list [catch {load {} Tk $maininterp} msg] $msg
d108 1
a108 1
} -match glob -result {1 {Command-specific options:*}}
d115 1
a115 1
    list [catch {load {} Tk $maininterp} msg] $msg
d118 1
a118 1
} -match glob -result {1 {Command-specific options:*}}
@


1.10
log
@        * tests/canvPs.test:    Cleaned up the matching of [makeFile] and
        * tests/choosedir.test: [removeFile] commands as indicated by the
        * tests/filebox.test:   results of a -debug 1 run of the test suite.
        * tests/imgPPM.test:    Tk test suite is now -debug 1 clean.  This
        * tests/imgPhoto.test:  completes fixing [1078648].
        * tests/listbox.test:
        * tests/main.test:
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.9 2004/05/23 17:34:48 dkf Exp $
d102 24
@


1.10.2.1
log
@merge updates from 8.5 branch
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.10 2004/12/08 03:03:06 dgp Exp $
a101 24
test main-3.1 {Tk_ParseArgv: -help option} -constraints unix -body {
    # Run only on unix as Win32 pops up native dialog
    list [catch {exec [interpreter] -help} msg] $msg
} -match glob -result {1 {% Application initialization failed: Command-specific options:*}}

test main-3.2 {Tk_ParseArgv: -help option} -setup {
    set maininterp [interp create]
} -body {
    $maininterp eval { set argc 1 ; set argv -help }
    list [catch {load {} Tk $maininterp} msg] $msg
} -cleanup {
    interp delete $maininterp
} -match glob -result {1 {Command-specific options:*}}

test main-3.3 {Tk_ParseArgv: -help option} -setup {
    set maininterp [interp create]
} -body {
    # Repeat of 3.2 to catch cleanup, eg Bug 1927135
    $maininterp eval { set argc 1 ; set argv -help }
    list [catch {load {} Tk $maininterp} msg] $msg
} -cleanup {
    interp delete $maininterp
} -match glob -result {1 {Command-specific options:*}}

@


1.10.4.1
log
@	* generic/tkWindow.c (Initialize): fix double-free on Tk_ParseArgv
	* tests/main.test (main-3.*):      error. [Bug 1937135]
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.10 2004/12/08 03:03:06 dgp Exp $
a101 24
test main-3.1 {Tk_ParseArgv: -help option} -constraints unix -body {
    # Run only on unix as Win32 pops up native dialog
    list [catch {exec [interpreter] -help} msg] $msg
} -match glob -result {1 {% Application initialization failed: Command-specific options:*}}

test main-3.2 {Tk_ParseArgv: -help option} -setup {
    set maininterp [interp create]
} -body {
    $maininterp eval { set argc 1 ; set argv -help }
    list [catch {load {} Tk $maininterp} msg] $msg
} -cleanup {
    interp delete $maininterp
} -match glob -result {1 {Command-specific options:*}}

test main-3.3 {Tk_ParseArgv: -help option} -setup {
    set maininterp [interp create]
} -body {
    # Repeat of 3.2 to catch cleanup, eg Bug 1927135
    $maininterp eval { set argc 1 ; set argv -help }
    list [catch {load {} Tk $maininterp} msg] $msg
} -cleanup {
    interp delete $maininterp
} -match glob -result {1 {Command-specific options:*}}

@


1.9
log
@First step towards improving test style.  Also start using Tcl 8.5 features.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.8 2003/09/05 22:44:39 dgp Exp $
d31 1
a31 1
        removeFile script
d50 1
a50 1
        removeFile script
d83 1
a83 1
        removeFile script
@


1.8
log
@        * doc/wish.1:                   Implementation of TIPs 137/151.
        * generic/tkMain.c (Tk_MainEx): Added recognition of the -encoding
        * tests/main.test:              command line option by Tk_MainEx()
        and thus by wish, and any other program built on Tk_MainEx().
        [Patch 800139].
        This is a ***POTENTIAL INCOMPATIBILITY*** only for those C programs
        that embed Tcl and Tk, build on Tk_MainEx(), and make use of
        Tk_MainEx's former ability to pass a leading "-encoding" option to
        interactive shell operations.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.7 2003/04/01 21:06:41 dgp Exp $
a104 13













@


1.7
log
@        * tests/all.tcl:                Made better use of a common
        * tests/constraints.tcl:        -loadfile to hold definitions
        * tests/*.test:                 common to all test files.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.6 2002/07/13 20:28:35 dgp Exp $
d17 1
a17 1
test main-1.1 {StdinProc} {unix} {
d21 56
a76 4
    if {[catch {exec [interpreter] <$script} msg]} {
	set error 1
    } else {
	set error 0
d78 23
a100 3
    removeFile script
    list $error $msg
} {0 {}}
@


1.6
log
@	* Converted more files to tcltest and factored out common code.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.5 1999/04/16 01:51:39 stanton Exp $
d14 1
a14 4
namespace import -force tcltest::configure
namespace import -force tcltest::testsDirectory
configure -testdir [file join [pwd] [file dirname [info script]]]
configure -loadfile [file join [testsDirectory] constraints.tcl]
a16 4
namespace import -force tcltest::interpreter
namespace import -force tcltest::makeFile
namespace import -force tcltest::removeFile

d31 1
a31 1
::tcltest::cleanupTests
@


1.6.2.1
log
@	* generic/tkWindow.c (Initialize): fix double-free on Tk_ParseArgv
	* tests/main.test (main-3.*):      error. [Bug 1937135]
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.6 2002/07/13 20:28:35 dgp Exp $
a36 24
test main-3.1 {Tk_ParseArgv: -help option} -constraints unix -body {
    # Run only on unix as Win32 pops up native dialog
    list [catch {exec [interpreter] -help} msg] $msg
} -match glob -result {1 {% Application initialization failed: Command-specific options:*}}

test main-3.2 {Tk_ParseArgv: -help option} -setup {
    set maininterp [interp create]
} -body {
    $maininterp eval { set argc 1 ; set argv -help }
    list [catch {load {} Tk $maininterp} msg] $msg
} -cleanup {
    interp delete $maininterp
} -match glob -result {1 {Command-specific options:*}}

test main-3.3 {Tk_ParseArgv: -help option} -setup {
    set maininterp [interp create]
} -body {
    # Repeat of 3.2 to catch cleanup, eg Bug 1927135
    $maininterp eval { set argc 1 ; set argv -help }
    list [catch {load {} Tk $maininterp} msg] $msg
} -cleanup {
    interp delete $maininterp
} -match glob -result {1 {Command-specific options:*}}

d40 13
@


1.5
log
@* Merged 8.1 branch into the main trunk
@
text
@d11 1
a11 1
# RCS: @@(#) $Id$
d13 6
a18 3
if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}
d20 6
a25 4
test main-1.1 {StdinProc} {unixOnly} {
    catch {removeFile script}
    set fd [open script w]
    puts $fd {
d27 2
a28 3
    }
    close $fd
    if {[catch {exec $::tcltest::tktest <script} msg]} {
d33 1
a33 1
    file delete -force script
a37 1
catch {removeFile script}
@


1.5.18.1
log
@merged with trunk at tag macosx-8-4-merge-2002-08-20-trunk
@
text
@d13 3
a15 6
package require tcltest 2.1
namespace import -force tcltest::configure
namespace import -force tcltest::testsDirectory
configure -testdir [file join [pwd] [file dirname [info script]]]
configure -loadfile [file join [testsDirectory] constraints.tcl]
tcltest::loadTestedCommands
d17 4
a20 6
namespace import -force tcltest::interpreter
namespace import -force tcltest::makeFile
namespace import -force tcltest::removeFile

test main-1.1 {StdinProc} {unix} {
    set script [makeFile {
d22 3
a24 2
    } script]
    if {[catch {exec [interpreter] <$script} msg]} {
d29 1
a29 1
    removeFile script
d34 1
@


1.4
log
@* tests/main.test:
* tests/unixWm.test: Better cleanup of temporary files.

Lint.
@
text
@d8 2
d11 1
a11 4
# 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.3 1998/12/29 19:34:50 hershey Exp $
d13 2
a14 2
if {[info procs test] != "test"} {
    source defs
d24 1
a24 1
    if {[catch {exec $tktest <script} msg]} {
d33 1
a33 3
#
# Clean up.
#
d35 15
@


1.3
log
@now removes "script" file created by test.
@
text
@d12 1
a12 1
# RCS: @@(#) $Id: main.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
d33 5
@


1.2
log
@Replaced SCCS strings, fixed binary files
@
text
@d12 1
a12 1
# RCS: @@(#) $Id$
d30 1
@


1.1
log
@Initial revision
@
text
@d12 1
a12 1
# SCCS: @@(#) main.test 1.2 97/09/10 17:49:20
@


1.1.4.1
log
@Merged 8.0.3 changes into 8.1
@
text
@d12 1
a12 1
# RCS: @@(#) $Id: main.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
@


1.1.4.2
log
@Merged changes from Tk 8.0.5b1
@
text
@d12 1
a12 1
# RCS: @@(#) $Id: main.test,v 1.1.4.1 1998/09/30 02:18:47 stanton Exp $
a29 1
    file delete -force script
@


1.1.4.3
log
@* Various cleanup related to the Tcl_Eval and Tcl_ObjSetVar
changes in Tcl.

* Integrated patches from 8.0.5b2
@
text
@d12 1
a12 1
# RCS: @@(#) $Id: main.test,v 1.1.4.2 1999/01/29 00:34:35 stanton Exp $
a32 5

#
# Clean up.
#
catch {removeFile script}
@


1.1.4.4
log
@Updated the testsuite to use "test" namespace and commandline args
to control verbose  level and which tests get run.  Tests now work from
any working dir.
@
text
@a7 2
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
d9 4
a12 1
# RCS: @@(#) $Id: main.test,v 1.1.4.3 1999/02/11 04:13:49 stanton Exp $
d14 2
a15 2
if {[lsearch [namespace children] ::test] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
d34 3
a36 1
# cleanup
a37 2
::test::cleanupTests
return
@


1.1.4.5
log
@- changed ::test to ::tcltest
- made many tests more atomic (still more work to do here)
- defs.tcl is now identicle for tcl and tk
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.1.4.4 1999/03/11 18:50:59 hershey Exp $
d13 1
a13 1
if {[lsearch [namespace children] ::tcltest] == -1} {
d24 1
a24 1
    if {[catch {exec $::tcltest::tktest <script} msg]} {
d35 1
a35 1
::tcltest::cleanupTests
a36 12












@


1.1.4.6
log
@lint:  changed a tcltest namespace variable name from tmpDir to
       workingDir.
changes:  made more tests atomic.
README is now updated to match new test suite features.
@
text
@d11 1
a11 1
# RCS: @@(#) $Id: main.test,v 1.1.4.5 1999/03/24 01:16:56 hershey Exp $
a36 1

@


