From ad59dc83518fd259089eeb6563f9fcfad49a773f Mon Sep 17 00:00:00 2001 From: "waldemar%netscape.com" Date: Mon, 30 Jun 2003 22:13:44 +0000 Subject: [PATCH] Added U+0085 to the list of line terminators. Added a few interesting test cases. git-svn-id: svn://10.0.0.236/trunk@144316 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/js2/semantics/JS20/RegExp.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/mozilla/js2/semantics/JS20/RegExp.lisp b/mozilla/js2/semantics/JS20/RegExp.lisp index f6ea6dfe271..32ea5b954c5 100644 --- a/mozilla/js2/semantics/JS20/RegExp.lisp +++ b/mozilla/js2/semantics/JS20/RegExp.lisp @@ -19,7 +19,7 @@ (:character-literal #\A) :nbhy (:character-literal #\Z) ", and " (:character-literal #\a) :nbhy (:character-literal #\z) ")")) () t) - (:line-terminator (#?000A #?000D #?2028 #?2029) () t) + (:line-terminator (#?000A #?000D #?0085 #?2028 #?2029) () t) (:decimal-digit (#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9) (($default-action $default-action) (decimal-value $digit-value))) @@ -663,6 +663,12 @@ (run-regexp "a.." (concatenate 'string "a" (string #\newline) "bacd")) (run-regexp "a.." (concatenate 'string "a" (string #\newline) "bacd") :span t) +(run-regexp "(a|b*)*" "a") +(run-regexp "(b*)*" "a") +(run-regexp "^\\-?(\\d{1,}|\\.{0,})*(\\,\\d{1,})?$" "100.00") +(run-regexp "^\\-?(\\d{1,}|\\.{0,})*(\\,\\d{1,})?$" "100,00") +(run-regexp "^\\-?(\\d{1,}|\\.{0,})*(\\,\\d{1,})?$" "1.000,00") + (run-regexp "^(a\\1?){4}$" "aaaaaaaaaa") (run-regexp "(?:(f)(o)(o)|(b)(a)(r))*" "foobar") (run-regexp "(a)?a(b)" "ab")