blob: 4cfc4db8573ba48c253739dbeedf4f70c79d68f9 (
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
|
!===========================<Start of test_ld Script>===========================
!
! Test With Listing File and Scanner Dumps
! ----------------------------------------
! Inputs:
! $1 = Name of the .fw file to be tested (e.g. $1="sc01").
! $2 = Empty ("") or "!" to suppress FIXEOLing and existence check
! of input file.
! $I = Directory containing .fw files.
! $A = Directory containing Answer files.
! $O = Directory to place Result files.
! $D = Name of the differences file.
! Outputs:
! Listing file containing dumps.
! Appendage to differences file.
! Announce this test.
write ""
write ""
writeu "Performing Test $1"
! Delete any previous output files.
eneo $O$1.log
eneo $O$1.lis
eneo $O$1.tex
eneo $O$1.out
! Check input and answer files.
$2exists $I$1.fw
exists $A$1.lis
absent $A$1.out
absent $A$1.tex
! Clean input and answer files.
$2fixeols $I$1.fw
fixeols $A$1.lis
! Perform the actual FunnelWeb run.
! Tolerate means "don't abort on warning, error, or severe".
! Options:
! +b1 Dump input file map.
! +b2 Dump line list.
! +b3 Dump token list.
! +b4 Dump macro table.
! +b5 Dump document list.
tolerate
fw $I$1.fw +l$O$1.lis +b12345
! Ensure that only a listing file was generated.
absent $O$1.log
absent $O$1.tex
absent $O$1.out
exists $O$1.lis
! Compare the listing file with the answer file.
diff $O$1.lis $A$1.lis $D
!============================<End of test_ld Script>============================
|