summaryrefslogtreecommitdiff
path: root/web/funnelAC/tests/tg02.fw
blob: bd02b664d52ceae3670c54b491ecc751bedc528e (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
70
71
TG02: Test expansions with no indentation.

@p indentation = none

@O@<tg02.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@>@{@-
In the output begin0 should be at the left margin, then begin1 to begin wayout
should be indented by three spaces. Then the "It's scary" should be
positioned over the "a" ofd margin. The rest should be at the left margin.

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.@}

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