summaryrefslogtreecommitdiffhomepage
path: root/mixlib/testsuite
diff options
context:
space:
mode:
Diffstat (limited to 'mixlib/testsuite')
-rw-r--r--mixlib/testsuite/mix_eval_t.c10
1 files changed, 7 insertions, 3 deletions
diff --git a/mixlib/testsuite/mix_eval_t.c b/mixlib/testsuite/mix_eval_t.c
index e9b53c8..7024fd4 100644
--- a/mixlib/testsuite/mix_eval_t.c
+++ b/mixlib/testsuite/mix_eval_t.c
@@ -1,7 +1,7 @@
/* -*-c-*- -------------- mix_eval_t.c :
* Test of mix_eval_t
* ------------------------------------------------------------------
- * Last change: Time-stamp: "00/12/02 23:18:39 jose"
+ * Last change: Time-stamp: "00/12/03 11:35:33 jose"
* ------------------------------------------------------------------
* Copyright (C) 2000 jose antonio ortega ruiz <jaortega@acm.org>
*
@@ -81,8 +81,8 @@ main(int argc, char **argv)
ok_case ("s1/10+s0", 166),
err_case ("foo", MIX_EVAL_UNDEF_SYM),
err_case ("11--2", MIX_EVAL_SYNTAX),
- err_case ("foo*3", MIX_EVAL_UNDEF_SYM),
- err_case ("32),1", MIX_EVAL_MIS_PAREN),
+ err_case ("s2*foo*3", MIX_EVAL_UNDEF_SYM),
+ err_case ("12/32),1", MIX_EVAL_MIS_PAREN),
err_case ("2000(88)", MIX_EVAL_INV_FSPEC),
ok_case (NULL, 0)
};
@@ -105,6 +105,10 @@ main(int argc, char **argv)
mix_word_print (mix_eval_value (eval), "... ");
g_print ("\n");
g_assert (mix_eval_value (eval) == mix_word_new(cases[k].value));
+ } else {
+ g_print ("\n------->%s, at pos %d\n",
+ mix_eval_last_error_string (eval),
+ mix_eval_last_error_pos (eval));
}
}
mix_eval_delete (eval);