From b1ddb4001d5e3f0ef17ce2cc1363140efb733419 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 21 Jun 2021 14:33:37 +0200
Subject: ne.t: Test s l, s ll

---
 t/ne.t | 116 +++++++++++++++++++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 99 insertions(+), 17 deletions(-)

(limited to 't/ne.t')

diff --git a/t/ne.t b/t/ne.t
index 564f686..14a2133 100644
--- a/t/ne.t
+++ b/t/ne.t
@@ -1,4 +1,4 @@
-.so ../g.tmac
+.so g.tmac
 .so t.tmac
 .
 .t
@@ -10,19 +10,19 @@ macro.
 .
 .\" helper macros
 .
-.\" make space for exactly 's pp' at bottom of page
-.de makespace
+.\" make space at bottom of page
+.de @
 . rs
 . rt 0
-. sp \n(.pu-\n(mbu-39601u
-. nr _ \\n%
+. sp \n(.pu-\n(mbu-\\$1-1u
+. nr a \\n%
 ..
 .
-.\" write 's pp'
-.de write
+.\" write 's pppp'
+.de *spppp
 . s
 . nr s \\n%
-Lorem ipsum
+Test \\nt
 . p
 . nr p \\n%
 Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do
@@ -35,30 +35,112 @@ cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat
 cupidatat non proident, sunt in culpa qui officia deserunt mollit
 anim id est laborum.
 ..
+.de *sllll
+. s
+Test \\nt
+. nr s \\n%
+. l
+. nr l \\n%
+first line
+. nr ll \\n%
+second line
+. nr lll \\n%
+third line
+fourth line
+..
 .
 .\" run tests
 .
 .test s pp +0u
 .bp
-.makespace
+.@ 39600u
 .w s pp
-.write
-.assert (\n_=\ns)&(\ns=\np)&(\np=\n(pp)
+.*spppp
+.assert (`na=`ns)&(`ns=`np)&(`np=`n(pp)
 .
 .test s pp +1u
 .bp
-.makespace
+.@ 39600u
 .sp 1u
 .w s pp
-.write
-.assert (\n_<\ns)&(\ns=\np)&(\np=\n(pp)
+.*spppp
+.assert (`na<`ns)&(`ns=`np)&(`np=`n(pp)
 .
 .test s pp +2u
 .bp
-.makespace
+.@ 39600u
 .sp 2u
 .w s pp
-.write
-.assert (\n_<\ns)&(\ns=\np)&(\np=\n(pp)
+.*spppp
+.assert (`na<`ns)&(`ns=`np)&(`np=`n(pp)
+.
+.test s p +0u
+.bp
+.@ 27600u
+.w s p
+.*spppp
+.assert (`na=`ns)&(`ns=`np)&(`np<`n(pp)
+.
+.test s p +1u
+.bp
+.@ 27600u
+.sp 1u
+.w s p
+.*spppp
+.assert (`na<`ns)&(`ns=`np)&(`np=`n(pp)
+.
+.test s p +2u
+.bp
+.@ 27600u
+.sp 2u
+.w s p
+.*spppp
+.assert (`na<`ns)&(`ns=`np)&(`np=`n(pp)
+.
+.test s l +0u
+.bp
+.@ 27600u
+.w s l
+.*sllll
+.assert (`na=`ns)&(`ns=`nl)&(`nl<`n(ll)&(`n(ll=`n[lll])
+.
+.test s l +1u
+.bp
+.@ 27600u
+.sp 1u
+.w s l
+.*sllll
+.assert (`na<`ns)&(`ns=`nl)&(`nl=`n(ll)&(`n(ll=`n[lll])
+.
+.test s l +2u
+.bp
+.@ 27600u
+.sp 2u
+.w s l
+.*sllll
+.assert (`na<`ns)&(`ns=`nl)&(`nl=`n(ll)&(`n(ll=`n[lll])
+.
+.test s ll +0u
+.bp
+.@ 38600u
+.w s ll
+.*sllll
+.assert (`na=`ns)&(`ns=`nl)&(`nl=`n(ll)&(`n(ll<`n[lll])
+.
+.test s ll +1u
+.bp
+.@ 38600u
+.sp 1u
+.w s ll
+.*sllll
+.assert (`na<`ns)&(`ns=`nl)&(`nl=`n(ll)&(`n(ll=`n[lll])
+.
+.test s ll +2u
+.bp
+.@ 38600u
+.sp 2u
+.w s ll
+.*sllll
+.assert (`na<`ns)&(`ns=`nl)&(`nl=`n(ll)&(`n(ll=`n[lll])
 .
 .end
-- 
cgit v1.2.3