Fixed qualified variable names in function calls

Ticket: ENT-13304
Signed-off-by: Victor Moene <[email protected]>

Author: victormlg

libpromises/cf3lex.l

@@ -107,7 +107,7 @@ promise    promise
 
 nakedvar   [$@][(][a-zA-Z0-9_\[\]\200-\377.:]+[)]|[$@][{][a-zA-Z0-9_\[\]\200-\377.:]+[}]|[$@][(][a-zA-Z0-9_\200-\377.:]+[\[][a-zA-Z0-9_$(){}\200-\377.:]+[\]]+[)]|[$@][{][a-zA-Z0-9_\200-\377.:]+[\[][a-zA-Z0-9_$(){}\200-\377.:]+[\]]+[}]
 
-identifier [a-zA-Z0-9_\200-\377]+
+identifier ([a-zA-Z0-9_\200-\377]+:)?([a-zA-Z0-9_\200-\377]+\.)?[a-zA-Z0-9_\200-\377]+
 
 symbol     [a-zA-Z0-9_\200-\377]+[:][a-zA-Z0-9_\200-\377]+
 

tests/acceptance/01_vars/01_basic/namespaces/unquoted_namespaces.cf

@@ -0,0 +1,100 @@
+body common control
+{
+      inputs => { "../../../default.cf.sub"};
+      bundlesequence => { default("$(this.promise_filename)")  };
+      version => "1.0";
+}
+
+bundle agent init
+{
+  vars:
+    "foo_list"
+      slist => { "1", "2", "3" };
+}
+
+body file control
+{
+  namespace => "new_namespace";
+}
+
+bundle agent check
+{
+  vars:
+    "bar_list"
+      slist => { "1", "2", "3" };
+
+    "unquoted_foo_list1"
+      string => join(", ", foo_list);
+
+    "unquoted_foo_list2"
+      string => join(", ", init.foo_list);
+
+    "unquoted_foo_list3"
+      string => join(", ", default:foo_list);
+
+    "unquoted_foo_list4"
+      string => join(", ", default:init.foo_list);
+
+    "unquoted_bar_list1"
+      string => join(", ", bar_list);
+
+    "unquoted_bar_list2"
+      string => join(", ", check.bar_list);
+
+    "unquoted_bar_list3"
+      string => join(", ", new_namespace:bar_list);
+
+    "unquoted_bar_list4"
+      string => join(", ", new_namespace:check.bar_list);
+
+    "quoted_foo_list1"
+      string => join(", ", foo_list);
+
+    "quoted_foo_list2"
+      string => join(", ", init.foo_list);
+
+    "quoted_foo_list3"
+      string => join(", ", default:foo_list);
+
+    "quoted_foo_list4"
+      string => join(", ", default:init.foo_list);
+
+    "quoted_bar_list1"
+      string => join(", ", bar_list);
+
+    "quoted_bar_list2"
+      string => join(", ", check.bar_list);
+
+    "quoted_bar_list3"
+      string => join(", ", new_namespace:bar_list);
+
+    "quoted_bar_list4"
+      string => join(", ", new_namespace:check.bar_list);
+
+  classes:
+    "undefined_vars"
+      expression => not(or(isvariable("unquoted_foo_list1"),
+                           isvariable("unquoted_foo_list3"),
+                           isvariable("unquoted_bar_list2"),
+                           isvariable("quoted_foo_list1"),
+                           isvariable("quoted_foo_list3"),
+                           isvariable("quoted_bar_list2")));
+
+    "defined_vars"
+      expression => and(strcmp("1, 2, 3", "$(unquoted_foo_list2)"),
+                        strcmp("1, 2, 3", "$(unquoted_foo_list4)"),
+                        strcmp("1, 2, 3", "$(unquoted_bar_list1)"),
+                        strcmp("1, 2, 3", "$(unquoted_bar_list3)"),
+                        strcmp("1, 2, 3", "$(unquoted_bar_list4)"),
+                        strcmp("1, 2, 3", "$(quoted_foo_list2)"),
+                        strcmp("1, 2, 3", "$(quoted_foo_list4)"),
+                        strcmp("1, 2, 3", "$(quoted_bar_list1)"),
+                        strcmp("1, 2, 3", "$(quoted_bar_list3)"),
+                        strcmp("1, 2, 3", "$(quoted_bar_list4)"));
+                    
+  reports:
+    defined_vars.undefined_vars::
+      "$(this.promise_filename) Pass";
+    !defined_vars|!undefined_vars::
+      "$(this.promise_filename) FAIL";
+}