1 dnl PSPP - a program for statistical analysis.
2 dnl Copyright (C) 2020 Free Software Foundation, Inc.
4 dnl This program is free software: you can redistribute it and/or modify
5 dnl it under the terms of the GNU General Public License as published by
6 dnl the Free Software Foundation, either version 3 of the License, or
7 dnl (at your option) any later version.
9 dnl This program is distributed in the hope that it will be useful,
10 dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
11 dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 dnl GNU General Public License for more details.
14 dnl You should have received a copy of the GNU General Public License
15 dnl along with this program. If not, see <http://www.gnu.org/licenses/>.
18 AT_BANNER([tex driver])
20 dnl By passing --xdvi=xdvi to TESTSUITEFLAGS, one can view the rendered dvi from
21 dnl tests defined in this file.
22 AT_ARG_OPTION_ARG([xdvi],[AS_HELP_STRING([--xdvi],
23 [the xdvi program to show show TeX output (default none)])])
25 AT_SETUP([tex glyphs])
27 AT_CHECK([tex-glyphs pspp.tex], [0], [ignore], [ignore])
29 AT_SKIP_IF([test "$TEX" = no])
31 dnl The wasy10 font and its associated .tex file must be installed.
32 dnl in order to run this test. On Debian based systems this is found
33 dnl in the texlive-fonts-recommended package.
34 AT_SKIP_IF([! kpsewhich wasyfont.tex])
35 AT_CHECK([$TEX --halt-on-error pspp.tex], [0], [ignore])
37 dnl There should be no overfull boxes
38 AT_CHECK([grep '^Overfull ' pspp.log], [1])
39 dnl nor any underful ones
40 AT_CHECK([grep '^Underfull ' pspp.log], [1])
42 test -z "$at_arg_xdvi" || AT_CHECK([$at_arg_xdvi -s 3 pspp.dvi], [0], [ignore])
48 AT_SETUP([tex utf8-strings])
52 dnl The following UTF-8 texts are a collection of snippets harvested
53 dnl from various Wikipedia sites. Wikipedia articles are
54 dnl copyright and licenced under the GFDL (unversioned)
55 AT_DATA([sample-texts/en.txt], [[The
56 Battle of Artaza (Acción de Artaza) was
57 a battle that occurred on April 20–22, 1835 during the First
60 Jerónimo Valdés, at the time Minister of War, arrived at the area known as
61 Las Amescoas with 22,000 men with the intention of
62 definitively destroying the Carlist forces.[1] Zumalacárregui had 5,000 men,
63 but had the advantage of knowing the terrain and practicing guerrilla tactics.
66 AT_DATA([sample-texts/pl.txt], [[The Giszowiec składa się z budynków
67 wielorodzinnych z wielkiej płyty oraz
68 zabytkowych domów, przeważnie jedno- i dwurodzinnych, stanowiących
69 niegdyś zwarte osiedle górnicze, które do dziś jest unikatowe w skali
70 europejskiej i znajduje się na Szlaku Zabytków Techniki Województwa
71 Śląskiego. Zostało ono wybudowane dla górników pracujących w kopalni
72 Giesche (późniejszej kopalni Wieczorek) przez koncern Georg von
73 Giesches Erben na zlecenie dyrektora spółki Antona Uthemanna w latach
74 1907–1910. Projektantami osiedla byli Zillmannowie: Georg i
75 go dwa szlaki komunikacyjne: droga krajowa nr 86 oraz autostrada A4, a
76 także rozpoczyna swój bieg droga krajowa nr 81. Dzielnica ma
77 powierzchnię 12,03 km² (7,30% powierzchni miasta) i liczyła w 2007
78 roku 18 475 mieszkańców (5,9% ludności Katowic).
81 AT_DATA([sample-texts/el.txt], [[Η πόλη των Σερρών υπήρξε η πιο
82 οχυρωμένη πόλη της περιοχής λόγω της στρατηγικής γεωγραφικής της
83 θέσης. Στα βόρεια της πόλης των Σερρών, πάνω σε λόφο γνωστό με την
84 επωνυμία Κουλάς, βρίσκεται η αρχαία και βυζαντινή ακρόπολη. Η ακρόπολη
85 όπως σώζεται σήμερα αποτελεί έργο των βυζαντινών χρόνων, αλλά
86 θεμελιώθηκε πάνω σε αρχαίο φρούριο του 7ου και 6ου π. Χ. αιώνα. Η
87 κατασκευή της ακρόπολης χρονολογείται στον 9ο μ. Χ. αιώνα, πιθανότατα,
88 επί Αυτοκράτορα Νικηφόρου Φωκά και αναφέρεται σε πολλά βυζαντινά
89 χρυσόβουλα ως «κάστρο» με γνωστότερο καστροφύλακα τον Λέοντα τον
90 Αζανίτη. [1] Με την πάροδο των χρόνων ολόκληρη η πόλη χαρακτηριζόταν
91 ως «κάστρο» και οι Σερραίοι, «καστρινοί».
94 AT_DATA([sample-texts/is.txt], [[Saloth Sar, betur þekktur sem Pol Pot,
95 var fæddur 19. maí 1925 og dó
96 15. apríl 1998. Hann var leiðtogi Rauðu khmeranna í Kambódíu frá 1963
97 til 1979 og er þekktastur fyrir dauða óhemjumargs fólks í stjórnartíð
98 sinni, sem var frá 1975 til 1979. Rauðu khmerarnir reyndu að
99 framfylgja sýn sinni um eins konar samyrkjuvæðingu, en meðal þess sem
100 hún átti að fela í sér var að borgarbúar flyttu út í sveitir og ynnu
101 þar við landbúnað eða í betrunarvinnu. Þeir töldu sig geta byrjað
102 siðmenninguna upp á nýtt og tóku því upp tímatal sem átti að hefjast
103 með valdatíð þeirra. Sú valdatíð var ekki löng, en því
104 mannskæðari. Þrælkunarvinna, vannæring, hrun í heilbrigðiskerfinu og
105 beinar aftökur kostuðu á bilinu 750.000 - 1.700.000 manns lífið (sumir
109 AT_DATA([sample-texts/hr.txt], [[Nakon što je film završen početkom
110 1984., autori su krenuli tražiti distributera. Odnijeli su film u Los
111 Angeles i pokazali ga velikim studijima. Svi su odbili izuzev Oriona
112 koji je prihvatio distribuciju, ali uz uvjet da ne bi ništa platio
113 unaprijed, što je investitorima bilo neprihvatljivo. Joel Coen
114 napominje da se dogovorio sa agentom za prodaju prava u inozemstvu
115 kako bi se napokon film počeo prikazivati negdje, no to je bio
116 riskantan potez jer to ubija zanimanje domaćih distributera.
119 AT_DATA([sample-texts/cz.txt], [[Volarský dům alpského typu (německy
120 Wallerer Haus) je na území České
121 republiky ojedinělý typ venkovského dřevěného domu, jenž se vyskytuje
122 v šumavském městě Volary, které proto někdy bylo nazýváno „alpským
123 městečkem na Šumavě“. Mimo Volary se vyskytuje ještě v sousední obci
124 Dobrá a další jeden dům se nachází v Železné Rudě.[1] Další, do
125 současnosti nedochované domy, se nacházely v Českých Žlebech, Lenoře,
126 Hůrce a Vimperku. V širším okolí Šumavy (Chodsko, Klatovsko, Plánicko)
127 se vyskytují domy volarským stylem více nebo méně ovlivněné.[2]
130 AT_DATA([sample-texts/de.txt], [[Urkundlich wurde Rehme 753 erstmals
131 in den fränkischen Reichsannalen erwähnt, als sich die fränkischen
132 Könige Pippin der Jüngere und sein Nachfolger Karl der Große auf
133 Feldzügen dorthin begaben.[2] Seit ca. 800 ist Rehme Sitz einer
134 Kirchengemeinde. Die romanische Laurentiuskirche stammt aus dem
135 12. Jahrhundert und wurde 1890–1892 im neoromanischen Stil erweitert.
138 AT_DATA([sample-texts/ang.txt], [[Regn is ƿǣt æðmhēap, nā heard cynn
139 æðmhēapes sƿilce snāƿ, hægel, and īsregn. Tō regnenne, hit is nȳdmicel
140 þæt þicce dǣl þæs lyfthelmes sīe ƿearmra þonne his hāt meltunge, nēah
141 þǣm andƿlitan þǣre eorðan and ēac ofer him. Hē is sēo gæderung þæs
142 lyfthelmes æðmes on lyfte oþþæt hē is sƿā hefig þæt hē fealle, oft
143 full tō þǣre eorðan þǣm andƿlitan. Tū ƿeorc cunnon fyllan þā lyfte
144 oþþæt hire ƿæter beflōƿe: sēo acēlung þǣre lyfte and sēo settung
145 ƿæteres æðmes on þā lyfte.
148 AT_DATA([sample-texts/sv.txt], [[Årsmedeltemperaturen i trakten är 18
149 °C. Den varmaste månaden är januari, då medeltemperaturen är 20 °C,
150 och den kallaste är juni, med 16 °C.[5] Genomsnittlig årsnederbörd är
151 2 874 millimeter. Den regnigaste månaden är februari, med i genomsnitt
152 421 mm nederbörd, och den torraste är augusti, med 79 mm nederbörd.[6]
156 AT_CHECK([tex-strings -o pspp.tex sample-texts/*], [0], [ignore], [ignore])
158 AT_SKIP_IF([test "$TEX" = no])
159 AT_SKIP_IF([! kpsewhich wasyfont.tex])
160 AT_CHECK([$TEX --halt-on-error pspp.tex], [0], [ignore])
162 test -z "$at_arg_xdvi" || AT_CHECK([$at_arg_xdvi -s 3 pspp.dvi], [0], [ignore])
168 AT_SETUP([tex simple example])
170 AT_DATA([simple.sps], [dnl
171 data list list /name (a16) score *.
183 AT_CHECK([pspp -O format=tex simple.sps], [0], [])
184 AT_CHECK([test $($GWC -L pspp.tex | awk '{print $1}') -le 80], [0], [ignore])
186 AT_SKIP_IF([test "$TEX" = no])
187 AT_CHECK([$TEX --halt-on-error pspp.tex], [0], [ignore])
189 dnl There should be no overfull boxes
190 AT_CHECK([grep '^Overfull ' pspp.log], [1])
191 dnl nor any underful ones
192 AT_CHECK([grep '^Underfull ' pspp.log], [1])
194 test -z "$at_arg_xdvi" || AT_CHECK([$at_arg_xdvi -s 3 pspp.dvi], [0], [ignore])
200 AT_SETUP([tex another example])
202 AT_CHECK([pspp -O format=tex $abs_top_srcdir/examples/regress.sps], [0], [])
203 AT_CHECK([test $($GWC -L pspp.tex | awk '{print $1}') -le 80], [0], [ignore])
205 AT_SKIP_IF([test "$TEX" = no])
206 AT_CHECK([$TEX --halt-on-error pspp.tex], [0], [ignore])
208 test -z "$at_arg_xdvi" || AT_CHECK([$at_arg_xdvi -s 3 pspp.dvi], [0], [ignore])
213 dnl This example emits a table footnote
214 AT_SETUP([tex table footnotes])
216 AT_DATA([footnote.sps], [dnl
218 data list notable list /foo * bar * wiz * bang *.
231 variables = foo bar wiz bang
236 AT_CHECK([pspp -O format=tex footnote.sps], [0], [])
237 AT_CHECK([test $($GWC -L pspp.tex | awk '{print $1}') -le 80], [0], [ignore])
239 AT_SKIP_IF([test "$TEX" = no])
240 AT_CHECK([$TEX --halt-on-error pspp.tex], [0], [ignore])
242 dnl There should be no overfull boxes
243 AT_CHECK([grep '^Overfull ' pspp.log], [1])
244 dnl nor any underful ones
245 AT_CHECK([grep '^Underfull ' pspp.log], [1])
247 test -z "$at_arg_xdvi" || AT_CHECK([$at_arg_xdvi -s 3 pspp.dvi], [0], [ignore])
253 dnl An example with non-ascii characters
254 AT_SETUP([tex non-ascii])
256 AT_DATA([utf8.sps], [dnl
258 data list notable list /items (a16).
277 AT_CHECK([LC_ALL=C.UTF-8 pspp -O format=tex utf8.sps], [0], [])
278 AT_CHECK([test $($GWC -L pspp.tex | awk '{print $1}') -le 80], [0], [ignore])
280 dnl The string "??" should not be present in pspp.tex
281 AT_CHECK([grep -F '??' pspp.tex], [1])
283 AT_SKIP_IF([test "$TEX" = no])
284 AT_CHECK([$TEX --halt-on-error pspp.tex], [0], [ignore])
286 dnl There should be no overfull boxes
287 AT_CHECK([grep '^Overfull ' pspp.log], [1])
288 dnl nor any underful ones
289 AT_CHECK([grep '^Underfull ' pspp.log], [1])
291 test -z "$at_arg_xdvi" || AT_CHECK([$at_arg_xdvi -s 3 pspp.dvi], [0], [ignore])
296 dnl This example emits a table which is rather more complicated
297 dnl It has cells which span multiple columns
298 AT_SETUP([tex multispan])
300 AT_DATA([t-test.sps], [dnl
302 data list notable list /score * group (a20).
314 t-test /variables=score /group=group("this", "that").
317 AT_CHECK([pspp -O format=tex t-test.sps], [0], [])
318 AT_CHECK([test $($GWC -L pspp.tex | awk '{print $1}') -le 80], [0], [ignore])
320 AT_SKIP_IF([test "$TEX" = no])
321 AT_CHECK([$TEX --halt-on-error pspp.tex], [0], [ignore])
323 dnl There should be no overfull boxes
324 AT_CHECK([grep '^Overfull ' pspp.log], [1])
325 dnl nor any underful ones
326 AT_CHECK([grep '^Underfull ' pspp.log], [1])
328 test -z "$at_arg_xdvi" || AT_CHECK([$at_arg_xdvi -s 3 pspp.dvi], [0], [ignore])