ne.t: Test s l, s ll

1 files changed, 99 insertions, 17 deletions

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