:art: Update tests

diff --git a/src/gwion.c b/src/gwion.c
index f37f86a2bbd13026afcadb4f85aeee21c8579e6c..727609c9228685ee093d265c1567e877fa471f39 100644 (file)
--- a/src/gwion.c
+++ b/src/gwion.c
@@ -69,7 +69,7 @@ ANN m_bool gwion_ini(const Gwion gwion, Arg* arg) {
   gwion->env->gwion = gwion;
   gwion->vm->bbq->si = new_soundinfo(gwion->mp);
   gwion->data = new_gwiondata(gwion->mp);
-  gwion->type = (Type*)xmalloc(MAX_TYPE * sizeof(struct Type_*));
+  gwion->type = (Type*)xcalloc(MAX_TYPE, sizeof(struct Type_*));
   pass_default(gwion);
   arg->si = gwion->vm->bbq->si;
   const m_bool ret = arg_parse(gwion, arg);

diff --git a/src/parse/check.c b/src/parse/check.c
index 5003dbd12eda3ba6e50460d7b9279d2746a3860f..26b48600930db9534639ed18d1af53b758ef0bbc 100644 (file)
--- a/src/parse/check.c
+++ b/src/parse/check.c
@@ -938,8 +938,8 @@ ANN Type check_exp(const Env env, const Exp exp) {
   do {
     next = curr->next;
     CHECK_OO((curr->type = check_exp_func[curr->exp_type](env, &curr->d)))
-//    if(isa(curr->type, env->gwion->type[et_varloop]) > 0 && (prev || next))
-//      ERR_O(exp->pos, _("Varloop must be the only expression"))
+    if(env->gwion->type[et_varloop] && isa(curr->type, env->gwion->type[et_varloop]) > 0 && (prev || next))
+      ERR_O(exp->pos, _("Varloop must be the only expression"))
     if(env->func && isa(curr->type, env->gwion->type[et_lambda]) < 0 && isa(curr->type, env->gwion->type[et_function]) > 0 &&
         !GET_FLAG(curr->type->e->d.func, pure))
       UNSET_FLAG(env->func, pure);

diff --git a/tests/sh/opt.sh b/tests/sh/opt.sh
index 63ae7e49306632b724c6b233eb6f88313bd47701..00f57d102be4fe07656cc22936f99036adfb9682 100644 (file)
--- a/tests/sh/opt.sh
+++ b/tests/sh/opt.sh
@@ -1,5 +1,5 @@
 #!/bin/bash
-# [test] #19
+# [test] #20
 
 n=0
 [ "$1" ] && n="$1"
@@ -85,6 +85,10 @@ run "$n" "invalid global type" "examples/complex/invalid_type0.gw examples/compl
 n=$((n+1))
 run "$n" "invalid global func" "examples/complex/invalid_func0.gw examples/complex/invalid_func1.gw" "file"
 
+# comma in module argument
+n=$((n+1))
+run "$n" "comma in module argument" "-mpp=-Dtest='\"dqs\,qs\"',-Dtsdl" "file"
+
 # test signal
 ./gwion -l1 &
 PID=$!