more tests

[pspp] / src / language / expressions / operations.def

diff --git a/src/language/expressions/operations.def b/src/language/expressions/operations.def
index 431a10ca9f1d7115da186dcebc2aae6d622cf6b9..2ba42b7e4af16cb8c38b5a1b7bd98d8273f93178 100644 (file)
--- a/src/language/expressions/operations.def
+++ b/src/language/expressions/operations.def
@@ -796,10 +796,10 @@ absorb_miss string function STRING (x, no_format f)
   return dst;
 }
 
-absorb_miss string function STRUNC (string s, n)
+absorb_miss string function STRUNC (string s, integer n)
 {
-  if (n < 1 || n == SYSMIS)
-    return empty_string;
+  if (n < 1)
+    return n == INT_MIN ? s : empty_string;
 
   if (n < s.length)
     s.length = n;