add failing non-greedy test example

Issue #1020.
This commit is contained in:
Alex Shinn 2025-04-01 10:36:06 +09:00
parent f8600d444f
commit 6891ba1a33

View file

@ -151,6 +151,9 @@
(test-re '("abc " "") (test-re '("abc " "")
'(: ($ (*? alpha)) (* any)) '(: ($ (*? alpha)) (* any))
"abc ") "abc ")
;; (test-re-search '("a-z")
;; '(: "a" (*? any) "z")
;; "a-z-z")
(test-re '("<em>Hello World</em>" "em>Hello World</em") (test-re '("<em>Hello World</em>" "em>Hello World</em")
'(: "<" ($ (* any)) ">" (* any)) '(: "<" ($ (* any)) ">" (* any))
"<em>Hello World</em>") "<em>Hello World</em>")