1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#! /usr/bin/crm
#
# skudtest.crm - start/length works regression test
# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.
#
# this little regression test by Jskud verifies match start/length works
window
output /:*:_nl: CRM114 testing that start \/ length works in matches :*:_nl: :*:_nl:/
isolate (:whitelist:)
input (:whitelist:) [whitelist.mfp.example]
output /DEBUG: whitelist==<<:*:whitelist:>>:*:_nl:/
# match (:waste:) [:whitelist:] /^/ ; # force match so <fromend> will work
{
# Grab the next regex -- turn the one-per-line patterns into a regex
match <fromend nomultiline> (:waste: :whregex:) [:whitelist:] /(.+)/
{
output /DEBUG: matched==<<:*:whregex:>>:*:_nl:/
}
liaf
}
output /DEBUG: [TheEnd]:*:_nl:/
|
