1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#! /usr/bin/crm
#
# windowtest.crm - testing windonwing on windows nad variables
# Copyright 2009 William S. Yerazunis.
# This file is under GPLv3, as described in COPYING.
window
{
output /:*:_nl: CRM114: testing windowing on windows and variables :*:_nl: :*:_nl:/
output /:*:_nl: test one- input by chars, delimited by 'A' /
window /A/ /A/
match <> (:big:) /.*/
output /:*:_nl: Got: :*:_nl: :*:big:/
output /:*:_nl: test two- input by EOFs, delimited by 'A' /
window <byeof> /A/ /A/
match <> (:big:) /.*/
output /:*:_nl: Got: :*:_nl: :*:big:/
output /:*:_nl: test three- window an isolated var by chars, delimited by 'A' /
isolate (:frib:) / *** this is the initial value *** /
window <> (:frib:) /A/ /A/
match <> [:frib:] (:big:) /.*/
output /:*:_nl: Got: :*:_nl: :*:big:/
output /:*:_nl: test four- isolated var, input by EOFs, delimited by 'A' /
window <byeof> (:frib:) /A/ /A/
match <> [:frib:] (:big:) /.*/
output /:*:_nl: Got: :*:_nl: :*:big:/
output /:*:_nl: and lastly- did the data window stay constant? :*:_nl:/
accept
output /:*:_nl:/
}
|
