tests: Add tests against regression for two previously fixed bugs.

[pspp] / tests / language / dictionary / vector.at

diff --git a/tests/language/dictionary/vector.at b/tests/language/dictionary/vector.at
index e7a2cdd101c7ae7b861595b456235d01fca9c8cd..36aed7a6cba953786ab48ba6928d8e8726655f0e 100644 (file)
--- a/tests/language/dictionary/vector.at
+++ b/tests/language/dictionary/vector.at
@@ -19,7 +19,8 @@ AT_CLEANUP
 AT_SETUP([VECTOR short form with format specification])
 AT_DATA([vector.sps], [dnl
 data list notable/x 1.
-vector #vec(4, comma10.2).
+vector #vec(4, comma10.2)
+      /#svec(3, a8).
 display vector.
 ])
 AT_CHECK([pspp -o pspp.csv vector.sps])
@@ -29,6 +30,9 @@ Vector,Position,Variable,Print Format
 ,2,#vec2,COMMA10.2
 ,3,#vec3,COMMA10.2
 ,4,#vec4,COMMA10.2
+#svec,1,#svec1,A8
+,2,#svec2,A8
+,3,#svec3,A8
 ])
 AT_CLEANUP