From 20c2246d683e8891560df5ebc466507d9e3002c3 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Mon, 11 Aug 2008 08:40:56 +0000
Subject: 25429: Rocky Bernstein: dont assume PS4 is set to the default

---
 Test/E01options.ztst |  5 +++--
 Test/E02xtrace.ztst  | 43 ++++++++++++++++++++++---------------------
 2 files changed, 25 insertions(+), 23 deletions(-)

(limited to 'Test')

diff --git a/Test/E01options.ztst b/Test/E01options.ztst
index 66bfa1955..410944643 100644
--- a/Test/E01options.ztst
+++ b/Test/E01options.ztst
@@ -1034,6 +1034,7 @@
 # This really just tests if XTRACE is egregiously broken.
 # To test it properly would need a full set of its own.
   fn() { print message; }
+  PS4='+%N:%i> '
   setopt xtrace
   fn
   unsetopt xtrace
@@ -1041,6 +1042,6 @@
 0:XTRACE option
 >message
 >message
-?+(eval):3> fn
+?+(eval):4> fn
 ?+fn:0> print message
-?+(eval):4> unsetopt xtrace
+?+(eval):5> unsetopt xtrace
diff --git a/Test/E02xtrace.ztst b/Test/E02xtrace.ztst
index 1375daa67..31d7fd422 100644
--- a/Test/E02xtrace.ztst
+++ b/Test/E02xtrace.ztst
@@ -11,6 +11,7 @@
 
 %test
 
+  PS4='+%N:%i> '
   set -x
   print 'Tracing: builtin'
   print 'Tracing: builtin 2>file' 2>xtrace.err
@@ -55,33 +56,33 @@
 >Tracing: function 2>file
 >Tracing: source
 >Tracing: source 2>file
->+(eval):3> print 'Tracing: builtin 2>file'
->+(eval):5> cat
->+(eval):7> print 'Tracing: ( builtin ) 2>file'
->+(eval):9> cat
->+(eval):11> print 'Tracing: { builtin } 2>file'
->+(eval):13> cat
->+(eval):15> print 'Tracing: do builtin done 2>file'
->+(eval):17> cat
->+(eval):19> xtf 'Tracing: function 2>file'
+>+(eval):4> print 'Tracing: builtin 2>file'
+>+(eval):6> cat
+>+(eval):8> print 'Tracing: ( builtin ) 2>file'
+>+(eval):10> cat
+>+(eval):12> print 'Tracing: { builtin } 2>file'
+>+(eval):14> cat
+>+(eval):16> print 'Tracing: do builtin done 2>file'
+>+(eval):18> cat
+>+(eval):20> xtf 'Tracing: function 2>file'
 >+xtf:1> local regression_test_dummy_variable
 >+xtf:2> print 'Tracing: function 2>file'
->+(eval):21> . ./xt.in 'Tracing: source 2>file'
+>+(eval):22> . ./xt.in 'Tracing: source 2>file'
 >+./xt.in:1> print 'Tracing: source 2>file'
-?+(eval):2> print 'Tracing: builtin'
-?+(eval):4> cat
-?+(eval):6> print 'Tracing: ( builtin )'
-?+(eval):8> cat
-?+(eval):10> print 'Tracing: { builtin }'
-?+(eval):12> cat
-?+(eval):14> print 'Tracing: do builtin done'
-?+(eval):16> cat
-?+(eval):18> xtf 'Tracing: function'
+?+(eval):3> print 'Tracing: builtin'
+?+(eval):5> cat
+?+(eval):7> print 'Tracing: ( builtin )'
+?+(eval):9> cat
+?+(eval):11> print 'Tracing: { builtin }'
+?+(eval):13> cat
+?+(eval):15> print 'Tracing: do builtin done'
+?+(eval):17> cat
+?+(eval):19> xtf 'Tracing: function'
 ?+xtf:1> local regression_test_dummy_variable
 ?+xtf:2> print 'Tracing: function'
-?+(eval):20> . ./xt.in 'Tracing: source'
+?+(eval):21> . ./xt.in 'Tracing: source'
 ?+./xt.in:1> print 'Tracing: source'
-?+(eval):22> set +x
+?+(eval):23> set +x
 
  typeset -ft xtf
  xtf 'Tracing: function'
-- 
cgit 1.4.1