1 make[1]: Entering directory `$(@D)'

     2 (echo 'if {![package vsatisfies [package provide Tcl] 8.5]} {return}' ; \

     3  echo 'package ifneeded Expect 5.45 \

     4     [list load [file join $dir libexpect5.45.so]]'\

     5 ) > pkgIndex.tcl

     6 TCL_LIBRARY=`echo $(WS_TOP)/components/tcl/tcl/tcl8.5.12/library` LD_LIBRARY_PATH=".:$(WS_TOP)/components/tcl/$(TCLBUILD):" PATH=".:$(WS_TOP)/components/tcl/$(TCLBUILD):/usr/bin:/usr/gnu/bin" TCLLIBPATH="." $(WS_TOP)/components/tcl/$(TCLBUILD)/tclsh `echo $(SOURCE_DIR)/tests/all.tcl` 

     7 cat.test

     8 expect.test

     9 logfile.test

    10 via sendvia send_uservia send_stdoutpid.test

    11 send.test

    12 

    13 

    14 ==== send-1.1 basic send operation FAILED

    15 ==== Contents of test case:

    16 

    17     spawn cat

    18     after 1000

    19     send "foo\r"

    20     expect foo

    21     after 1000

    22     send "\u0004"

    23     expect eof

    24     regexp "\r\nfoo\r\n" $expect_out(buffer)

    25 

    26 ---- Result was:

    27 0

    28 ---- Result should have been (exact matching):

    29 1

    30 ==== send-1.1 FAILED

    31 

    32 

    33 

    34 ==== send-1.2 send null FAILED

    35 ==== Contents of test case:

    36 

    37     spawn od -c

    38     send "a\u0000b\r"

    39     after 1000

    40     send \u0004

    41     expect eof

    42     regexp "a  \\\\0   b" $expect_out(buffer)

    43 

    44 ---- Result was:

    45 0

    46 ---- Result should have been (exact matching):

    47 1

    48 ==== send-1.2 FAILED

    49 

    50 spawn.test

    51 stty.test

    52 all.tcl:	Total	29	Passed	27	Skipped	0	Failed	2

    53 Sourced 0 Test Files.

    54 Files with failing tests: send.test

    55 make[1]: Leaving directory `$(@D)'