From 84123c4cacea732e2b6e56b5ea512f95532b801f Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 13 Mar 2007 17:34:04 +0000
Subject: Added test for [Bug 1675044].

---
 tests/cmdIL.test | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/tests/cmdIL.test b/tests/cmdIL.test
index d8e956f..c9796db 100644
--- a/tests/cmdIL.test
+++ b/tests/cmdIL.test
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: cmdIL.test,v 1.32 2007/03/09 16:40:21 dkf Exp $
+# RCS: @(#) $Id: cmdIL.test,v 1.33 2007/03/13 17:34:04 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -748,6 +748,23 @@ test cmdIL-7.6 {lreverse command - unshared object [Bug 1672585]} {
     lreverse [set x {1 2 3}][unset x]
 } {3 2 1}
 
+testConstraint testobj [llength [info commands testobj]]
+test cmdIL-7.7 {lreverse command - shared intrep [Bug 1675044]} -setup {
+    teststringobj set 1 {1 2 3}
+    testobj convert 1 list
+    testobj duplicate 1 2
+    variable x [teststringobj get 1]
+    variable y [teststringobj get 2]
+    testobj freeallvars
+    proc K {a b} {return $a}
+} -constraints testobj -body {
+    lreverse [K $y [unset y]]
+    lindex $x 0
+} -cleanup {
+    unset -nocomplain x y
+    rename K {}
+} -result 1
+
 # cleanup
 ::tcltest::cleanupTests
 return
-- 
cgit v0.12