tclresource-commits Mailing List for TclResource (Page 3)
Status: Beta
Brought to you by:
bdesgraupes
Menu
▾
▴
tclresource-commits — TclResource CVS Commit Messages List
You can subscribe to this list here.
| 2003 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(3) |
Dec
(7) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2004 |
Jan
(2) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(77) |
Oct
|
Nov
|
Dec
|
| 2006 |
Jan
(9) |
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2007 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Bernard D. <bde...@us...> - 2004-09-06 13:57:18
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4197 Removed Files: TestResourcesForks.zip Log Message: Needs kb expansion --- TestResourcesForks.zip DELETED --- |
|
From: Bernard D. <bde...@us...> - 2004-09-06 13:55:49
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3883 Added Files: TestResourcesForks.zip Log Message: Resource files for the test suite --- NEW FILE: TestResourcesForks.zip --- (This appears to be a binary file; contents omitted.) |
|
From: Bernard D. <bde...@us...> - 2004-09-06 13:54:44
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3714 Removed Files: TestResourcesDF.rsrc TestResourcesNF.rsrc TestResourcesRF.rsrc Log Message: Replaced by zip archive --- TestResourcesRF.rsrc DELETED --- --- TestResourcesDF.rsrc DELETED --- --- TestResourcesNF.rsrc DELETED --- |
|
From: Bernard D. <bde...@us...> - 2004-09-06 13:46:04
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2297 Modified Files: TestResourcesDF.rsrc Log Message: Rebuilt Index: TestResourcesDF.rsrc =================================================================== RCS file: /cvsroot/tclresource/Extras/Tests/Forks/TestResourcesDF.rsrc,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 Binary files /tmp/cvsuS938F and /tmp/cvslnJ2tC differ |
|
From: Bernard D. <bde...@us...> - 2004-09-06 13:42:32
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1682 Modified Files: OpenCmd.test Log Message: 12 tests Index: OpenCmd.test =================================================================== RCS file: /cvsroot/tclresource/Extras/Tests/OpenCmd.test,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- OpenCmd.test 6 Sep 2004 07:03:46 -0000 1.1 +++ OpenCmd.test 6 Sep 2004 13:42:23 -0000 1.2 @@ -1,7 +1,7 @@ # ------------------------------------------------------- # File: "OpenCmd.test" # Created: 2004-09-05 20:16:33 -# Last modification: 2004-09-05 10:49:55 +# Last modification: 2004-09-06 13:18:23 # Author: Bernard Desgraupes # e-mail: <bde...@ea...> # www: <http://webperso.easyconnect.fr/bdesgraupes/> @@ -22,23 +22,92 @@ namespace eval ::resource::test { namespace import ::tcltest::* - test ResourceOpen-1-1 {} -setup { + test ResourceOpen-1-1 {DF file unspecified fork} -setup { } -body { + set rid [resource open $resfileDF] } -cleanup { - } -result "" + resource close $rid + } -match glob -result resource* - test ResourceOpen-1-2 {} -setup { + test ResourceOpen-1-2 {RF file unspecified fork} -setup { } -body { + set rid [resource open $resfileRF] } -cleanup { - } -result "" + resource close $rid + } -match glob -result resource* - test ResourceOpen-1-3 {} -setup { + test ResourceOpen-1-3 {Open data fork} -setup { } -body { + set rid [resource open -datafork $resfileDF] } -cleanup { - } -result "" + resource close $rid + } -match glob -result resource* -# Cleanup -::tcltest::cleanupTests + test ResourceOpen-1-4 {Open resource fork} -setup { + } -body { + set rid [resource open -resourcefork $resfileRF] + } -cleanup { + resource close $rid + } -match glob -result resource* + + test ResourceOpen-1-5 {File with no fork} -setup { + } -body { + set rid [resource open $resfileNF] + } -cleanup { + } -returnCodes error -result "file does not contain resources in any fork" + + test ResourceOpen-1-6 {Open DF when resource is in RF} -setup { + } -body { + set rid [resource open -datafork $resfileRF] + } -cleanup { + } -returnCodes error -result "file does not contain resources in the data fork" + + test ResourceOpen-1-7 {Open RF when resource is in DF} -setup { + } -body { + set rid [resource open -resourcefork $resfileDF] + } -cleanup { + } -returnCodes error -result "file does not contain resources in the resource fork" + + test ResourceOpen-2-1 {Read permission} -setup { + } -body { + set rid [resource open $resfileDF r] + } -cleanup { + resource close $rid + } -match glob -result resource* + + test ResourceOpen-2-2 {Write permission} -setup { + } -body { + set rid [resource open $resfileDF w] + } -cleanup { + resource close $rid + } -match glob -result resource* + + test ResourceOpen-2-3 {Open with w but already opened with r} -setup { + } -body { + set rid [resource open $resfileDF r] + resource open $resfileDF w + } -cleanup { + resource close $rid + } -returnCodes error -result "resource already opened with different permission" + + test ResourceOpen-2-4 {Open with r but already opened with w} -setup { + } -body { + set rid [resource open $resfileDF w] + resource open $resfileDF r + } -cleanup { + resource close $rid + } -returnCodes error -result "resource already opened with different permission" + + test ResourceOpen-2-5 {Already opened with same permission} -setup { + } -body { + set rid [resource open $resfileDF w] + resource open $resfileDF w + } -cleanup { + resource close $rid + } -match glob -result resource* + + # Cleanup + ::tcltest::cleanupTests } namespace delete ::resource::test |
|
From: Bernard D. <bde...@us...> - 2004-09-06 11:17:22
|
Update of /cvsroot/tclresource/CVSROOT In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8467 Modified Files: loginfo Log Message: Send to commits list Index: loginfo =================================================================== RCS file: /cvsroot/tclresource/CVSROOT/loginfo,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- loginfo 9 Jan 2004 14:40:07 -0000 1.7 +++ loginfo 6 Sep 2004 11:17:10 -0000 1.8 @@ -37,7 +37,7 @@ # Use syncmail # CVSROOT /cvsroot/sitedocs/CVSROOT/cvstools/syncmail -q -u %{sVv} bde...@us... -ALL /cvsroot/sitedocs/CVSROOT/cvstools/syncmail -q -u %{sVv} bde...@us... +ALL /cvsroot/sitedocs/CVSROOT/cvstools/syncmail -q -u %{sVv} tcl...@li... -DEFAULT /cvsroot/sitedocs/CVSROOT/cvstools/syncmail -q -u %{sVv} tcl...@li... +DEFAULT /cvsroot/sitedocs/CVSROOT/cvstools/syncmail -q -u %{sVv} bde...@us... |
|
From: Bernard D. <bde...@us...> - 2004-09-06 11:13:26
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7791 Modified Files: all.tcl Log Message: No exit Index: all.tcl =================================================================== RCS file: /cvsroot/tclresource/Extras/Tests/all.tcl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- all.tcl 6 Sep 2004 07:00:33 -0000 1.1 +++ all.tcl 6 Sep 2004 11:13:03 -0000 1.2 @@ -50,9 +50,16 @@ puts stdout "Starting tests [clock format [clock seconds]]" # Now execute the tests suite -tcltest::runAllTests +# tcltest::runAllTests +# Source each of the specified tests +foreach file [lsort [::tcltest::getMatchingFiles]] { + set tail [file tail $file] + if {[catch {source $file} msg]} { + puts stdout $msg + } +} # Cleanup puts stdout "\nEnd of tests [clock format [clock seconds]]" ::tcltest::cleanupTests 1 -exit + |
|
From: Bernard D. <bde...@us...> - 2004-09-06 11:12:38
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7659 Modified Files: ReadCmd.test Log Message: Four tests Index: ReadCmd.test =================================================================== RCS file: /cvsroot/tclresource/Extras/Tests/ReadCmd.test,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- ReadCmd.test 6 Sep 2004 07:03:55 -0000 1.1 +++ ReadCmd.test 6 Sep 2004 11:12:25 -0000 1.2 @@ -22,20 +22,39 @@ namespace eval ::resource::test { namespace import ::tcltest::* - test ResourceRead-1-1 {} -setup { + test ResourceRead-1-1 {Read a text resource} -setup { + set rid [resource open $resfileDF] } -body { + set res [resource read TEXT 128 $rid] } -cleanup { - } -result "" + resource close $rid + } -result "Hello Tclresource!" - test ResourceRead-1-2 {} -setup { + test ResourceRead-1-2 {Read binary data} -setup { + set rid [resource open $resfileDF] } -body { + set bin [resource read ALRT 128 $rid] + binary scan $bin H* res + set res } -cleanup { - } -result "" + resource close $rid + } -result "002800280087017c00805555300a" - test ResourceRead-1-3 {} -setup { + test ResourceRead-1-3 {Non existing type} -setup { + set rid [resource open $resfileDF] } -body { + set bin [resource read wxyz 128 $rid] } -cleanup { - } -result "" + resource close $rid + } -returnCodes error -result "could not load resource" + + test ResourceRead-1-4 {Non existing ID} -setup { + set rid [resource open $resfileDF] + } -body { + set bin [resource read ALRT 1000 $rid] + } -cleanup { + resource close $rid + } -returnCodes error -result "could not load resource" # Cleanup ::tcltest::cleanupTests |
|
From: Bernard D. <bde...@us...> - 2004-09-06 10:44:19
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2995 Modified Files: ListCmd.test TypesCmd.test common.tcl Log Message: New tests Index: TypesCmd.test =================================================================== RCS file: /cvsroot/tclresource/Extras/Tests/TypesCmd.test,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- TypesCmd.test 6 Sep 2004 07:04:08 -0000 1.1 +++ TypesCmd.test 6 Sep 2004 10:44:07 -0000 1.2 @@ -40,6 +40,8 @@ test ResourceTypes-1-3 {Getting all types for all resources} -setup { } -body { + # Just check that it does not fail. We can't know in advance the + # complete list of types. catch {resource types} } -cleanup { } -result 0 Index: ListCmd.test =================================================================== RCS file: /cvsroot/tclresource/Extras/Tests/ListCmd.test,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- ListCmd.test 6 Sep 2004 07:03:07 -0000 1.1 +++ ListCmd.test 6 Sep 2004 10:44:07 -0000 1.2 @@ -1,7 +1,7 @@ # ------------------------------------------------------- # File: "ListCmd.test" # Created: 2004-09-05 20:16:33 -# Last modification: 2004-09-05 10:49:55 +# Last modification: 2004-09-06 12:35:50 # Author: Bernard Desgraupes # e-mail: <bde...@ea...> # www: <http://webperso.easyconnect.fr/bdesgraupes/> @@ -22,23 +22,32 @@ namespace eval ::resource::test { namespace import ::tcltest::* - test ResourceList-1-1 {} -setup { + test ResourceList-1-1 {Get a list} -setup { + set rid [resource open $resfileDF] } -body { + set res [resource list TEXT $rid] } -cleanup { - } -result "" + resource close $rid + } -result [list "Say hello" "Say goodbye"] - test ResourceList-1-2 {} -setup { + test ResourceList-1-2 {Using the -ids option} -setup { + set rid [resource open $resfileDF] } -body { + set res [resource list -ids TEXT $rid] } -cleanup { - } -result "" + resource close $rid + } -result [list 128 129] - test ResourceList-1-3 {} -setup { + test ResourceList-1-3 {Non existing type} -setup { + set rid [resource open $resfileDF] } -body { + set res [resource list wxyz $rid] } -cleanup { + resource close $rid } -result "" -# Cleanup -::tcltest::cleanupTests + # Cleanup + ::tcltest::cleanupTests } namespace delete ::resource::test Index: common.tcl =================================================================== RCS file: /cvsroot/tclresource/Extras/Tests/common.tcl,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- common.tcl 6 Sep 2004 07:01:15 -0000 1.1 +++ common.tcl 6 Sep 2004 10:44:07 -0000 1.2 @@ -40,4 +40,3 @@ package require resource 1.1 -# set resfileDF "/Volumes/hd3/Tcl/Tcl_Sources/Extensions/Tclresource/Tclresource/Extras/Tests/TestResourcesDF.rsrc" \ No newline at end of file |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:30:31
|
Update of /cvsroot/tclresource/Extras In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2067 Removed Files: BuildTestFiles.tcl Log Message: rm --- BuildTestFiles.tcl DELETED --- |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:20:27
|
Update of /cvsroot/tclresource/Extras In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32597/Extras 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:20:17 $ # $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 |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:19:00
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32274/Extras/Tests/Forks Added Files: TestResourcesRF.rsrc Log Message: First checkin --- NEW FILE: TestResourcesRF.rsrc --- |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:18:50
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32231/Extras/Tests/Forks Added Files: TestResourcesNF.rsrc Log Message: First checkin --- NEW FILE: TestResourcesNF.rsrc --- |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:18:35
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32192/Extras/Tests/Forks Added Files: TestResourcesDF.rsrc Log Message: First checkin --- NEW FILE: TestResourcesDF.rsrc --- (This appears to be a binary file; contents omitted.) |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:18:25
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32129/Extras/Tests/Forks Added Files: TestForks.readme Log Message: First checkin --- NEW FILE: TestForks.readme --- File: "TestForks.readme" The Tclresource tests suite uses several pre-built resource files (like TestResourcesDF.rsrc, TestResourcesDF.rsrc etc.) which it expects to find inside this /Tests/Forks folder. The "BuildTestForks.tcl" file is a Tcl script which will rebuild the resource files in case they get damaged. > ------------------------------------------------------- > Last modification: 2004-09-06 08:39:42 |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:18:17
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32063/Extras/Tests/Forks Added Files: BuildTestForks.tcl Log Message: First checkin --- NEW FILE: BuildTestForks.tcl --- # ------------------------------------------------------- # File: "BuildTestsFiles.tcl" # Created: 2004-09-05 07:54:17 # Last modification: 2004-09-06 08:39:42 # 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:18:08 $ # $Revision: 1.1 $ # ------------------------------------------------------- package require resource 1.1 set date [ISOTime::ISODateAndTimeRelaxed] set testdir [file dir [info script]] # Build a datafork and a resourcefork resource file foreach suffix [list DF RF] { if {$suffix eq "DF"} { set whichfork datafork } else { set whichfork resourcefork } set resfile [file join $testdir TestResources${suffix}.rsrc] if {[file exists $resfile]} { file delete $resfile } set rid [resource open -$whichfork $resfile w+] # TEXT resource write -id 128 -name "Say hello" -file $rid TEXT "Hello Tclresource!" resource write -id 129 -name "Say goodbye" -file $rid TEXT "Goodbye Tclresource!" # STR# resource write -id 129 -name "Greetings" -file $rid "STR#" "\x00\x02\x05Hello\x05Salud" # ckid - "2f637673726f6f742f74636c" means "/cvsroot/tcl" set hexdata "\x76\x52\x90\x1a\x3f\xe5\x32\x30\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\xbd\x28\x04\x36\xbd\x28\x04\x36\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x2a\x2f\x63\x76\x73\x72\x6f\x6f\x74\x2f\x74\x63\x6c\x2f\x54\x63\x6c\x2f\x4d\x65\x6e\x75\x73\x2f\x63\x6f\x6c\x6f\x72\x73\x4d\x65\x6e\x75\x2e\x74\x63\x6c\x00\x09\x61\x6e\x6f\x6e\x79\x6d\x6f\x75\x73\x00\x04\x31\x2e\x32\x35\x00\x0e\x63\x6f\x6c\x6f\x72\x73\x4d\x65\x6e\x75\x2e\x74\x63\x6c\x00\x00\x00\x00\x00\x00" resource write -id 128 -name "CVS info" -file $rid ckid $hexdata # ALRT - this resource intentionally has no name set hexdata "\x00\x28\x00\x28\x00\x87\x01\x7c\x00\x80\x55\x55\x30\x0a" resource write -id 128 -file $rid ALRT $hexdata # MPSR - this resource intentionally has no name set hexdata "\x00\x09\x4d\x6f\x6e\x61\x63\x6f\x00\x4c\x25\xb0\x00\x05\x00\x00\xbf\x80\x00\x00\x00\x00\x00\x00\x43\xcc\x80\x00\x00\x00\x00\x00\x00\x00\x00\x06\x00\x04\x00\x3b\x00\x1e\x01\xbe\x02\xff\x00\x3b\x00\x1e\x01\xbe\x02\xff\xbd\x5f\xe3\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00" resource write -id 1005 -file $rid MPSR $hexdata # Abou resource write -id 128 -name "About this file" -file $rid Abou "This is a $whichfork resource file for the Tclresource [package present resource] test suite. Built $date" resource close $rid } # Build a file with no forks set resfile [file join $testdir TestResourcesNF.rsrc] if {[file exists $resfile]} { file delete $resfile } close [open $resfile w+] unset -nocomplain date testdir suffix resfile rid whichfork |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:15:07
|
Update of /cvsroot/tclresource/Extras/Tests/Forks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31468/Forks Log Message: Directory /cvsroot/tclresource/Extras/Tests/Forks added to the repository |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:04:38
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29909/Extras/Tests Added Files: WriteCmd.test Log Message: First checkin --- NEW FILE: WriteCmd.test --- # ------------------------------------------------------- # File: "WriteCmd.test" # Created: 2004-09-05 20:16:33 # 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 write] command defined # in the Tclresource extension. # # $Date: 2004/09/06 07:04:26 $ # $Revision: 1.1 $ # ------------------------------------------------------- source [file join [file dir [info script]] common.tcl] namespace eval ::resource::test { namespace import ::tcltest::* test ResourceWrite-1-1 {} -setup { } -body { } -cleanup { } -result "" test ResourceWrite-1-2 {} -setup { } -body { } -cleanup { } -result "" test ResourceWrite-1-3 {} -setup { } -body { } -cleanup { } -result "" # Cleanup ::tcltest::cleanupTests } namespace delete ::resource::test |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:04:27
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29873/Extras/Tests Added Files: UpdateCmd.test Log Message: First checkin --- NEW FILE: UpdateCmd.test --- # ------------------------------------------------------- # File: "UpdateCmd.test" # Created: 2004-09-05 20:16:33 # 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 update] command defined # in the Tclresource extension. # # $Date: 2004/09/06 07:04:17 $ # $Revision: 1.1 $ # ------------------------------------------------------- source [file join [file dir [info script]] common.tcl] namespace eval ::resource::test { namespace import ::tcltest::* test ResourceUpdate-1-1 {} -setup { } -body { } -cleanup { } -result "" test ResourceUpdate-1-2 {} -setup { } -body { } -cleanup { } -result "" test ResourceUpdate-1-3 {} -setup { } -body { } -cleanup { } -result "" # Cleanup ::tcltest::cleanupTests } namespace delete ::resource::test |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:04:19
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29810/Extras/Tests Added Files: TypesCmd.test Log Message: First checkin --- NEW FILE: TypesCmd.test --- # ------------------------------------------------------- # File: "TypesCmd.test" # Created: 2004-09-05 20:16:33 # Last modification: 2004-09-06 08:15:41 # 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 types] command defined # in the Tclresource extension. # # $Date: 2004/09/06 07:04:08 $ # $Revision: 1.1 $ # ------------------------------------------------------- source [file join [file dir [info script]] common.tcl] namespace eval ::resource::test { namespace import ::tcltest::* test ResourceTypes-1-1 {Getting types from a data fork} -setup { set rid [resource open $resfileDF] } -body { set res [lsort -dictionary [resource types $rid]] } -cleanup { resource close $rid } -result "Abou ALRT ckid MPSR STR# TEXT" test ResourceTypes-1-2 {Getting types from a resource fork} -setup { set rid [resource open $resfileRF] } -body { set res [lsort -dictionary [resource types $rid]] } -cleanup { resource close $rid } -result "Abou ALRT ckid MPSR STR# TEXT" test ResourceTypes-1-3 {Getting all types for all resources} -setup { } -body { catch {resource types} } -cleanup { } -result 0 # Cleanup ::tcltest::cleanupTests } namespace delete ::resource::test |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:04:05
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29731/Extras/Tests Added Files: ReadCmd.test Log Message: First checkin --- NEW FILE: ReadCmd.test --- # ------------------------------------------------------- # File: "ReadCmd.test" # Created: 2004-09-05 20:16:33 # 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 read] command defined # in the Tclresource extension. # # $Date: 2004/09/06 07:03:55 $ # $Revision: 1.1 $ # ------------------------------------------------------- source [file join [file dir [info script]] common.tcl] namespace eval ::resource::test { namespace import ::tcltest::* test ResourceRead-1-1 {} -setup { } -body { } -cleanup { } -result "" test ResourceRead-1-2 {} -setup { } -body { } -cleanup { } -result "" test ResourceRead-1-3 {} -setup { } -body { } -cleanup { } -result "" # Cleanup ::tcltest::cleanupTests } namespace delete ::resource::test |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:03:57
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29694/Extras/Tests Added Files: OpenCmd.test Log Message: First checkin --- NEW FILE: OpenCmd.test --- # ------------------------------------------------------- # File: "OpenCmd.test" # Created: 2004-09-05 20:16:33 # 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 open] command defined # in the Tclresource extension. # # $Date: 2004/09/06 07:03:46 $ # $Revision: 1.1 $ # ------------------------------------------------------- source [file join [file dir [info script]] common.tcl] namespace eval ::resource::test { namespace import ::tcltest::* test ResourceOpen-1-1 {} -setup { } -body { } -cleanup { } -result "" test ResourceOpen-1-2 {} -setup { } -body { } -cleanup { } -result "" test ResourceOpen-1-3 {} -setup { } -body { } -cleanup { } -result "" # Cleanup ::tcltest::cleanupTests } namespace delete ::resource::test |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:03:47
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29618/Extras/Tests Added Files: NameCmd.test Log Message: First checkin --- NEW FILE: NameCmd.test --- # ------------------------------------------------------- # File: "NameCmd.test" # Created: 2004-09-05 20:16:33 # Last modification: 2004-09-06 07:57:51 # 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 name] command defined # in the Tclresource extension. # # $Date: 2004/09/06 07:03:30 $ # $Revision: 1.1 $ # ------------------------------------------------------- source [file join [file dir [info script]] common.tcl] namespace eval ::resource::test { namespace import ::tcltest::* test ResourceName-1-1 {Get name from ID} -setup { set rid [resource open $resfileDF] } -body { set res [resource name TEXT 128 $rid] } -cleanup { resource close $rid } -result "Say hello" test ResourceName-1-2 {Resource with no name} -setup { set rid [resource open $resfileDF] } -body { set res [resource name ALRT 128 $rid] } -cleanup { resource close $rid } -result "" test ResourceName-1-3 {Non existing resource} -setup { set rid [resource open $resfileDF] } -body { set res [resource name TEXT 1000 $rid] } -cleanup { resource close $rid } -returnCodes error -result "could not find resource" # Cleanup ::tcltest::cleanupTests } namespace delete ::resource::test |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:03:16
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29588/Extras/Tests Added Files: ListCmd.test Log Message: First checkin --- NEW FILE: ListCmd.test --- # ------------------------------------------------------- # File: "ListCmd.test" # Created: 2004-09-05 20:16:33 # 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 list] command defined # in the Tclresource extension. # # $Date: 2004/09/06 07:03:07 $ # $Revision: 1.1 $ # ------------------------------------------------------- source [file join [file dir [info script]] common.tcl] namespace eval ::resource::test { namespace import ::tcltest::* test ResourceList-1-1 {} -setup { } -body { } -cleanup { } -result "" test ResourceList-1-2 {} -setup { } -body { } -cleanup { } -result "" test ResourceList-1-3 {} -setup { } -body { } -cleanup { } -result "" # Cleanup ::tcltest::cleanupTests } namespace delete ::resource::test |
|
From: Bernard D. <bde...@us...> - 2004-09-06 07:03:08
|
Update of /cvsroot/tclresource/Extras/Tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29524/Extras/Tests Added Files: IdCmd.test Log Message: First checkin --- NEW FILE: IdCmd.test --- # ------------------------------------------------------- # File: "IdCmd.test" # Created: 2004-09-05 20:16:33 # Last modification: 2004-09-06 07:54:53 # 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 id] command defined # in the Tclresource extension. # # $Date: 2004/09/06 07:02:58 $ # $Revision: 1.1 $ # ------------------------------------------------------- source [file join [file dir [info script]] common.tcl] namespace eval ::resource::test { namespace import ::tcltest::* test ResourceId-1-1 {Get ID from name} -setup { set rid [resource open $resfileDF] } -body { set res [resource id TEXT "Say hello" $rid] } -cleanup { resource close $rid } -result 128 test ResourceId-1-2 {Resource with no name} -setup { set rid [resource open $resfileDF] } -body { set res [resource id ALRT "" $rid] } -cleanup { resource close $rid } -returnCodes error -result "could not find resource" # test ResourceId-1-3 {} -setup { # } -body { # } -cleanup { # } -result "" # Cleanup ::tcltest::cleanupTests } namespace delete ::resource::test |
