From aa4a3226590be15650677a17a1dc3d072f5b22aa Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Wed, 3 Jan 2001 22:14:36 +0100
Subject: [PATCH] Added a test for `| on arrays with objects that define
strange `<.
Rev: src/testsuite.in:1.361
---
src/testsuite.in | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 38e5ad3fce..ac827f44d2 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.360 2001/01/03 19:47:09 nilsson Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.361 2001/01/03 21:14:36 mast Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -3922,6 +3922,10 @@ test_eq(1 | 9,9)
test_equal( ({1,2,3,4,4}) | ({3,5,6}), ({1,2,4,4,3,5,6}))
test_equal( (<4,5,6>) | (<5,5,5>), (<4,5,5,5,6>) )
test_equal( ([-4:8,8:7]) | ([3:3,8:3]), ([-4:8,8:3,3:3]) )
+test_any([[
+ class Foo {int `< (object o) {return 0;}};
+ return sizeof (({Foo()}) | ({Foo()}));
+]], 2)
// testing &
test_eq(0 & 0,0)
--
GitLab