Menu
▾
▴
[Tcl-bugs] [ tcl-Bugs-736431 ] inconsistent usage of tcltest related contraints
|
From: SourceForge.net <no...@so...> - 2004-06-24 08:51:38
|
Bugs item #736431, was opened at 2003-05-12 04:44 Message generated for change (Comment added) made by mistachkin You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=736431&group_id=10894 Category: 27. Channel Types Group: obsolete: 8.4.5 Status: Open Resolution: Remind Priority: 5 Submitted By: Joe Mistachkin (mistachkin) Assigned to: Don Porter (dgp) >Summary: inconsistent usage of tcltest related contraints Initial Comment: cmdAH.test (cmdAH-20.5) and reg.test (reg- 32.3.1) have tests without the necessary test constraints (testchmod for cmdAH-20.5)... The easiest way to demonstrate this is by running all.tcl from tclsh. I believe there may be quite a few other tests that are missing the "tcltest" constraints. There is so much output, it's hard to pinpoint where all the missing constraints are. I got 130 test failures running all.tcl from tclsh. I didn't get any test failures running all the tests via tcltest.exe. This leads me to believe we are missing more than a few "tcltest" related constraints. ---------------------------------------------------------------------- >Comment By: Joe Mistachkin (mistachkin) Date: 2004-06-24 01:51 Message: Logged In: YES user_id=113501 Still seeing a whole bunch of missing tcltest related constraints in HEAD. ---------------------------------------------------------------------- Comment By: Donal K. Fellows (dkf) Date: 2003-11-11 10:16 Message: Logged In: YES user_id=79902 I concur with doing this for 8.5, and with the assessment that it isn't critical for 8.4 (after all, these problems are caused by usage off the beaten track of debugging-only systems.) ---------------------------------------------------------------------- Comment By: Joe Mistachkin (mistachkin) Date: 2003-11-11 00:06 Message: Logged In: YES user_id=113501 I believe we should incorporate as many of dgp's (and davidw's?) improvements to the tcltest system as possible for the 8.5 release. ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2003-10-06 21:29 Message: Logged In: YES user_id=80530 On Linux there are only two test failures due to missing constraints on the 8.4.x branch. There are several test files that are skipped almost completely instead of making use of constraints; that should eventually be improved. Better yet will be to package the Tcltest binary package to be loadable so we don't need a special tcltest executable, and can just load the extra testing commands into any tclsh. Moving those special commands into the ::tcl::test namespace would also be an improvement. Leaving open, cause all those things are worth doing, but dropping prio, because the current quality of constraint usage is acceptable for 8.4.5, IMHO. If anyone disagrees and wants to provide the fixes, they are welcome. start with tests filesystem-7.2 and pkgMkIndex-2.4. ---------------------------------------------------------------------- Comment By: Joe Mistachkin (mistachkin) Date: 2003-09-25 07:32 Message: Logged In: YES user_id=113501 Has this been fixed? ---------------------------------------------------------------------- Comment By: Joe Mistachkin (mistachkin) Date: 2003-05-13 20:13 Message: Logged In: YES user_id=113501 Here are some more test failures due to lack of tcltest constraints... these are from winFCmd.test and winPipe.test. winFCmd.test ==== winFCmd-1.2 TclpRenameFile: errno: EEXIST FAILED ==== Contents of test case: cleanup file mkdir td1/td2/td3 file mkdir td2 list [catch {testfile mv td2 td1/td2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EEXIST ==== winFCmd-1.2 FAILED ==== winFCmd-1.3 TclpRenameFile: errno: EINVAL FAILED ==== Contents of test case: cleanup list [catch {testfile mv / td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EINVAL ==== winFCmd-1.3 FAILED ==== winFCmd-1.4 TclpRenameFile: errno: EINVAL FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile mv td1 td1/td2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EINVAL ==== winFCmd-1.4 FAILED ==== winFCmd-1.5 TclpRenameFile: errno: EISDIR FAILED ==== Contents of test case: cleanup file mkdir td1 createfile tf1 list [catch {testfile mv tf1 td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-1.5 FAILED ==== winFCmd-1.6 TclpRenameFile: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile mv tf1 tf2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-1.6 FAILED ==== winFCmd-1.7 TclpRenameFile: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile mv "" tf2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-1.7 FAILED ==== winFCmd-1.8 TclpRenameFile: errno: ENOENT FAILED ==== Contents of test case: cleanup createfile tf1 list [catch {testfile mv tf1 ""} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-1.8 FAILED ==== winFCmd-1.9 TclpRenameFile: errno: ENOTDIR FAILED ==== Contents of test case: cleanup file mkdir td1 createfile tf1 list [catch {testfile mv td1 tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOTDIR ==== winFCmd-1.9 FAILED ==== winFCmd-1.10 TclpRenameFile: errno: EXDEV FAILED ==== Contents of test case: file delete -force d:/tf1 file mkdir c:/tf1 set msg [list [catch {testfile mv c:/tf1 d:/tf1} msg] $msg] file delete -force c:/tf1 set msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EXDEV ==== winFCmd-1.10 FAILED ==== winFCmd-1.11 TclpRenameFile: errno: EACCES FAILED ==== Contents of test case: cleanup set fd [open tf1 w] set msg [list [catch {testfile mv tf1 tf2} msg] $msg] close $fd set msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-1.11 FAILED ==== winFCmd-1.12 TclpRenameFile: errno: EACCES FAILED ==== Contents of test case: cleanup createfile tf1 set fd [open tf2 w] set msg [list [catch {testfile mv tf1 tf2} msg] $msg] close $fd set msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-1.12 FAILED ==== winFCmd-1.13.1 TclpRenameFile: errno: EACCES FAILED ==== Contents of test case: cleanup list [catch {testfile mv nul tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-1.13.1 FAILED ==== winFCmd-1.15 TclpRenameFile: errno: EEXIST FAILED ==== Contents of test case: cleanup createfile tf1 list [catch {testfile mv tf1 nul} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EEXIST ==== winFCmd-1.15 FAILED ==== winFCmd-1.16 TclpRenameFile: MoveFile() != FALSE FAILED ==== Contents of test case: cleanup createfile tf1 tf1 testfile mv tf1 tf2 list [file exists tf1] [contents tf2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-1.16 FAILED ==== winFCmd-1.17 TclpRenameFile: MoveFile() == FALSE FAILED ==== Contents of test case: cleanup list [catch {testfile mv tf1 tf2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-1.17 FAILED ==== winFCmd-1.18 TclpRenameFile: srcAttr == -1 FAILED ==== Contents of test case: cleanup list [catch {testfile mv tf1 tf2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-1.18 FAILED ==== winFCmd-1.19.1 TclpRenameFile: errno == EACCES FAILED ==== Contents of test case: cleanup list [catch {testfile mv nul tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-1.19.1 FAILED ==== winFCmd-1.20 TclpRenameFile: src is dir FAILED ==== Contents of test case: # under 95, this would actually succeed and move the current dir out from # under the current process! cleanup file delete /tf1 list [catch {testfile mv [pwd] /tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-1.20 FAILED ==== winFCmd-1.21 TclpRenameFile: long src FAILED ==== Contents of test case: cleanup list [catch {testfile mv $longname tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENAMETOOLONG ==== winFCmd-1.21 FAILED ==== winFCmd-1.22 TclpRenameFile: long dst FAILED ==== Contents of test case: cleanup createfile tf1 list [catch {testfile mv tf1 $longname} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENAMETOOLONG ==== winFCmd-1.22 FAILED ==== winFCmd-1.23 TclpRenameFile: move dir into self FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile mv [pwd]/td1 td1/td2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EINVAL ==== winFCmd-1.23 FAILED ==== winFCmd-1.24 TclpRenameFile: move a root dir FAILED ==== Contents of test case: cleanup list [catch {testfile mv / c:/} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EINVAL ==== winFCmd-1.24 FAILED ==== winFCmd-1.27 TclpRenameFile: open file FAILED ==== Contents of test case: cleanup set fd [open tf1 w] set msg [list [catch {testfile mv tf1 tf2} msg] $msg] close $fd set msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-1.27 FAILED ==== winFCmd-1.28 TclpRenameFile: errno == EEXIST FAILED ==== Contents of test case: cleanup createfile tf1 createfile tf2 testfile mv tf1 tf2 list [file exists tf1] [file exists tf2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-1.28 FAILED ==== winFCmd-1.29 TclpRenameFile: src is dir FAILED ==== Contents of test case: cleanup file mkdir td1 createfile tf1 list [catch {testfile mv td1 tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOTDIR ==== winFCmd-1.29 FAILED ==== winFCmd-1.30 TclpRenameFile: dst is dir FAILED ==== Contents of test case: cleanup file mkdir td1 file mkdir td2/td2 list [catch {testfile mv td1 td2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EEXIST ==== winFCmd-1.30 FAILED ==== winFCmd-1.31 TclpRenameFile: TclpRemoveDirectory fails FAILED ==== Contents of test case: cleanup file mkdir td1 file mkdir td2/td2 list [catch {testfile mv td1 td2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EEXIST ==== winFCmd-1.31 FAILED ==== winFCmd-1.32 TclpRenameFile: TclpRemoveDirectory succeeds FAILED ==== Contents of test case: cleanup file mkdir td1/td2 file mkdir td2 testfile mv td1 td2 list [file exists td1] [file exists td2] [file exists td2/td2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-1.32 FAILED ==== winFCmd-1.33 TclpRenameFile: After removing dst dir, MoveFile fails FAILED ==== Contents of test case: file mkdir d:/td1 testchmod 000 d:/td1 file mkdir c:/tf1 set msg [list [catch {testfile mv c:/tf1 d:/td1} msg] $msg] set msg "$msg [file writable d:/td1]" file delete d:/td1 file delete -force c:/tf1 set msg ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-1.33 FAILED ==== winFCmd-1.34 TclpRenameFile: src is dir, dst is not FAILED ==== Contents of test case: file mkdir td1 createfile tf1 list [catch {testfile mv td1 tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOTDIR ==== winFCmd-1.34 FAILED ==== winFCmd-1.35 TclpRenameFile: src is not dir, dst is FAILED ==== Contents of test case: file mkdir td1 createfile tf1 list [catch {testfile mv tf1 td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-1.35 FAILED ==== winFCmd-1.36 TclpRenameFile: src and dst not dir FAILED ==== Contents of test case: createfile tf1 tf1 createfile tf2 tf2 testfile mv tf1 tf2 contents tf2 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-1.36 FAILED ==== winFCmd-2.2 TclpCopyFile: errno: EISDIR FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile cp td1 tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-2.2 FAILED ==== winFCmd-2.3 TclpCopyFile: errno: EISDIR FAILED ==== Contents of test case: cleanup createfile tf1 file mkdir td1 list [catch {testfile cp tf1 td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-2.3 FAILED ==== winFCmd-2.4 TclpCopyFile: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile cp tf1 tf2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-2.4 FAILED ==== winFCmd-2.5 TclpCopyFile: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile cp "" tf2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-2.5 FAILED ==== winFCmd-2.6 TclpCopyFile: errno: ENOENT FAILED ==== Contents of test case: cleanup createfile tf1 list [catch {testfile cp tf1 ""} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-2.6 FAILED ==== winFCmd-2.8.1 TclpCopyFile: errno: EACCES FAILED ==== Contents of test case: cleanup list [catch {testfile cp nul tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-2.8.1 FAILED ==== winFCmd-2.10 TclpCopyFile: CopyFile succeeds FAILED ==== Contents of test case: cleanup createfile tf1 tf1 testfile cp tf1 tf2 list [contents tf1] [contents tf2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-2.10 FAILED ==== winFCmd-2.11 TclpCopyFile: CopyFile succeeds FAILED ==== Contents of test case: cleanup createfile tf1 tf1 createfile tf2 tf2 testfile cp tf1 tf2 list [contents tf1] [contents tf2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-2.11 FAILED ==== winFCmd-2.12 TclpCopyFile: CopyFile succeeds FAILED ==== Contents of test case: cleanup createfile tf1 tf1 testchmod 000 tf1 testfile cp tf1 tf2 list [contents tf2] [file writable tf2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-2.12 FAILED ==== winFCmd-2.13 TclpCopyFile: CopyFile fails FAILED ==== Contents of test case: cleanup createfile tf1 file mkdir td1 list [catch {testfile cp tf1 td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-2.13 FAILED ==== winFCmd-2.14 TclpCopyFile: errno == EACCES FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile cp td1 tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-2.14 FAILED ==== winFCmd-2.15 TclpCopyFile: src is directory FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile cp td1 tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-2.15 FAILED ==== winFCmd-2.16 TclpCopyFile: dst is directory FAILED ==== Contents of test case: cleanup createfile tf1 file mkdir td1 list [catch {testfile cp tf1 td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-2.16 FAILED ==== winFCmd-2.17 TclpCopyFile: dst is readonly FAILED ==== Contents of test case: cleanup createfile tf1 tf1 createfile tf2 tf2 testchmod 000 tf2 testfile cp tf1 tf2 list [file writable tf2] [contents tf2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-2.17 FAILED ==== winFCmd-3.2 TclpDeleteFile: errno: EISDIR FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile rm td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-3.2 FAILED ==== winFCmd-3.3 TclpDeleteFile: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile rm tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-3.3 FAILED ==== winFCmd-3.4 TclpDeleteFile: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile rm ""} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-3.4 FAILED ==== winFCmd-3.5 TclpDeleteFile: errno: EACCES FAILED ==== Contents of test case: cleanup set fd [open tf1 w] set msg [list [catch {testfile rm tf1} msg] $msg] close $fd set msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-3.5 FAILED ==== winFCmd-3.6 TclpDeleteFile: errno: EACCES FAILED ==== Contents of test case: cleanup list [catch {testfile rm nul} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-3.6 FAILED ==== winFCmd-3.7 TclpDeleteFile: DeleteFile succeeds FAILED ==== Contents of test case: cleanup createfile tf1 testfile rm tf1 file exists tf1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-3.7 FAILED ==== winFCmd-3.8 TclpDeleteFile: DeleteFile fails FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile rm td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EISDIR ==== winFCmd-3.8 FAILED ==== winFCmd-3.9 TclpDeleteFile: errno == EACCES FAILED ==== Contents of test case: cleanup set fd [open tf1 w] set msg [list [catch {testfile rm tf1} msg] $msg] close $fd set msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EACCES ==== winFCmd-3.9 FAILED ==== winFCmd-3.10 TclpDeleteFile: path is readonly FAILED ==== Contents of test case: cleanup createfile tf1 testchmod 000 tf1 testfile rm tf1 file exists tf1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-3.10 FAILED ==== winFCmd-3.11 TclpDeleteFile: still can't remove path FAILED ==== Contents of test case: cleanup set fd [open tf1 w] testchmod 000 tf1 set msg [list [catch {testfile rm tf1} msg] $msg] close $fd set msg ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-3.11 FAILED ==== winFCmd-4.3 TclpCreateDirectory: errno: EEXIST FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile mkdir td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 EEXIST ==== winFCmd-4.3 FAILED ==== winFCmd-4.4 TclpCreateDirectory: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile mkdir td1/td2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-4.4 FAILED ==== winFCmd-4.5 TclpCreateDirectory: CreateDirectory succeeds FAILED ==== Contents of test case: cleanup testfile mkdir td1 file type td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-4.5 FAILED ==== winFCmd-5.1 TclpCopyDirectory: calls TraverseWinTree FAILED ==== Contents of test case: cleanup file mkdir td1 testfile cpdir td1 td2 list [file type td1] [file type td2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-5.1 FAILED ==== winFCmd-6.1 TclpRemoveDirectory: errno: EACCES FAILED ==== Contents of test case: cleanup file mkdir td1 testchmod 000 td1 testfile rmdir td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-6.1 FAILED ==== winFCmd-6.2 TclpRemoveDirectory: errno: EEXIST FAILED ==== Contents of test case: cleanup file mkdir td1/td2 list [catch {testfile rmdir td1} msg] [file tail $msg] ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {td1 EEXIST} ==== winFCmd-6.2 FAILED ==== winFCmd-6.4 TclpRemoveDirectory: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile rmdir td1} msg] [file tail $msg] ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {td1 ENOENT} ==== winFCmd-6.4 FAILED ==== winFCmd-6.5 TclpRemoveDirectory: errno: ENOENT FAILED ==== Contents of test case: cleanup list [catch {testfile rmdir ""} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 ENOENT ==== winFCmd-6.5 FAILED ==== winFCmd-6.6 TclpRemoveDirectory: errno: ENOTDIR FAILED ==== Contents of test case: cleanup createfile tf1 list [catch {testfile rmdir tf1} msg] [file tail $msg] ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {tf1 ENOTDIR} ==== winFCmd-6.6 FAILED ==== winFCmd-6.7 TclpRemoveDirectory: RemoveDirectory succeeds FAILED ==== Contents of test case: cleanup file mkdir td1 testfile rmdir td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-6.7 FAILED ==== winFCmd-6.8 TclpRemoveDirectory: RemoveDirectory fails FAILED ==== Contents of test case: cleanup createfile tf1 list [catch {testfile rmdir tf1} msg] [file tail $msg] ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {tf1 ENOTDIR} ==== winFCmd-6.8 FAILED ==== winFCmd-6.9 TclpRemoveDirectory: errno == EACCES FAILED ==== Contents of test case: cleanup file mkdir td1 testchmod 000 td1 testfile rmdir td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-6.9 FAILED ==== winFCmd-6.11 TclpRemoveDirectory: attr == -1 FAILED ==== Contents of test case: cleanup list [catch {testfile rmdir /} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {/ EACCES} ==== winFCmd-6.11 FAILED ==== winFCmd-6.13 TclpRemoveDirectory: write- protected FAILED ==== Contents of test case: cleanup file mkdir td1 testchmod 000 td1 testfile rmdir td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-6.13 FAILED ==== winFCmd-6.15 TclpRemoveDirectory: !recursive FAILED ==== Contents of test case: cleanup file mkdir td1/td2 list [catch {testfile rmdir td1} msg] [file tail $msg] ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {td1 EEXIST} ==== winFCmd-6.15 FAILED ==== winFCmd-6.16 TclpRemoveDirectory: recursive, but errno != EEXIST FAILED ==== Contents of test case: cleanup createfile tf1 list [catch {testfile rmdir -force tf1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {tf1 ENOTDIR} ==== winFCmd-6.16 FAILED ==== winFCmd-6.17 TclpRemoveDirectory: calls TraverseWinTree FAILED ==== Contents of test case: cleanup file mkdir td1/td2 testfile rmdir -force td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-6.17 FAILED ==== winFCmd-7.1 TraverseWinTree: targetPtr == NULL FAILED ==== Contents of test case: cleanup file mkdir td1/td2/td3 testfile rmdir -force td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.1 FAILED ==== winFCmd-7.2 TraverseWinTree: targetPtr != NULL FAILED ==== Contents of test case: cleanup file mkdir td1/td2/td3 testfile cpdir td1 td2 list [file exists td1] [file exists td2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.2 FAILED ==== winFCmd-7.3 TraverseWinTree: sourceAttr == -1 FAILED ==== Contents of test case: cleanup list [catch {testfile cpdir td1 td2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {td1 ENOENT} ==== winFCmd-7.3 FAILED ==== winFCmd-7.4 TraverseWinTree: source isn't directory FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 tf1 testfile cpdir td1 td2 contents td2/tf1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.4 FAILED ==== winFCmd-7.5 TraverseWinTree: call TraversalCopy: DOTREE_F FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 tf1 testfile cpdir td1 td2 contents td2/tf1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.5 FAILED ==== winFCmd-7.6 TraverseWinTree: call TraversalDelete: DOTREE_F FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 tf1 testfile rmdir -force td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.6 FAILED ==== winFCmd-7.7 TraverseWinTree: append \ to source if necessary FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 tf1 testfile cpdir td1 td2 contents td2/tf1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.7 FAILED ==== winFCmd-7.11 TraverseWinTree: call TraversalCopy: DOTREE_PRED FAILED ==== Contents of test case: cleanup file mkdir td1 testchmod 000 td1 createfile td1/tf1 tf1 testfile cpdir td1 td2 list [file exists td2] [file writable td2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.11 FAILED ==== winFCmd-7.12 TraverseWinTree: call TraversalDelete: DOTREE_PRED FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 tf1 testfile rmdir -force td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.12 FAILED ==== winFCmd-7.13 TraverseWinTree: append \ to target if necessary FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 tf1 testfile cpdir td1 td2 contents td2/tf1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.13 FAILED ==== winFCmd-7.15 TraverseWinTree: append \ to target if necessary FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile cpdir td1 /} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {/ EACCES} ==== winFCmd-7.15 FAILED ==== winFCmd-7.16 TraverseWinTree: recurse on files: no files FAILED ==== Contents of test case: cleanup file mkdir td1 testfile cpdir td1 td2 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.16 FAILED ==== winFCmd-7.17 TraverseWinTree: recurse on files: one file FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/td2 testfile cpdir td1 td2 glob td2/* ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.17 FAILED ==== winFCmd-7.18 TraverseWinTree: recurse on files: several files and dir FAILE D ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 createfile td1/tf2 file mkdir td1/td2/td3 createfile td1/tf3 createfile td1/tf4 testfile cpdir td1 td2 lsort [glob td2/*] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.18 FAILED ==== winFCmd-7.19 TraverseWinTree: call TraversalCopy: DOTREE_POSTD FAILED ==== Contents of test case: cleanup file mkdir td1 testchmod 000 td1 createfile td1/tf1 tf1 testfile cpdir td1 td2 list [file exists td2] [file writable td2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.19 FAILED ==== winFCmd-7.20 TraverseWinTree: call TraversalDelete: DOTREE_POSTD FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 tf1 testfile rmdir -force td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-7.20 FAILED ==== winFCmd-7.21 TraverseWinTree: fill errorPtr FAILED ==== Contents of test case: cleanup list [catch {testfile cpdir td1 td2} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {td1 ENOENT} ==== winFCmd-7.21 FAILED ==== winFCmd-8.1 TraversalCopy: DOTREE_F FAILED ==== Contents of test case: cleanup file mkdir td1 list [catch {testfile cpdir td1 td1} msg] $msg ---- Result was: 1 {invalid command name "testfile"} ---- Result should have been (exact matching): 1 {td1 EEXIST} ==== winFCmd-8.1 FAILED ==== winFCmd-8.2 TraversalCopy: DOTREE_PRED FAILED ==== Contents of test case: cleanup file mkdir td1/td2 testchmod 000 td1 testfile cpdir td1 td2 list [file writable td1] [file writable td1/td2] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-8.2 FAILED ==== winFCmd-8.3 TraversalCopy: DOTREE_POSTD FAILED ==== Contents of test case: cleanup file mkdir td1 testfile cpdir td1 td2 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-8.3 FAILED ==== winFCmd-9.1 TraversalDelete: DOTREE_F FAILED ==== Contents of test case: cleanup file mkdir td1 createfile td1/tf1 testfile rmdir -force td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-9.1 FAILED ==== winFCmd-9.3 TraversalDelete: DOTREE_PRED FAILED ==== Contents of test case: cleanup file mkdir td1/td2 testchmod 000 td1 testfile rmdir -force td1 file exists td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-9.3 FAILED ==== winFCmd-9.4 TraversalDelete: DOTREE_POSTD FAILED ==== Contents of test case: cleanup file mkdir td1/td1/td3/td4/td5 testfile rmdir -force td1 ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-9.4 FAILED ==== winFCmd-10.1 AttributesPosixError - get FAILED ==== Contents of test case: cleanup list [catch {file attributes td1 -archive} msg] $msg ---- Result was: 0 0 ---- Result should have been (exact matching): 1 {could not read "td1": no such file or directory} ==== winFCmd-10.1 FAILED ==== winFCmd-10.2 AttributesPosixError - set FAILED ==== Contents of test case: cleanup list [catch {file attributes td1 -archive 0} msg] $msg ---- Result was: 0 {} ---- Result should have been (exact matching): 1 {could not read "td1": no such file or directory} ==== winFCmd-10.2 FAILED ==== winFCmd-11.1 GetWinFileAttributes FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -archive} msg] $msg [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-11.1 FAILED ==== winFCmd-11.2 GetWinFileAttributes FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -readonly} msg] $msg [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-11.2 FAILED ==== winFCmd-11.3 GetWinFileAttributes FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -hidden} msg] $msg [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-11.3 FAILED ==== winFCmd-11.4 GetWinFileAttributes FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -system} msg] $msg [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-11.4 FAILED ==== winFCmd-12.1 ConvertFileNameFormat FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {string tolower [file attributes td1 - longname]} msg] $msg [clea nup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-12.1 FAILED ==== winFCmd-12.2 ConvertFileNameFormat FAILED ==== Contents of test case: cleanup file mkdir td1 close [open td1/td1 w] list [catch {string tolower [file attributes td1/td1 - longname]} msg] $msg [ cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-12.2 FAILED ==== winFCmd-12.4 ConvertFileNameFormat FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {string tolower [file attributes ./td1 - longname]} msg] $msg [cl eanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-12.4 FAILED ==== winFCmd-12.8 ConvertFileNameFormat FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {string tolower [file attributes td1 - longname]} msg] $msg [clea nup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-12.8 FAILED ==== winFCmd-12.11 ConvertFileNameFormat FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {string tolower [file attributes td1 - shortname]} msg] $msg [cle anup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-12.11 FAILED ==== winFCmd-13.1 GetWinFileLongName FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {string tolower [file attributes td1 - longname]} msg] $msg [clea nup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-13.1 FAILED ==== winFCmd-14.1 GetWinFileShortName FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {string tolower [file attributes td1 - shortname]} msg] $msg [cle anup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-14.1 FAILED ==== winFCmd-15.1 SetWinFileAttributes FAILED ==== Contents of test case: cleanup list [catch {file attributes td1 -archive 0} msg] $msg ---- Result was: 0 {} ---- Result should have been (exact matching): 1 {could not read "td1": no such file or directory} ==== winFCmd-15.1 FAILED ==== winFCmd-15.2 SetWinFileAttributes - archive FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -archive 1} msg] $msg [file attributes td1 -archive] [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-15.2 FAILED ==== winFCmd-15.3 SetWinFileAttributes - archive FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -archive 0} msg] $msg [file attributes td1 -archive] [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-15.3 FAILED ==== winFCmd-15.4 SetWinFileAttributes - hidden FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -hidden 1} msg] $msg [file attributes td1 - hidden] [file attributes td1 -hidden 0] [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-15.4 FAILED ==== winFCmd-15.5 SetWinFileAttributes - hidden FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -hidden 0} msg] $msg [file attributes td1 - hidden] [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-15.5 FAILED ==== winFCmd-15.6 SetWinFileAttributes - readonly FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -readonly 1} msg] $msg [file attributes td1 -readonly] [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-15.6 FAILED ==== winFCmd-15.7 SetWinFileAttributes - readonly FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -readonly 0} msg] $msg [file attributes td1 -readonly] [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-15.7 FAILED ==== winFCmd-15.8 SetWinFileAttributes - system FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -system 1} msg] $msg [file attributes td1 - system] [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-15.8 FAILED ==== winFCmd-15.9 SetWinFileAttributes - system FAILED ==== Contents of test case: cleanup close [open td1 w] list [catch {file attributes td1 -system 0} msg] $msg [file attributes td1 - system] [cleanup] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== winFCmd-15.9 FAILED Warning: files left behind: winFCmd.test: td1 td1td1td1 tf1 winFile.test winNotify.test winPipe.test ==== winpipe-4.2 Tcl_WaitPid: return of exception codes, SIGFPE FAILED ==== Contents of test case: set f [open "|[tcltest::interpreter]" w+] set pid [pid $f] puts $f "testexcept float_underflow" set status [catch {close $f}] list $status [expr {$pid == [lindex $::errorCode 1]}] [lindex $::errorCode 2 ] ---- Result was: 1 0 {} ---- Result should have been (exact matching): 1 1 SIGFPE ==== winpipe-4.2 FAILED ==== winpipe-4.3 Tcl_WaitPid: return of exception codes, SIGSEGV FAILED ==== Contents of test case: set f [open "|[tcltest::interpreter]" w+] set pid [pid $f] puts $f "testexcept access_violation" set status [catch {close $f}] list $status [expr {$pid == [lindex $::errorCode 1]}] [lindex $::errorCode 2 ] ---- Result was: 1 0 {} ---- Result should have been (exact matching): 1 1 SIGSEGV ==== winpipe-4.3 FAILED ==== winpipe-4.4 Tcl_WaitPid: return of exception codes, SIGILL FAILED ==== Contents of test case: set f [open "|[tcltest::interpreter]" w+] set pid [pid $f] puts $f "testexcept illegal_instruction" set status [catch {close $f}] list $status [expr {$pid == [lindex $::errorCode 1]}] [lindex $::errorCode 2 ] ---- Result was: 1 0 {} ---- Result should have been (exact matching): 1 1 SIGILL ==== winpipe-4.4 FAILED ==== winpipe-4.5 Tcl_WaitPid: return of exception codes, SIGINT FAILED ==== Contents of test case: set f [open "|[tcltest::interpreter]" w+] set pid [pid $f] puts $f "testexcept ctrl+c" set status [catch {close $f}] list $status [expr {$pid == [lindex $::errorCode 1]}] [lindex $::errorCode 2 ] ---- Result was: 1 0 {} ---- Result should have been (exact matching): 1 1 SIGINT ==== winpipe-4.5 FAILED ---------------------------------------------------------------------- Comment By: Joe Mistachkin (mistachkin) Date: 2003-05-13 20:12 Message: Logged In: YES user_id=113501 Here are the test failures for reg.test (due to lack of the tcltest specific constraints): reg.test ==== reg-32.1 canmatch functionality -- at end FAILED ==== Contents of test case: set pat {blah} set line "asd asd" # can match at the final d, if '%' follows set res [testregexp -xflags -- c $pat $line resvar] lappend res $resvar ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== reg-32.1 FAILED ==== reg-32.2 canmatch functionality -- at end FAILED ==== Contents of test case: set pat {s%$} set line "asd asd" # can only match after the end of the string set res [testregexp -xflags -- c $pat $line resvar] lappend res $resvar ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== reg-32.2 FAILED ==== reg-32.3 canmatch functionality -- not last char FAILED ==== Contents of test case: set pat {[^d]%$} set line "asd asd" # can only match after the end of the string set res [testregexp -xflags -- c $pat $line resvar] lappend res $resvar ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== reg-32.3 FAILED ==== reg-32.3.1 canmatch functionality -- no match FAILED ==== Contents of test case: set pat {\Zx} set line "asd asd" # can match the last char, if followed by x set res [testregexp -xflags -- c $pat $line resvar] lappend res $resvar ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ==== reg-32.3.1 FAILED ---------------------------------------------------------------------- Comment By: Donal K. Fellows (dkf) Date: 2003-05-12 15:54 Message: Logged In: YES user_id=79902 What a mess... I've cleaned up cmdAH.test, but I'll let Don pick the next victi^Wmaintainer for reg.test... ---------------------------------------------------------------------- Comment By: Donal K. Fellows (dkf) Date: 2003-05-12 15:00 Message: Logged In: YES user_id=79902 Ick! cmdAH.test doesn't have consistent test counts... :^( ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2003-05-12 10:42 Message: Logged In: YES user_id=80530 let's just pass it round the horn then. first to "Commands A-H"... ---------------------------------------------------------------------- Comment By: Joe Mistachkin (mistachkin) Date: 2003-05-12 08:16 Message: Logged In: YES user_id=113501 Ok. Changing category to "other" since this contains problems from multiple "areas". Assigning to JeffH. ---------------------------------------------------------------------- Comment By: Don Porter (dgp) Date: 2003-05-12 07:41 Message: Logged In: YES user_id=80530 Please file bugs in *.test files with the appropriate categories. (See TIP 16). ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=110894&aid=736431&group_id=10894 |