stepus53/psil
1
0
Fork 0
mirror of https://github.com/usatiuk/psil.git synced 2025-10-29 03:07:49 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

better commands

Browse Source
This commit is contained in:
Stepan Usatiuk
2024-01-03 15:47:37 +01:00
parent 33a9939b37
commit d7805aa7e7
6 changed files with 130 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
test/vm/VMTest.cpp
View File

@@ -1,7 +1,9 @@
#include <gtest/gtest.h>
#include "Command.h"
#include "VM.h"
using namespace Command;
TEST(VMTest, BasicHello) {
std::stringstream ssin;
std::stringstream ssout;
@@ -9,11 +11,11 @@ TEST(VMTest, BasicHello) {
VM vm(ssin, ssout);
Handle newc(Handle::cons(nullptr, nullptr));
newc.append(Handle::makeStrCell("NIL"));
newc.append(Handle::makeStrCell("LDC"));
newc.append(Handle::makeNumCell(NIL));
newc.append(Handle::makeNumCell(LDC));
newc.append(Handle::makeNumCell('h'));
newc.append(Handle::makeStrCell("PUTCHAR"));
newc.append(Handle::makeStrCell("STOP"));
newc.append(Handle::makeNumCell(PUTCHAR));
newc.append(Handle::makeNumCell(STOP));
vm.loadControl(newc);
vm.run();
}