Test failures in winFCmd.test and winPipe.test 
Author Message
 Test failures in winFCmd.test and winPipe.test

Tcl 8.0.3 Bug:  Generated by Scriptics' bug entry form at

        http://www.*-*-*.com/

Responses to this post are encouraged.

------

Submitted by:  Jan Nijtmans
OperatingSystem:  Windows NT
OperatingSystemVersion:  4.0 SP3
Synopsis:  Test failures in winFCmd.test and winPipe.test

ReproducibleScript:
Compiling Tcl8.0.3 with MSVC++ 5.0 on NT 4.0 SP3 machine gives
many failures. Most of them are due to Microsoft's incompatible
formatting of floating point values, which has nothing to do
with Tcl. However, for the two failures shown in 7) Tcl is to blame.

ObservedBehavior:
part of test output:

==== winFCmd-7.18 TraverseWinTree: recurse on files: several files and dir
==== 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
    glob td2/*
==== Result was:
td2/td2 td2/tf1 td2/tf2 td2/tf3 td2/tf4
---- Result should have been:
td2/tf1 td2/tf2 td2/td2 td2/tf3 td2/tf4
---- winFCmd-7.18 FAILED
winNotify.test
winPipe.test
==== winpipe-3.1 Tcl_WaitPid --- (nt) ---
==== Contents of test case:
    proc readResults {f} {
 global x result
 if { [eof $f] } {
     close $f
     set x 1
 } else {
     set line [read $f ]
     set result "$result$line"
 }
    }
    set f [open "|$cat32 < big 2> stderr" r]
    fconfigure $f  -buffering none -blocking 0
    fileevent $f readable "readResults $f"
    set x 0
    set result ""
    vwait x
    list $result $x [contents stderr]
==== Test generated error:
couldn't execute "C:\PROGRA~1\Tcl\lib\tcl8.0\..\win\cat32.exe": no such file or directory

Patch:
***\ tests/winFCmd.test.orig\tThu\ Apr\ 02\ 01:40:09\ 1998\r\n---\ tests/winFCmd.test\tThu\ Nov\ 12\ 11:53:37\ 1998\r\n***************\r\n***\ 733,740\ ****\r\n\ \ \ \ \ \ createfile\ td1/tf3\r\n\ \ \ \ \ \ createfile\ td1/tf4\r\n\ \ \ \ \ \ testfile\ cpdir\ td1\ td2\r\n!\ \ \ \ \ glob\ td2/*\r\n!\ \}\ \{td2/tf1\ td2/tf2\ td2/td2\ td2/tf3\ td2/tf4\}\r\n\ \ test\ winFCmd-7.19\ \{TraverseWinTree:\ call\ TraversalCopy:\ DOTREE_POSTD\}\ \{\r\n\ \ \ \ \ \ cleanup\r\n\ \ \ \ \ \ file\ mkdir\ td1\r\n---\ 733,740\ ----\r\n\ \ \ \ \ \ createfile\ td1/tf3\r\n\ \ \ \ \ \ createfile\ td1/tf4\r\n\ \ \ \ \ \ testfile\ cpdir\ td1\ td2\r\n!\ \ \ \ \ lsort\ \[glob\ td2/*\]\r\n!\ \}\ \{td2/td2\ td2/tf1\ td2/tf2\ td2/tf3\ td2/tf4\}\r\n\ \ test\ winFCmd-7.19\ \{TraverseWinTree:\ call\ TraversalCopy:\ DOTREE_POSTD\}\ \{\r\n\ \ \ \ \ \ cleanup\r\n\ \ \ \ \ \ file\ mkdir\ td1\r\n***\ tests/winPipe.test.orig\tTue\ Jun\ 16\ 05:08:59\ 1998\r\n---\ tests/winPipe.test\tThu\ Nov\ 12\ 11:46:35\ !
1998\r\n***************\r\n***\ 17,24\ ****\r\n\ \ \ \ \ \ return\r\n\ \ \}\r\n\ \ \r\n!\ set\ cat16\ \[file\ join\ \$tcl_library\ ../win/cat16.exe\]\r\n!\ set\ cat32\ \[file\ join\ \$tcl_library\ ../win/cat32.exe\]\r\n\ \ \r\n\ \ if\ \{\[string\ compare\ test\ \[info\ procs\ test\]\]\ ==\ 1\}\ then\ \{source\ defs\}\r\n\ \ \r\n---\ 17,24\ ----\r\n\ \ \ \ \ \ return\r\n\ \ \}\r\n\ \ \r\n!\ set\ cat16\ \[file\ join\ \[file\ dirname\ \[info\ nameofexecutable\]\]\ cat16.exe\]\r\n!\ set\ cat32\ \[file\ join\ \[file\ dirname\ \[info\ nameofexecutable\]\]\ cat32.exe\]\r\n\ \ \r\n\ \ if\ \{\[string\ compare\ test\ \[info\ procs\ test\]\]\ ==\ 1\}\ then\ \{source\ defs\}\r\n\ \ \r\n

PatchFiles:
winFCmd.test winPipe.test

Comments:
- It seems that the [glob] command sorts the directories differently
in different situations. Sorting them solves this problem
- In tcl8.0.3 all executables are created in the ./Debug resp.
 ./Release subdirectories, cat16.exe and cat32.exe as well.
This is the reason that winpipe-3.1 fails.



Sat, 12 May 2001 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. Problem understanding some tests in winpipe.test (CVS HEAD)

2. test test test test

3. Please confirm test failures in clock.test from the CVS HEAD

4. Test failures in init.test (init-4.6)

5. tcl7.5p1: clock.test, io.test failures.

6. Testing, testing, testing,

7. test, test, test

8. test test test

9. Test::Unit::Mock: Mock objects for testing with Test::Unit

10. test, test, test PLEASE IGNORE

11. TEST TEST TESTs ---- Please Ignore

12. event.test , fCmd.test : Error testing Tcl with Linux v2.0.7

 

 
Powered by phpBB® Forum Software