summaryrefslogtreecommitdiff
path: root/web/funnelAC/tests/tg03.fw
blob: 6d7ca462d5ac0127f6e70f1ec5b9e3bda9f4d26a (plain)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
TG03: Test expansions with indentation.

@p indentation = blank

@O@<tg03.out@>@{@-
@<Poem@>

@<Indentation test@>
@}

@!******************************************************************************

@A@<Poem Section@>

@$@<Poem@>@{@-
The other day upon the stair,
@<Middle@>
I think he's from the CIA.@}

@$@<Middle@>@{@-
I met a man who wasn't there.
@<Second line of middle@>@}

@$@<Second line of middle@>@{He wasn't there @<again@> today,@}

@$@<again@>@{again@}

@!******************************************************************************

@A@<Program Section@>

@$@<Indentation test@>@{@-
The following nest of begin and ends should be indented in a nest.

begin0
   @<A@>
end0@}


@$@<A@>@{@-
begin1
   @<B@>
end1@}

@$@<B@>@{@-
begin2
   @<C@>
end2@}

@$@<C@>@{@-
begin3
   @<D@>
end3@}

@$@<D@>@{@-
begin4
   @<E@>
end4@}

@$@<E@>@{@-
begin wayout----------V
                      @<wayout@>
end   wayout----------^@}

@$@<wayout@>@{@-
It's scary out here
So far from the left margin.@}

@!******************************************************************************