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")