[Tclresource-commits] Extras/Tests all.tcl,NONE,1.1

[Bernard D. <bde...@us...>]

Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28918/Extras/Tests

Added Files:
	all.tcl 
Log Message:
First checkin

--- NEW FILE: all.tcl ---
# -------------------------------------------------------
# File: "all.tcl"
#                        Created: 2004-09-05 07:54:17
#              Last modification: 2004-09-06 08:11:15
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright: Bernard Desgraupes, 2004
# All rights reserved.
# This software is free software with BSD licence.
# Versions history: see the Changes.Log file.
# 
# Test suite for the Tcl [resource] command defined 
# in the Tclresource extension.
# 
# $Date: 2004/09/06 07:00:33 $
# $Revision: 1.1 $
# -------------------------------------------------------


source [file join [file dir [info script]] common.tcl]

puts stdout "Tcl $tcl_patchLevel tests running in interp: [info nameofexecutable]"

tcltest::configure -testdir [file dirname [file normalize [info script]]]

# Compatibility with the old tcltest package configuring from the command line
# arguments.
if {[info exists argv]} {
	eval tcltest::configure $argv
} 


# Skip and match variables
puts stdout "Tests running in working dir:  $::tcltest::testsDirectory"
if {[llength $::tcltest::skip] > 0} {
	puts stdout "Skipping tests that match:  $::tcltest::skip"
}
if {[llength $::tcltest::match] > 0} {
	puts stdout "Only running tests that match:  $::tcltest::match"
}

if {[llength $::tcltest::skipFiles] > 0} {
	puts stdout "Skipping test files that match:  $::tcltest::skipFiles"
}
if {[llength $::tcltest::matchFiles] > 0} {
	puts stdout "Only sourcing test files that match:  $::tcltest::matchFiles"
}

puts stdout "Starting tests [clock format [clock seconds]]"

# Now execute the tests suite
tcltest::runAllTests

# Cleanup
puts stdout "\nEnd of tests [clock format [clock seconds]]"
::tcltest::cleanupTests 1
exit