From: Ben Pfaff <blp@cs.stanford.edu>
Date: Wed, 19 Jan 2022 01:48:58 +0000 (-0800)
Subject: Simple test for TOTALS.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp;a=commitdiff_plain;h=8e6f8bf3152f9ed166769b32f542b98991db4a4f

Simple test for TOTALS.
---

diff --git a/examples/automake.mk b/examples/automake.mk
index fd78765c00..0b8197e977 100644
--- a/examples/automake.mk
+++ b/examples/automake.mk
@@ -25,6 +25,7 @@ examples_DATA = \
 	examples/grid.sps \
 	examples/hotel.sav \
 	examples/horticulture.sav \
+	examples/nhtsa.sav \
 	examples/personnel.sav \
 	examples/physiology.sav \
 	examples/repairs.sav \
diff --git a/tests/language/stats/ctables.at b/tests/language/stats/ctables.at
index be67e3e569..46147b42c0 100644
--- a/tests/language/stats/ctables.at
+++ b/tests/language/stats/ctables.at
@@ -478,3 +478,57 @@ AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl
 ╰────────────────────────────────────────────────────────────────────────┴─────╯
 ])
 AT_CLEANUP
+
+
+AT_SETUP([CTABLES simple totals])
+AT_CHECK([ln $top_srcdir/examples/nhtsa.sav . || cp $top_srcdir/examples/nhtsa.sav .])
+AT_DATA([ctables.sps],
+[[GET 'nhtsa.sav'.
+CTABLES /TABLE=qn17
+    /CATEGORIES VARIABLES=qn17 TOTAL=YES LABEL='Number responding'.
+CTABLES /TABLE=region > qn18 [MEAN, COUNT]
+    /CATEGORIES VARIABLES=region TOTAL=YES LABEL='All regions'.
+]])
+AT_CHECK([pspp ctables.sps -O box=unicode -O width=80], [0], [dnl
+                                  Custom Tables
+╭────────────────────────────────────────────────────────────────────────┬─────╮
+│                                                                        │Count│
+├────────────────────────────────────────────────────────────────────────┼─────┤
+│17. When you drink alcoholic beverages, which ONE of  OR, something else│    2│
+│the following beverages do you drink MOST OFTEN?      Beer              │ 1073│
+│                                                      Light beer        │  620│
+│                                                      Wine              │ 1418│
+│                                                      Wine coolers      │  137│
+│                                                      Hard liquor or    │  888│
+│                                                      mixed drinks      │     │
+│                                                      Flavored malt     │   83│
+│                                                      drinks            │     │
+│                                                      Number responding │ 4221│
+╰────────────────────────────────────────────────────────────────────────┴─────╯
+
+                                  Custom Tables
+╭───────────────────────────────────────────────────────────────────┬────┬─────╮
+│                                                                   │Mean│Count│
+├───────────────────────────────────────────────────────────────────┼────┼─────┤
+│Region NE       18. When you drink ANSWERFROM(QN17R1), about how   │4.36│  949│
+│                many ANSWERFROM(QN17R2) do you usually drink per   │    │     │
+│                sitting?                                           │    │     │
+│      ╶────────────────────────────────────────────────────────────┼────┼─────┤
+│       MW       18. When you drink ANSWERFROM(QN17R1), about how   │4.67│ 1027│
+│                many ANSWERFROM(QN17R2) do you usually drink per   │    │     │
+│                sitting?                                           │    │     │
+│      ╶────────────────────────────────────────────────────────────┼────┼─────┤
+│       S        18. When you drink ANSWERFROM(QN17R1), about how   │4.71│ 1287│
+│                many ANSWERFROM(QN17R2) do you usually drink per   │    │     │
+│                sitting?                                           │    │     │
+│      ╶────────────────────────────────────────────────────────────┼────┼─────┤
+│       W        18. When you drink ANSWERFROM(QN17R1), about how   │4.69│  955│
+│                many ANSWERFROM(QN17R2) do you usually drink per   │    │     │
+│                sitting?                                           │    │     │
+│      ╶────────────────────────────────────────────────────────────┼────┼─────┤
+│       All      18. When you drink ANSWERFROM(QN17R1), about how   │4.62│ 4218│
+│       regions  many ANSWERFROM(QN17R2) do you usually drink per   │    │     │
+│                sitting?                                           │    │     │
+╰───────────────────────────────────────────────────────────────────┴────┴─────╯
+])
+AT_CLEANUP