diff options
| author | John Ankarström <john@ankarstrom.se> | 2021-06-21 12:56:03 +0200 |
|---|---|---|
| committer | John Ankarström <john@ankarstrom.se> | 2021-06-21 12:56:03 +0200 |
| commit | 8e62161e1d1a7f2f3732dfd66f85ecb09fe19c98 (patch) | |
| tree | 305872c843a72c0bac8e031d384b7276fa361b99 | |
| parent | d30db1b45a794e6608fdac30d5238930ce414309 (diff) | |
| download | mk-8e62161e1d1a7f2f3732dfd66f85ecb09fe19c98.tar.gz | |
Add tests
| -rw-r--r-- | t/Makefile | 11 | ||||
| -rw-r--r-- | t/ne.pdf | bin | 0 -> 14878 bytes | |||
| -rw-r--r-- | t/ne.t | 64 | ||||
| -rw-r--r-- | t/t.tmac | 24 |
4 files changed, 99 insertions, 0 deletions
diff --git a/t/Makefile b/t/Makefile new file mode 100644 index 0000000..6027724 --- /dev/null +++ b/t/Makefile @@ -0,0 +1,11 @@ +.SUFFIXES: .t .T .pdf +TEST != ls *.t | sed 's/t$$/T/' + +all: $(TEST) + +.t.T: + @echo -- $< ----------------------- + @groff -Tps $< >/dev/null + +.t.pdf: + groff -Tps $< | ps2pdf - > $@ diff --git a/t/ne.pdf b/t/ne.pdf Binary files differnew file mode 100644 index 0000000..c3f7c5c --- /dev/null +++ b/t/ne.pdf @@ -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 diff --git a/t/t.tmac b/t/t.tmac new file mode 100644 index 0000000..c266c1f --- /dev/null +++ b/t/t.tmac @@ -0,0 +1,24 @@ +.\" start test +.de test +. nr t +1 +. tmc test \\nt (\\$*): +.. +. +.\" make assertion +.de assert +.ie \\$1 \{\ +. tm1 " success +.\} +.el \{\ +. tm1 " failure: \\$1 +. nr f +1 +.\} +.. +.\" end tests +.de end +. ie \\nf=0 .tm ** \\nt test(s) finished successfully ** +. el \{ +. ab !! \\nf test(s) failed !! +. \} +.. +. |