void testParse() {
VM vm;
{
EXPECT_INT_EQ(vm.parse("1").asInteger(vm), 1);
EXPECT_INT_EQ(vm.parse("42").asInteger(vm), 42);
}
{
EXPECT(vm.parse("#t").asBool(vm) == true);
EXPECT(vm.parse("#f").asBool(vm) == false);
}
{
Value res = vm.parse("a");
EXPECT(res.isSymbol());
}
{
Value res = vm.parse("\"a\"");
EXPECT(res == vm.makeString("a"));
}
{
Value res = vm.parse("(a b)");
Value a = vm.makeSymbol("a");
Value b = vm.makeSymbol("b");
EXPECT(res == vm.makeList(a, b));
}
}
void testSymbols() {
VM vm;
Value a = vm.makeSymbol("a");
Value b = vm.makeSymbol("b");
Value a2 = vm.makeSymbol("a");
Value one = vm.makeInteger(1);
Value two = vm.makeInteger(2);
EXPECT(a == a2);
EXPECT(a != b);
EXPECT(a2 != b);
Value map = vm.makeList(
vm.makeCons(a, one),
vm.makeCons(b, two));
EXPECT_INT_EQ(map_lookup(vm, map, a).asInteger(vm), 1);
EXPECT_INT_EQ(map_lookup(vm, map, b).asInteger(vm), 2);
}
void testEval() {
VM vm;
Value plus = vm.syms.add;
Value add = vm.objs.builtin_add;
Value _if = vm.syms.if_;
Value _true = vm.true_;
Value _false = vm.false_;
Value one = vm.makeInteger(1);
Value two = vm.makeInteger(2);
{
EXPECT_INT_EQ(eval(vm, vm.makeInteger(1), vm.nil).asInteger(vm), 1);
EXPECT_INT_EQ(eval(vm, vm.makeInteger(42), vm.nil).asInteger(vm), 42);
}
{
Value list = vm.makeList(add, one, two);
EXPECT_INT_EQ(eval(vm, list, vm.nil).asInteger(vm), 3);
}
{
Value a = vm.makeSymbol("a");
Value pair = vm.makeCons(a, vm.makeInteger(42));
Value env = vm.makeCons(pair, vm.nil);
EXPECT_INT_EQ(eval(vm, a, env).asInteger(vm), 42);
}
{
Value list = vm.makeList(plus, one, two);
Value pair = vm.makeCons(plus, add);
Value env = vm.makeCons(pair, vm.nil);
EXPECT_INT_EQ(eval(vm, list, env).asInteger(vm), 3);
}
{
Value list = vm.makeList(_if, _true, one, two);
EXPECT_INT_EQ(eval(vm, list, vm.nil).asInteger(vm), 1);
}
{
Value list = vm.makeList(_if, _false, one, two);
EXPECT_INT_EQ(eval(vm, list, vm.nil).asInteger(vm), 2);
}
}
void testSerialize() {
VM vm;
{
Value original = vm.nil;
String serialized = serialize(original);
Value deserialized = deserialize(vm, serialized.text);
EXPECT(deserialized == original);
}
{
Value original = vm.makeInteger(0);
String serialized = serialize(original);
Value deserialized = deserialize(vm, serialized.text);
EXPECT(deserialized == original);
}
{
Value original = vm.makeInteger(1);
String serialized = serialize(original);
Value deserialized = deserialize(vm, serialized.text);
EXPECT(deserialized == original);
}
{
Value a = vm.makeSymbol("some-random-symbol");
Value original = vm.makeList(a,
vm.makeInteger(1),
vm.makeInteger(42),
vm.makeInteger(129),
vm.makeInteger(4),
vm.makeInteger(5));
String serialized = serialize(original);
Value deserialized = deserialize(vm, serialized.text);
EXPECT(deserialized == original);
}
}