add interpreter here (moved from debugger)

test/graph_helper.rb

@@ -1,22 +0,0 @@
-require 'gritty'
-
-def dump(obj, name)
-  g = digraph do
-    graph_attribs << 'bgcolor=black'
-
-    node_attribs << 'color=white'
-    node_attribs << 'penwidth=2'
-    node_attribs << 'fontcolor=white'
-    node_attribs << 'labelloc=c'
-    node_attribs << 'fontname="Courier New"'
-    node_attribs << 'fontsize=36'
-
-    edge_attribs << 'color=white'
-    edge_attribs << 'penwidth=2'
-
-    builder = Gritty::NodeBuilder.new self
-    builder.build obj, 'root'
-
-    save name, 'pdf'
-  end
-end

test/interpreter/helper.rb

@@ -0,0 +1,2 @@
+require_relative "../helper"
+require "interpreter/interpreter"

test/interpreter/test_all.rb

@@ -0,0 +1 @@
+require_relative "test_puts"

test/interpreter/test_puts.rb

@@ -0,0 +1,83 @@
+require_relative "helper"
+
+class InterpreterTest < MiniTest::Test
+
+  def setup
+    Virtual.machine.boot
+    code = Ast::ExpressionList.new( [Ast::CallSiteExpression.new(:putstring, [] ,Ast::StringExpression.new("Hello again"))])
+    Virtual::Compiler.compile( code , Virtual.machine.space.get_main )
+    Virtual.machine.run_before "Register::CallImplementation"
+    @interpreter = Interpreter::Interpreter.new
+    @interpreter.start Virtual.machine.init
+  end
+
+  def ticks num
+    last = nil
+    num.times do
+      last = @interpreter.instruction
+      @interpreter.tick
+    end
+    return last
+  end
+  
+  def test_branch
+    was = @interpreter.block
+    assert_equal Register::Branch , ticks(1).class
+    assert was != @interpreter.block
+  end
+  def test_load
+    assert_equal Register::LoadConstant ,  ticks(2).class
+    assert_equal Parfait::Space ,  Virtual.machine.objects[ @interpreter.get_register(:r1)].class
+    assert_equal :r1,  @interpreter.instruction.array.symbol
+  end
+  def test_get
+    assert_equal Register::GetSlot , ticks(3).class
+    assert @interpreter.get_register( :r3 )
+    assert @interpreter.get_register( :r3 ).is_a? Integer
+  end
+  def test_transfer
+    transfer = ticks 5
+    assert_equal Register::RegisterTransfer ,  transfer.class
+    assert_equal @interpreter.get_register(transfer.to) , @interpreter.get_register(transfer.from)
+  end
+  def test_call
+    assert_equal Register::FunctionCall ,  ticks(7).class
+    assert @interpreter.link
+  end
+  def test_save
+    done = ticks(8)
+    assert_equal Register::SaveReturn ,  done.class
+    assert @interpreter.get_register done.register.symbol
+  end
+
+  def test_chain
+    ["Branch" , "LoadConstant" , "GetSlot" , "SetSlot" , "RegisterTransfer" ,
+     "GetSlot" , "FunctionCall" , "SaveReturn" , "LoadConstant"  , "SetSlot" ,
+     "GetSlot" ,  "GetSlot" , "SetSlot" , "LoadConstant" , "SetSlot" ,
+     "RegisterTransfer" ,  "GetSlot" ,  "FunctionCall" , "SaveReturn" , "RegisterTransfer" ,
+     "Syscall" , "RegisterTransfer" , "RegisterTransfer" , "SetSlot" , "GetSlot" ,
+     "GetSlot" , "RegisterTransfer" ,"GetSlot" , "GetSlot","GetSlot",
+     "FunctionReturn" , "RegisterTransfer" , "Syscall" , "NilClass"].each_with_index do |name , index|
+      got = ticks(1)
+      assert got.class.name.index(name) , "Wrong class for #{index+1}, expect #{name} , got #{got}"
+    end
+  end
+
+  def test_putstring
+    done = ticks(21)
+    assert_equal Register::Syscall ,  done.class
+    assert_equal "Hello again" , @interpreter.stdout
+  end
+
+  def test_return
+    done = ticks(31)
+    assert_equal Register::FunctionReturn ,  done.class
+    assert @interpreter.block.is_a?(Virtual::Block)
+    assert @interpreter.instruction.is_a?(Register::Instruction) , "not instruction #{@interpreter.instruction}"
+  end
+
+  def test_exit
+    done = ticks(34)
+    assert_equal NilClass ,  done.class
+  end
+end

test/test_all.rb

@@ -1,8 +1,9 @@
-# All working tests (ahm), still working on the others, so no use to be constantly reminded
+require_relative "compiler/test_all"
+
 require_relative "parfait/test_all"
 
 require_relative "fragments/test_all"
 
 require_relative "virtual/test_all"
 
-require_relative "compiler/test_all"
+require_relative "interpreter/test_all"