Add first instruction test

fraya · May 13, 2024 · d65a85f · d65a85f
1 parent 942dce2
commit d65a85f
Show file tree

Hide file tree

Showing 3 changed files with 33 additions and 3 deletions.
diff --git a/sources/brainfuck.dylan b/sources/brainfuck.dylan
@@ -35,6 +35,7 @@ define inline method program-forth
   interpreter.program-pointer := interpreter.program-pointer + 1
 end;
 
+
 ////////////////////////////////////////////////////////////////////////
 //
 // Execute methods

diff --git a/sources/library.dylan b/sources/library.dylan
@@ -71,6 +71,7 @@ define module brainfuck-impl
   // Memory instructions 
 
   export
+    interpreter-memory,
     <memory-instruction>,
     instruction-amount,
     <memory-data-instruction>,

diff --git a/tests/brainfuck-test-suite.dylan b/tests/brainfuck-test-suite.dylan
@@ -8,6 +8,22 @@ define test test-memory ()
   assert-equal(0, memory.memory-item);
 end;
 
+///////////////////////////////////////////////////////////////////////////////
+//
+// Test instructions
+//
+//////////////////////////////////////////////////////////////////////////////
+
+define test memory-data-increment-test ()
+  let bf = run(read-program("+"));
+  expect-equal(1, bf.program-pointer);
+  expect-equal(1, bf.interpreter-memory.memory-item);
+end test;
+
+define suite instruction-test-suite ()
+  test memory-data-increment-test;
+end suite;
+
 //////////////////////////////////////////////////////////////////////////////
 //
 // Read a program
@@ -27,7 +43,7 @@ end;
 
 //////////////////////////////////////////////////////////////////////////////
 //
-// Reset to zero tests
+// Optimization tests
 //
 //////////////////////////////////////////////////////////////////////////////
 
@@ -57,11 +73,23 @@ define test test-precalculate-jumps ()
   assert-equal(make(<jump-forward>, address: 5), optimized.first); 
 end;
 
-define suite brainfuck-test-suite ()
-  test test-parse-instructions;
+define suite optimization-test-suite ()
   test test-reset-to-zero;
   test test-group-instructions;
   test test-precalculate-jumps;
+end suite;
+
+//////////////////////////////////////////////////////////////////////////////
+//
+// All tests
+//
+//////////////////////////////////////////////////////////////////////////////
+
+
+define suite brainfuck-test-suite ()
+  test test-parse-instructions;
+  suite instruction-test-suite;
+  suite optimization-test-suite;
 end;
 
 // Use `_build/bin/dylan-brainfuck-test-suite --help` to see options.