From 9bbe45297c22d3979c935e412254d4ac376ca4bc Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Thu, 4 May 2000 11:46:19 +0000 Subject: 11147: TRAPZERR tests --- Test/08traps.ztst | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) (limited to 'Test') diff --git a/Test/08traps.ztst b/Test/08traps.ztst index 5ede57fdb..641a50ad2 100644 --- a/Test/08traps.ztst +++ b/Test/08traps.ztst @@ -148,3 +148,30 @@ >end of fn >finish + TRAPZERR() { print 'ERR-or!'; } + f() { print f; false; } + t() { print t; } + f + f && t + t && f && true + t && f + testunset() { + setopt localtraps + unset -f TRAPZERR + print testunset + false + true + } + testunset + f +1: more sophisticated error trapping +>f +>ERR-or! +>f +>t +>t +>f +>ERR-or! +>testunset +>f +>ERR-or! -- cgit 1.4.1