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

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

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

Added Files:
	BuildTestFiles.tcl 
Log Message:
First checkin

--- NEW FILE: BuildTestFiles.tcl ---
# -------------------------------------------------------
# File: "BuildTestsFiles.tcl"
#                        Created: 2004-09-05 07:54:17
#              Last modification: 2004-09-05 10:49:55
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
# (c) Copyright : Bernard Desgraupes, 2004
# All rights reserved.
# 
# $Date: 2004/09/06 07:00:55 $
# $Revision: 1.1 $
# -------------------------------------------------------

set cmdsList [list Attributes Close Delete Files Fork Id List Name \
  Open Read Types Update Write ]

set date [ISOTime::ISODateAndTimeRelaxed]

set testdir [file join [file dir [info script]] Tests]

set postamble "# Cleanup
::tcltest::cleanupTests
\}

namespace delete ::resource::test
"


foreach cmd $cmdsList {
	# Create the preamble
	set preamble "# -------------------------------------------------------
# File: \"${cmd}Cmd.test\"
#                        Created: $date
#              Last modification: 2004-09-05 10:49:55
# 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 [string tolower $cmd]\] command defined 
# in the Tclresource extension.
# 
# \$Date\$
# \$Revision\$
# -------------------------------------------------------

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

namespace eval ::resource::test \{
	namespace import ::tcltest::*
"
	# Create the file
	set fid [open [file join $testdir ${cmd}Cmd.test] w+]
	puts $fid $preamble
	for {set i 1} {$i <= 3} {incr i} {
		set txt "	test Resource$cmd-1-$i {} -setup {
	} -body {
	} -cleanup {
	} -result \"\"
		"
		puts $fid $txt
	}
	puts $fid $postamble
	close $fid
} 

unset -nocomplain cmdsList date testdir preamble postamble fid