92 lines
2.3 KiB
C
92 lines
2.3 KiB
C
#include <stdio.h>
|
|
#include "compile.h"
|
|
#include "parser.tab.h"
|
|
#include "builtin.h"
|
|
#include "jv.h"
|
|
|
|
block compile(const char* str);
|
|
|
|
void jq_init(struct bytecode* bc, jv value);
|
|
jv jq_next();
|
|
void jq_teardown();
|
|
|
|
void run_program(struct bytecode* bc);
|
|
|
|
int skipline(const char* buf) {
|
|
int p = 0;
|
|
while (buf[p] == ' ' || buf[p] == '\t') p++;
|
|
if (buf[p] == '#' || buf[p] == '\n' || buf[p] == 0) return 1;
|
|
return 0;
|
|
}
|
|
|
|
void run_tests() {
|
|
FILE* testdata = fopen("testdata","r");
|
|
char buf[4096];
|
|
int tests = 0, passed = 0;
|
|
|
|
while (1) {
|
|
if (!fgets(buf, sizeof(buf), testdata)) break;
|
|
if (skipline(buf)) continue;
|
|
printf("Testing %s\n", buf);
|
|
int pass = 1;
|
|
block program = compile(buf);
|
|
block_append(&program, gen_op_simple(YIELD));
|
|
block_append(&program, gen_op_simple(BACKTRACK));
|
|
program = gen_cbinding(&builtins, program);
|
|
struct bytecode* bc = block_compile(program);
|
|
block_free(program);
|
|
printf("Disassembly:\n");
|
|
dump_disassembly(2, bc);
|
|
printf("\n");
|
|
fgets(buf, sizeof(buf), testdata);
|
|
jv input = jv_parse(buf);
|
|
jq_init(bc, input);
|
|
|
|
while (fgets(buf, sizeof(buf), testdata)) {
|
|
if (skipline(buf)) break;
|
|
jv expected = jv_parse(buf);
|
|
jv actual = jq_next();
|
|
if (!1) {
|
|
printf("Insufficient results\n");
|
|
pass = 0;
|
|
break;
|
|
} else if (!jv_equal(expected, actual)) {
|
|
printf("Expected ");
|
|
jv_dump(expected);
|
|
printf(", but got ");
|
|
jv_dump(actual);
|
|
printf("\n");
|
|
pass = 0;
|
|
}
|
|
}
|
|
if (pass && 0) { /*
|
|
jv extra = jq_next();
|
|
if (extra) {
|
|
printf("Superfluous result: ");
|
|
json_dumpf(extra, stdout, JSON_ENCODE_ANY);
|
|
printf("\n");
|
|
pass = 0;
|
|
}*/
|
|
}
|
|
jq_teardown();
|
|
bytecode_free(bc);
|
|
tests++;
|
|
passed+=pass;
|
|
}
|
|
fclose(testdata);
|
|
printf("%d of %d tests passed\n", passed,tests);
|
|
}
|
|
|
|
int main(int argc, char* argv[]) {
|
|
if (argc == 1) { run_tests(); return 0; }
|
|
block blk = compile(argv[1]);
|
|
block_append(&blk, block_join(gen_op_simple(YIELD), gen_op_simple(BACKTRACK)));
|
|
blk = gen_cbinding(&builtins, blk);
|
|
struct bytecode* bc = block_compile(blk);
|
|
block_free(blk);
|
|
dump_disassembly(0, bc);
|
|
printf("\n");
|
|
run_program(bc);
|
|
bytecode_free(bc);
|
|
}
|