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
|
