From 75497d721219261a7b45a47f018d6314d2fe533a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 31 Mar 2008 01:26:09 -0500
Subject: [PATCH] Add another unit test

---
 core/classes/tuple/tuple-tests.factor | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index 0fac0c3779..950650dbf0 100755
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -410,6 +410,14 @@ test-a/b
 
 test-a/b
 
+! Twice in the same compilation unit
+[
+    test1 tuple { "a" "x" "y" } define-tuple-class
+    test1 tuple { "a" "y" } define-tuple-class
+] with-compilation-unit
+
+test-a/b
+
 ! Redefinition problem
 TUPLE: redefinition-problem ;