From 8e62161e1d1a7f2f3732dfd66f85ecb09fe19c98 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 21 Jun 2021 12:56:03 +0200
Subject: Add tests

---
 t/ne.t | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 t/ne.t

(limited to 't/ne.t')

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
-- 
cgit v1.2.3