nice-commit

[<ar...@us...>]

Update of /cvsroot/nice/Nice/testsuite/compiler/methods
In directory sc8-pr-cvs1:/tmp/cvs-serv19453/F:/nice/testsuite/compiler/methods

Modified Files:
	integer.testsuite string.testsuite 
Log Message:
Fix bug that caused failure of reading of char/string literal patterns containing a '@' or '#'.
And added a testcase for a new bug with escaping string.

Index: integer.testsuite
===================================================================
RCS file: /cvsroot/nice/Nice/testsuite/compiler/methods/integer.testsuite,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** integer.testsuite	12 Jul 2003 23:13:12 -0000	1.10
--- integer.testsuite	23 Jul 2003 18:41:20 -0000	1.11
***************
*** 191,192 ****
--- 191,202 ----
    foo(4) = 0;
    foo(5) = 1;
+ 
+ /// PASS
+   /// package a
+   /// Toplevel
+   boolean foo(char c);
+   foo(c) = false;
+   foo('#') = true;
+   foo('(') = false;
+   /// package b import a
+   assert foo('#');

Index: string.testsuite
===================================================================
RCS file: /cvsroot/nice/Nice/testsuite/compiler/methods/string.testsuite,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** string.testsuite	6 Jun 2003 10:16:04 -0000	1.2
--- string.testsuite	23 Jul 2003 18:41:20 -0000	1.3
***************
*** 48,49 ****
--- 48,70 ----
  foos(x) {}
  foos("abc") {}
+ 
+ /// PASS
+   /// package a
+   /// Toplevel
+   boolean foo(String s);
+   foo(s) = false;
+   foo("@") = true;
+   foo("(") = false;
+   /// package b import a
+   assert foo("@");
+ 
+ /// PASS bug
+   /// package a
+   /// Toplevel
+   boolean foo(String s);
+   foo(s) = false;
+   foo("x") = false;
+   foo("\"x") = true;
+   foo("\\\"x") = false;
+   /// package b import a
+   assert foo("\"x");