Add test for PERMISSIONS with bad syntax

diff --git a/src/language/lexer/lexer.c b/src/language/lexer/lexer.c
index 1f455119f00b1779f51787d54dedf4b469c46b1b..08d35d8c00312d98d2baeb7e80ff04141037b9f9 100644 (file)
--- a/src/language/lexer/lexer.c
+++ b/src/language/lexer/lexer.c
@@ -604,9 +604,16 @@ lex_force_match (struct lexer *lexer, enum token_type type)
     }
   else
     {
-      char *s = xasprintf ("`%s'", token_type_to_string (type));
-      lex_error_expecting (lexer, s, NULL_SENTINEL);
-      free (s);
+      const char *type_string = token_type_to_string (type);
+      if (type_string)
+       {
+         char *s = xasprintf ("`%s'", type_string);
+         lex_error_expecting (lexer, s, NULL_SENTINEL);
+         free (s);
+       }
+      else
+       lex_error_expecting (lexer, token_type_to_name (type), NULL_SENTINEL);
+      
       return false;
     }
 }

diff --git a/src/language/utilities/permissions.c b/src/language/utilities/permissions.c
index 904ba95b270e2a7de6c5a22e729f64b8b3247cf1..3f679c150e21968370c2b2d283fcdfb7145f4131 100644 (file)
--- a/src/language/utilities/permissions.c
+++ b/src/language/utilities/permissions.c
@@ -51,9 +51,10 @@ cmd_permissions (struct lexer *lexer, struct dataset *ds UNUSED)
     lex_match (lexer, T_EQUALS);
 
   str = lex_tokcstr (lexer);
-  fn = strdup (str);
+  if (str)
+    fn = strdup (str);
 
-  if (!lex_force_match (lexer, T_STRING))
+  if (!lex_force_match (lexer, T_STRING) || str == NULL)
     goto error;
 
   lex_match (lexer, T_SLASH);

diff --git a/tests/language/utilities/permissions.at b/tests/language/utilities/permissions.at
index 873057c85e2cb4c67ee0e3028942bd85b9037856..56698c337cadf61f8a6303a2f09d8fc93f44fea9 100644 (file)
--- a/tests/language/utilities/permissions.at
+++ b/tests/language/utilities/permissions.at
@@ -23,3 +23,14 @@ AT_CHECK([ls -l foobar], [0], [stdout])
 AT_CHECK([sed 's/^\(..........\).*/\1/' stdout], [0], [-rw-r--r--
 ])
 AT_CLEANUP
+
+
+
+AT_SETUP([PERMISSIONS - bad syntax])
+AT_DATA([pe.sps], [[PERMI|SIONS /FILE='foobar' PERMISSIONS=WRITEABLE.
+]])
+
+AT_CHECK([pspp -O format=csv pe.sps], [1], [dnl
+pe.sps:1.6: error: PERMISSIONS: Syntax error at `|': expecting STRING.
+])
+AT_CLEANUP