bit more comparison testing

test/risc/interpreter/conditional/test_if_greater_or.rb

@@ -0,0 +1,36 @@
+require_relative "../helper"
+
+module Risc
+  class InterpreterIfGreaterOr < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main 'if( 5 >= 5 ); return "then";else;return "else";end'
+      super
+    end
+
+    def test_if
+      #show_main_ticks # get output of what is in main
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
+             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             OperatorInstruction, IsMinus, LoadConstant, Branch, Label,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, LoadConstant, OperatorInstruction, IsZero,
+             LoadConstant, OperatorInstruction, IsZero, Label, LoadConstant,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
+      assert_equal Parfait::Word , get_return.class
+      assert_equal "then" , get_return.to_string
+    end
+    def test_exit
+      done = main_ticks(69)
+      assert_equal Syscall ,  done.class
+    end
+  end
+end

test/risc/interpreter/conditional/test_if_smaller_or.rb

@@ -0,0 +1,36 @@
+require_relative "../helper"
+
+module Risc
+  class InterpreterIfSmallerOr < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main 'if( 5 <= 5 ); return "then";else;return "else";end'
+      super
+    end
+
+    def test_if
+      #show_main_ticks # get output of what is in main
+      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
+             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             OperatorInstruction, IsMinus, LoadConstant, Branch, Label,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, LoadConstant, OperatorInstruction, IsZero,
+             LoadConstant, OperatorInstruction, IsZero, Label, LoadConstant,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, FunctionReturn, Transfer, Syscall, NilClass]
+      assert_equal Parfait::Word , get_return.class
+      assert_equal "then" , get_return.to_string
+    end
+    def test_exit
+      done = main_ticks(69)
+      assert_equal Syscall ,  done.class
+    end
+  end
+end

test/risc/interpreter/while/test_while_cmp.rb

@@ -0,0 +1,59 @@
+require_relative "../helper"
+
+module Risc
+  class InterpreterWhileCmp < MiniTest::Test
+    include Ticker
+
+    def setup
+      @string_input = as_main 'a = 0; while( 0 >= a); a = 1 + a;end;return a'
+      super
+    end
+
+    def test_if
+        #show_main_ticks # get output of what is in main
+        check_main_chain [Label, LoadConstant, SlotToReg, RegToSlot, Label,
+             LoadConstant, LoadConstant, SlotToReg, RegToSlot, RegToSlot,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, RegToSlot, SlotToReg, RegToSlot,
+             LoadConstant, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
+             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             OperatorInstruction, IsMinus, LoadConstant, Branch, Label,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, LoadConstant, OperatorInstruction, IsZero,
+             LoadConstant, OperatorInstruction, IsZero, LoadConstant, LoadConstant,
+             SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
+             LoadConstant, FunctionCall, Label, SlotToReg, SlotToReg,
+             SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, LoadConstant,
+             SlotToReg, SlotToReg, RegToSlot, RegToSlot, RegToSlot,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             FunctionReturn, SlotToReg, SlotToReg, RegToSlot, Branch,
+             Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
+             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
+             RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg,
+             SlotToReg, SlotToReg, SlotToReg, RegToSlot, LoadConstant,
+             SlotToReg, RegToSlot, SlotToReg, LoadConstant, FunctionCall,
+             Label, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
+             SlotToReg, OperatorInstruction, IsMinus, Label, LoadConstant,
+             Label, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
+             RegToSlot, SlotToReg, SlotToReg, LoadConstant, OperatorInstruction,
+             IsZero, Label, SlotToReg, SlotToReg, RegToSlot,
+             SlotToReg, SlotToReg, RegToSlot, SlotToReg, SlotToReg,
+             FunctionReturn, Transfer, Syscall, NilClass]
+       assert_kind_of Parfait::Integer , get_return
+       assert_equal 1 , get_return.value
+    end
+    def test_exit
+      done = main_ticks(183)
+      assert_equal Syscall ,  done.class
+    end
+  end
+end

test/risc/mains/test_adds.rb

@@ -18,10 +18,10 @@ HERE
       assert_equal Parfait::Integer , get_return.class
       assert_equal 10 , get_return.value
     end
-    def pest_ruby_subs
+    def test_ruby_subs
       run_input <<HERE
         b = 10
-        while( b > 0 )
+        while( b >= 1 )
           b = b - 1
         end
         return b
@@ -31,7 +31,7 @@ HERE
     end
     def test_ruby_adds_fibo
       run_input <<HERE
-        n=12
+        n = 6
         a = 0
         b = 1
         i = 1
@@ -44,7 +44,7 @@ HERE
       	return result
 HERE
       assert_equal Parfait::Integer , get_return.class
-      assert_equal 144 , get_return.value
+      assert_equal 8 , get_return.value
     end
   end
 end