* testsuite/runtest.all/options.exp: Re-enable --strace 1 test.

diff --git a/ChangeLog b/ChangeLog
index 939246e..7a078d5 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2015-11-16  Ben Elliston  <bje@gnu.org>
 
+       * testsuite/runtest.all/options.exp: Re-enable --strace 1 test.
+
+2015-11-16  Ben Elliston  <bje@gnu.org>
+
        * testsuite/runtest.all/options.exp: Remove some commented code.
 
 2015-11-16  Ben Elliston  <bje@gnu.org>

diff --git a/testsuite/runtest.all/options.exp b/testsuite/runtest.all/options.exp
index 80990b2..8cac12e 100644 (file)
--- a/testsuite/runtest.all/options.exp
+++ b/testsuite/runtest.all/options.exp
@@ -55,13 +55,10 @@ set tests {
     { "-v --objdir xXx" "Using test binaries in xXx" "--objdir option" }
     { "-v --tool xXx" "Testing xXx" "--tool option" }
     { "-v --debug" "Expect Debugging is ON" "--debug option" }
+    { "-v --strace 1" "Source Trace level is now 1.* 1  if" "--strace option" }
     { "-v --D0" "Tcl debugger is ON" "--D0 option" }
 }
 
-# Commented out for now--this is failing because of a TCL8 strace interaction.
-#    { "-v --strace 1" "Source Trace level is now 1.* 1  if" "--strace option" }
-
-
 foreach i $tests {
     if [util_test "$RUNTEST" "[lindex $i 0] -srcdir ${srcdir}/runtest.all" "" "[lindex $i 1]"] {
         fail "[lindex $i 2]"