Update of /cvsroot/nice/Nice/testsuite/compiler/enums
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27827/F:/nice/testsuite/compiler/enums
Modified Files:
enum.testsuite
Log Message:
Fixed comparing of enum patterns.
Index: enum.testsuite
===================================================================
RCS file: /cvsroot/nice/Nice/testsuite/compiler/enums/enum.testsuite,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** enum.testsuite 5 Jul 2004 07:55:25 -0000 1.8
--- enum.testsuite 5 Jul 2004 08:22:25 -0000 1.9
***************
*** 119,120 ****
--- 119,130 ----
Signal `&`(Signal x, Signal y) = x;
`&`(Low, Low) = Low;
+
+ /// PASS
+ assert (Low & High) == Low;
+ /// Toplevel
+ enum Signal { High, Low, X }
+ Signal `&`(Signal, Signal);
+ `&`(High, x) = x;
+ `&`(X, x) = X;
+ `&`(Low, Low) = Low;
+ `&`(Low, z) = z & Low;
|