t/ne.t


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

.so ../g.tmac
.so t.tmac
.
.t
ne.t: test space requests
.p
This file tests the
.c w
macro.
.
.\" helper macros
.
.\" make space for exactly 's pp' at bottom of page
.de makespace
. rs
. rt 0
. sp \n(.pu-\n(mbu-39601u
. nr _ \\n%
..
.
.\" write 's pp'
.de write
. s
. nr s \\n%
Lorem ipsum
. p
. nr p \\n%
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do
eiusmod tempor incididunt ut labore et dolore magna aliqua.
. nr pp \\n%
Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris
nisi ut aliquip ex ea commodo consequat.
Duis aute irure dolor in reprehenderit in voluptate velit esse
cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat
cupidatat non proident, sunt in culpa qui officia deserunt mollit
anim id est laborum.
..
.
.\" run tests
.
.test s pp +0u
.bp
.makespace
.w s pp
.write
.assert (\n_=\ns)&(\ns=\np)&(\np=\n(pp)
.
.test s pp +1u
.bp
.makespace
.sp 1u
.w s pp
.write
.assert (\n_<\ns)&(\ns=\np)&(\np=\n(pp)
.
.test s pp +2u
.bp
.makespace
.sp 2u
.w s pp
.write
.assert (\n_<\ns)&(\ns=\np)&(\np=\n(pp)
.
.end