From aa3f7eb23be4f2cb040b9fd9cf025fc1740a120b Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sun, 17 Dec 2006 03:44:20 +0000
Subject: 	* tests/append.test: fix cleanup failure when all tests are
 skipped.

---
 tests/append.test | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/append.test b/tests/append.test
index a9772c4..62240cd 100644
--- a/tests/append.test
+++ b/tests/append.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: append.test,v 1.8 2006/10/05 11:38:50 msofer Exp $
+# RCS: @(#) $Id: append.test,v 1.9 2006/12/17 03:44:20 das Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -143,7 +143,7 @@ test append-4.20 {lappend command} {
     catch {unset x}
     lappend x(0) abc
 } {abc}
-unset x
+unset -nocomplain x
 test append-4.21 {lappend command} {
     set x \"
     list [catch {lappend x} msg] $msg
-- 
cgit v0.12