20460248 expect should have some master test results to compare against
authorJohn Beck <John.Beck@Oracle.COM>
Thu, 19 Feb 2015 07:28:35 -0800
changeset 3843 6f427a923e13
parent 3842 50372e9a6cc6
child 3844 15407713dc58
20460248 expect should have some master test results to compare against
components/tcl/expect/Makefile
components/tcl/expect/test/results-all.master
--- a/components/tcl/expect/Makefile	Thu Feb 19 09:22:00 2015 -0800
+++ b/components/tcl/expect/Makefile	Thu Feb 19 07:28:35 2015 -0800
@@ -57,7 +57,11 @@
 
 CONFIGURE_OPTIONS.64	+= LDFLAGS="$(LDFLAGS) -m64"
 
+COMPONENT_TEST_MASTER = $(COMPONENT_TEST_RESULTS_DIR)/results-all.master
 COMPONENT_TEST_TARGETS = test
+COMPONENT_TEST_TRANSFORMS += \
+	'-e "s|$(WS_TOP)|\\$$(WS_TOP)|g"' \
+	'-e "s|tcl/build/$(MACH$(BITS))|\\$$(TCLBUILD)|g"'
 
 ASLR_MODE = $(ASLR_ENABLE)
 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/components/tcl/expect/test/results-all.master	Thu Feb 19 07:28:35 2015 -0800
@@ -0,0 +1,55 @@
+make[1]: Entering directory `$(@D)'
+(echo 'if {![package vsatisfies [package provide Tcl] 8.5]} {return}' ; \
+ echo 'package ifneeded Expect 5.45 \
+    [list load [file join $dir libexpect5.45.so]]'\
+) > pkgIndex.tcl
+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` 
+cat.test
+expect.test
+logfile.test
+via sendvia send_uservia send_stdoutpid.test
+send.test
+
+
+==== send-1.1 basic send operation FAILED
+==== Contents of test case:
+
+    spawn cat
+    after 1000
+    send "foo\r"
+    expect foo
+    after 1000
+    send "\u0004"
+    expect eof
+    regexp "\r\nfoo\r\n" $expect_out(buffer)
+
+---- Result was:
+0
+---- Result should have been (exact matching):
+1
+==== send-1.1 FAILED
+
+
+
+==== send-1.2 send null FAILED
+==== Contents of test case:
+
+    spawn od -c
+    send "a\u0000b\r"
+    after 1000
+    send \u0004
+    expect eof
+    regexp "a  \\\\0   b" $expect_out(buffer)
+
+---- Result was:
+0
+---- Result should have been (exact matching):
+1
+==== send-1.2 FAILED
+
+spawn.test
+stty.test
+all.tcl:	Total	29	Passed	27	Skipped	0	Failed	2
+Sourced 0 Test Files.
+Files with failing tests: send.test
+make[1]: Leaving directory `$(@D)'