1169d92004-05-02Martin Nilsson START_MARKER
24ddc71998-03-28Henrik Grubbström (Grubba) 
a88a452002-11-26Martin Nilsson dnl Regexp->match
4935de2015-04-28Martin Nilsson test_eq(Regexp("")->match(""),1) test_eq(Regexp(".*hej")->match("hej"),1) test_eq(Regexp(".*hej")->match("ohej"),1) test_eq(Regexp("^hej")->match("hej"),1) test_eq(Regexp("^hej")->match("ohej"),0) test_eq(Regexp(".hej")->match("hej"),0) test_eq(Regexp(".hej")->match("ohej"),1)
af228a2015-04-19Martin Nilsson test_eq(Regexp("^.*$")->match(""),1) test_eq(Regexp(".*")->match("foo"),1) test_eq(Regexp("^.*$")->match("a"),1) test_eq(Regexp("^.*$")->match("-"),1) test_eq(Regexp("^$")->match(""),1) test_eq(Regexp("^.$")->match("a"),1) test_eq(Regexp("^.$")->match("-"),1) test_eq(Regexp("^[abc]$")->match("-"),0) test_eq(Regexp("^[abc]$")->match("a"),1) test_eq(Regexp("^[abc]$")->match("c"),1) test_eq(Regexp("^[^abc]$")->match("-"),1) test_eq(Regexp("^[^abc]$")->match("a"),0) test_eq(Regexp("^[^abc]$")->match("c"),0) test_eq(Regexp("^a*$")->match("aaaa"),1) test_eq(Regexp("^(a|bb)*$")->match("aabbabb"),1) test_eq(Regexp("^(a|bb)*$")->match(""),1) test_eq(Regexp("^(a|bb)+$")->match(""),0) test_eq(Regexp("^(a|bb)+$")->match("aaa"),1) test_eq(Regexp("^(a|bb)+$")->match("bbb"),0) test_eq(Regexp("^(a|bb)+$")->match("bbaabba"),1) test_eq(Regexp("^a|b$")->match("a"),1) test_eq(Regexp("^a|b$")->match("b"),1) test_equal(Regexp("x")->match(({ "a", "b", "c" })),({})) test_equal(Regexp("a")->match(({ "a", "b", "c" })),({ "a" })) test_equal(Regexp("c|a")->match(({ "a", "b", "c" })),({ "a", "c" }))
11c4d82000-12-13Fredrik Noring 
a88a452002-11-26Martin Nilsson dnl Regexp->split
af228a2015-04-19Martin Nilsson test_equal(Regexp("^(a*)[^a]*$")->split("aaabbb"),({"aaa"}))
5f2c302015-04-19Martin Nilsson test_equal(Regexp("(a)"*39)->split("a"*50),({"a"})*39) test_eval_error(Regexp("(a)"*40)->split("a"*50))
ab6aec1997-02-11Fredrik Hübinette (Hubbe) 
a88a452002-11-26Martin Nilsson dnl Regexp->replace
af228a2015-04-19Martin Nilsson test_equal( Regexp(".*")->replace("abrakadabra", "·"), "·") test_equal( Regexp("^ab")->replace("abrakadabra", "·"), "·rakadabra") test_equal( Regexp("(a)")->replace("abrakadabra", "·"), "·br·k·d·br·") test_equal( Regexp(".*")->replace("abrakadabra", "·"), "·") test_equal( Regexp("k|br")->replace("abrakadabra", "·"), "a·a·ada·a") test_equal( Regexp("k|br")->replace("abrakadabra", lambda(string s) { return "["+upper_case(s)+"]"; }),
ccd7571999-11-22Fredrik Noring  "a[BR]a[K]ada[BR]a")
6c4f0c2000-09-10Mirar (Pontus Hagland) 
a88a452002-11-26Martin Nilsson dnl test non-crash
af228a2015-04-19Martin Nilsson test_do(Regexp("^((.*)[ ]|)(.*)[ ]")->split("abcdef"))
cad50c2003-08-08Martin Nilsson  dnl Shortcuts
e866962015-04-21Martin Nilsson cond_resolv(Regexp.match, [[ test_eq(Regexp.match("^[abc]$","-"),0) test_eq(Regexp.match("^[abc]$","a"),1) test_equal(Regexp.split("^(a*)[^a]*$","aaabbb"),({"aaa"})) test_equal( Regexp.replace("(a)", "abrakadabra", "·"), "·br·k·d·br·") ]])
ae26ec2003-09-07Martin Nilsson 
1169d92004-05-02Martin Nilsson END_MARKER