139 lines
1.9 KiB
C
139 lines
1.9 KiB
C
#include <criterion/criterion.h>
|
|
#include <criterion/redirect.h>
|
|
|
|
#include "common.h"
|
|
|
|
#include "ast/ast.h"
|
|
#include "eval/evaluator.h"
|
|
#include "parse/parse-jitters.h"
|
|
#include "vm/vm.h"
|
|
|
|
TestSuite(vm, .init = redirect_streams);
|
|
|
|
#define ERR_STRING "Input '%s' = %d, VM got %d\n"
|
|
static void do_compare(const char *input)
|
|
{
|
|
write_to_stdin(input);
|
|
struct ast_node *ast = NULL;
|
|
|
|
cr_assert_eq(yyparse(&ast), 0);
|
|
cr_assert_not_null(ast);
|
|
|
|
int eval = evaluate_ast(ast);
|
|
int vm = bytecompile_eval_ast(ast);
|
|
|
|
cr_expect_eq(eval, vm, ERR_STRING, input, eval, vm);
|
|
|
|
destroy_ast(ast);
|
|
}
|
|
|
|
Test(vm, one)
|
|
{
|
|
do_compare("1");
|
|
}
|
|
|
|
Test(vm, the_answer)
|
|
{
|
|
do_compare("42");
|
|
}
|
|
|
|
Test(vm, int_max)
|
|
{
|
|
do_compare("2147483647");
|
|
}
|
|
|
|
Test(vm, int_max_plus_one)
|
|
{
|
|
do_compare("2147483647 + 1");
|
|
}
|
|
|
|
Test(vm, whitespace)
|
|
{
|
|
do_compare(" 1 ");
|
|
}
|
|
|
|
Test(vm, more_whitespace)
|
|
{
|
|
do_compare(" 1 + 2 ");
|
|
}
|
|
|
|
Test(vm, one_plus_one)
|
|
{
|
|
do_compare("1+1");
|
|
}
|
|
|
|
Test(vm, one_minus_one)
|
|
{
|
|
do_compare("1-1");
|
|
}
|
|
|
|
Test(vm, additions)
|
|
{
|
|
do_compare("1+1+1+1+1");
|
|
}
|
|
|
|
Test(vm, substractions)
|
|
{
|
|
do_compare("1-1-1-1-1");
|
|
}
|
|
|
|
Test(vm, multiplication)
|
|
{
|
|
do_compare("2 * 3");
|
|
}
|
|
|
|
Test(vm, multiplications)
|
|
{
|
|
do_compare("1 * 2 * 3 * 4");
|
|
}
|
|
|
|
Test(vm, division)
|
|
{
|
|
do_compare("12 / 3");
|
|
}
|
|
|
|
Test(vm, divisions)
|
|
{
|
|
do_compare("24 / 4 / 3 / 2");
|
|
}
|
|
|
|
Test(vm, simple_priority)
|
|
{
|
|
do_compare("1 + 2 * 3");
|
|
}
|
|
|
|
Test(vm, more_priorities)
|
|
{
|
|
do_compare("1 + 6 / 3 + 4 * 6 + 14 / 7");
|
|
}
|
|
|
|
Test(vm, simple_parenthesis)
|
|
{
|
|
do_compare("(1 + 2) * 3");
|
|
}
|
|
|
|
Test(vm, more_parenthesis)
|
|
{
|
|
do_compare("(1 + 2) * (3 - 4)");
|
|
}
|
|
|
|
Test(vm, unary_minus)
|
|
{
|
|
do_compare("-1");
|
|
}
|
|
|
|
Test(vm, unary_plus)
|
|
{
|
|
do_compare("+1");
|
|
}
|
|
|
|
Test(vm, unary_torture)
|
|
{
|
|
do_compare("--+++--+-+-+-1");
|
|
}
|
|
|
|
Test(vm, altogether)
|
|
{
|
|
do_compare(" - 3 + - 4 * 8 / 2 + + 3 -- 2 + ((-1) + 1) * 2 ");
|
|
}
|