From 2655bd72e08e392b49e29d4c9ac1ac119954e45d Mon Sep 17 00:00:00 2001
From: buraq <buraq@epfl.ch>
Date: Mon, 21 Feb 2005 16:53:14 +0000
Subject: new test cas

---
 test/files/run/regularpatmat.check | 2 ++
 test/files/run/regularpatmat.scala | 5 +++++
 2 files changed, 7 insertions(+)

(limited to 'test/files')

diff --git a/test/files/run/regularpatmat.check b/test/files/run/regularpatmat.check
index cc902ea473..a09b0ea562 100644
--- a/test/files/run/regularpatmat.check
+++ b/test/files/run/regularpatmat.check
@@ -118,3 +118,5 @@ passed ok
 passed ok
 passed ok
 passed ok
+passed ok
+
diff --git a/test/files/run/regularpatmat.scala b/test/files/run/regularpatmat.scala
index 394b1931eb..6e4c30a5c8 100644
--- a/test/files/run/regularpatmat.scala
+++ b/test/files/run/regularpatmat.scala
@@ -652,6 +652,10 @@ object testMZ {
 
   }
 
+  def mat398(xs:List[Any]) = xs match { // bug#398
+    case List(1) => "one"
+    case x::xs   => "two"
+  }
 
   def main:Unit = {
                 Console.println("testMZ - bugs #132 #133b #180 #195 #196");
@@ -672,6 +676,7 @@ object testMZ {
     assertEquals(mat195( Two() ),"default");
     assertEquals(mat196( List(1) ),"default");
     assertEquals(mat196( List() ),"case, b = List()");
+    assertEquals(mat398( List() ),"two");
 
     ()
   }
-- 
cgit v1.2.3