Testing properly.

This commit is contained in:
C. Guy Yarvin 2014-09-06 21:24:18 -07:00
parent 785f25d7a9
commit 1d1d4fc309

View File

@ -199,9 +199,9 @@ _test_jam(void)
#endif
static void
_test_easy1(void)
_test_easy0(void)
{
u3_noun cor = u3_cke_cue(u3_walk_load("pill/easy1.pill"));
u3_noun cor = u3_cke_cue(u3_walk_load("pill/easy0.pill"));
u3_noun val;
printf("test_easy1: core mug %x\n", u3_cr_mug(cor));
@ -209,6 +209,18 @@ _test_easy1(void)
printf("val %d\n", val);
}
static void
_test_test(void)
{
u3_noun fol = u3_cke_cue(u3_walk_load("pill/test.pill"));
u3_noun val;
printf("test_test: formula mug %x\n", u3_cr_mug(fol));
val = u3_cn_nock_on(u3nc(42, 17), fol);
printf("val %d\n", val);
u3z(val);
}
// A simple memory tester.
//
int c3_cooked() { u3_cm_bail(c3__oops); return 0; }
@ -227,7 +239,8 @@ main(int argc, char *argv[])
{
// _test_hash();
// _test_jam();
_test_easy1();
// _test_easy0();
_test_test();
}
u3_cm_clear();
u3_cm_dump();