LeOS-Genesis/external/badvpn/ncd/tests/regex.ncd

49 lines
1.2 KiB
Plaintext

process main {
var("FOO BAR BAZ QUX goo") x;
regex_replace(x, {"FOO", "BAR", "goo"}, {"BAR", "bar", "GOO"}) y;
strcmp(y, "BAR bar BAZ QUX GOO") a;
assert(a);
var("hello world") x;
regex_replace(x, {"^hello"}, {"Hello,"}) y;
strcmp(y, "Hello, world") a;
assert(a);
var("hello world") x;
regex_replace(x, {"goodbye"}, {"hello"}) y;
strcmp(y, "hello world") a;
assert(a);
var("hello world") x;
regex_replace(x, {"hello world"}, {"hello NCD"}) y;
strcmp(y, "hello NCD") a;
assert(a);
var("hello world") x;
regex_replace(x, {"wor"}, {"Wor"}) y;
strcmp(y, "hello World") a;
assert(a);
var("hello world") x;
regex_replace(x, {"ell", "llo"}, {"ELL", "LLO"}) y;
strcmp(y, "hELLo world") a;
assert(a);
var("hello world") x;
regex_replace(x, {"ell", "el"}, {"ELL", "EL"}) y;
strcmp(y, "hELLo world") a;
assert(a);
var("hello world") x;
regex_replace(x, {"el", "lo"}, {"EL", "LO"}) y;
strcmp(y, "hELLO world") a;
assert(a);
var("hello world") x;
regex_replace(x, {"ell", "ll"}, {"ELL", "LL"}) y;
strcmp(y, "hELLo world") a;
assert(a);
exit("0");
}