Add tests

1 files changed, 64 insertions, 0 deletions

diff --git a/t/ne.t b/t/ne.t
new file mode 100644
index 0000000..564f686
--- /dev/null
+++ b/t/ne.t
@@ -0,0 +1,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