diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/Makefile | 8 | ||||
| -rw-r--r-- | t/ne.pdf | bin | 14878 -> 0 bytes | |||
| -rw-r--r-- | t/ne.t | 116 | ||||
| -rw-r--r-- | t/t.tmac | 12 |
4 files changed, 115 insertions, 21 deletions
@@ -3,9 +3,13 @@ TEST != ls *.t | sed 's/t$$/T/' all: $(TEST) -.t.T: +g.tmac: ../g.tmac + cp g.tmac g.tmac.orig + grep -v '^\. *w ' ../g.tmac > g.tmac + +.t.T: g.tmac t.tmac @echo -- $< ----------------------- @groff -Tps $< >/dev/null -.t.pdf: +.t.pdf: g.tmac t.tmac groff -Tps $< | ps2pdf - > $@ diff --git a/t/ne.pdf b/t/ne.pdf Binary files differdeleted file mode 100644 index c3f7c5c..0000000 --- a/t/ne.pdf +++ /dev/null @@ -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 @@ -6,12 +6,20 @@ . .\" make assertion .de assert -.ie \\$1 \{\ +.ec ` +.ie `$1 \{\ . tm1 " success .\} +.ec .el \{\ -. tm1 " failure: \\$1 +. if \\nF<\\nt .tm1 " failure: +.ec ` +. ds *exp `$1 +.ec +. tm1 "{ \\*[*exp] +. if !'\\*[*exp]'\\$1' . tm1 "} \\$1 . nr f +1 +. nr F \\nt .\} .. .\" end tests |