koi-vm-ruby 0.0.4

data/test/unit/opcodes/hash_operations/set_key_test.rb

@@ -0,0 +1,56 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class SetKeyTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should set key in hash" do
+    vm = VM.new
+    vm.data_stack = [[HASH_, {}], [INTEGER_, 1], [STRING_, "yay"]]
+    vm.run [
+      SET_KEY
+    ]
+    assert_equal [[HASH_, {[INTEGER_, 1] => [STRING_, "yay"]}]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should raise StackError if stack[-3] is not a hash" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[INTEGER_, 1], [INTEGER_, 1], [STRING_, "yay"]]
+      vm.run [
+        SET_KEY
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are only 2 items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[HASH_, {}], [INTEGER_, 1]]
+      vm.run [
+        SET_KEY
+      ]
+    end
+  end
+  
+  test "should raise StackError if there is only 1 item on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[HASH_, {}]]
+      vm.run [
+        SET_KEY
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        SET_KEY
+      ]
+    end
+  end
+  
+end

data/test/unit/opcodes/io_operations/gets_test.rb

@@ -0,0 +1,38 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class GetsTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  require "stringio"
+  
+  test "should get string from stdin and push it onto stack as a string" do
+    input = "Test"
+    old_stdin = $stdin
+    buffer = StringIO.new
+    $stdin = buffer
+    buffer.string = input
+    vm = VM.new
+    vm.run [
+      GETS
+    ]
+    assert_equal [[STRING_, input]], vm.data_stack
+    $stdin = old_stdin
+  end
+  
+  test "should get newline separated strings from stdin and push onto stack as a string" do
+    input = "Test\nstring"
+    old_stdin = $stdin
+    buffer = StringIO.new
+    $stdin = buffer
+    buffer.string = input
+    vm = VM.new
+    vm.run [
+      GETS,
+      GETS
+    ]
+    assert_equal [[STRING_, "Test\n"], [STRING_, "string"]], vm.data_stack
+    $stdin = old_stdin
+  end
+  
+end

data/test/unit/opcodes/io_operations/print_test.rb

@@ -0,0 +1,42 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class PrintTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  require "stringio"
+  
+  test "should print topmost string value from stack" do
+    old_stdout = $stdout
+    buffer = StringIO.new
+    $stdout = buffer
+    vm = VM.new
+    vm.data_stack = [[STRING_, "test"]]
+    vm.run [
+      PRINT
+    ]
+    assert_equal [], vm.data_stack
+    assert_equal "test", buffer.string
+    $stdout = old_stdout
+  end
+  
+  test "should raise StackError if topmost item is not a string" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[INTEGER_, 1]]
+      vm.run [
+        PRINT
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        PRINT
+      ]
+    end
+  end
+  
+end

data/test/unit/opcodes/math_operations/add_test.rb

@@ -0,0 +1,62 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class AddTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should add top two integers on stack" do
+    vm = VM.new
+    vm.data_stack = [[INTEGER_, 9], [INTEGER_, 9]]
+    vm.run [
+      ADD
+    ]
+    assert_equal [[INTEGER_, 18]], vm.data_stack
+  end
+  
+  test "should add top two floats on stack" do
+    vm = VM.new
+    vm.data_stack = [[FLOAT_, 9.0], [FLOAT_, 9.0]]
+    vm.run [
+      ADD
+    ]
+    assert_equal [[FLOAT_, 18.0]], vm.data_stack
+  end
+  
+  test "should add top two numbers on stack and implicitly convert them to floats" do
+    vm = VM.new
+    vm.data_stack = [[INTEGER_, 9], [FLOAT_, 9.0]]
+    vm.run [
+      ADD
+    ]
+    assert_equal [[FLOAT_, 18.0]], vm.data_stack
+  end
+  
+  test "should add top two numbers on stack and implicitly convert them to floats if receiver is a float" do
+    vm = VM.new
+    vm.data_stack = [[FLOAT_, 9.0], [INTEGER_, 9]]
+    vm.run [
+      ADD
+    ]
+    assert_equal [[FLOAT_, 18.0]], vm.data_stack
+  end
+  
+  test "should raise StackError if there is only one item on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [1]
+      vm.run [
+        ADD
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        ADD
+      ]
+    end
+  end
+  
+end

data/test/unit/opcodes/math_operations/divide_test.rb

@@ -0,0 +1,62 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class DivideTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should divide top two integers on stack" do
+    vm = VM.new
+    vm.data_stack = [[INTEGER_, 10], [INTEGER_, 3]]
+    vm.run [
+      DIVIDE
+    ]
+    assert_equal [[INTEGER_, 3]], vm.data_stack
+  end
+  
+  test "should divide top two floats on stack" do
+    vm = VM.new
+    vm.data_stack = [[FLOAT_, 10.0], [FLOAT_, 3.0]]
+    vm.run [
+      DIVIDE
+    ]
+    assert_equal [[FLOAT_, 10.0 / 3.0]], vm.data_stack
+  end
+  
+  test "should divide top two numbers on stack and implicitly convert them to floats" do
+    vm = VM.new
+    vm.data_stack = [[INTEGER_, 10], [FLOAT_, 3.0]]
+    vm.run [
+      DIVIDE
+    ]
+    assert_equal [[FLOAT_, 10.0 / 3.0]], vm.data_stack
+  end
+  
+  test "should divide top two numbers on stack and implicitly convert them to floats if receiver is a float" do
+    vm = VM.new
+    vm.data_stack = [[FLOAT_, 10.0], [INTEGER_, 3]]
+    vm.run [
+      DIVIDE
+    ]
+    assert_equal [[FLOAT_, 10.0 / 3.0]], vm.data_stack
+  end
+  
+  test "should raise StackError if there is only one item on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [1]
+      vm.run [
+        DIVIDE
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        DIVIDE
+      ]
+    end
+  end
+  
+end

data/test/unit/opcodes/math_operations/multiply_test.rb

@@ -0,0 +1,62 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class MultiplyTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should multiply top two integers on stack" do
+    vm = VM.new
+    vm.data_stack = [[INTEGER_, 5], [INTEGER_, 2]]
+    vm.run [
+      MULTIPLY
+    ]
+    assert_equal [[INTEGER_, 10]], vm.data_stack
+  end
+  
+  test "should multiply top two floats on stack" do
+    vm = VM.new
+    vm.data_stack = [[FLOAT_, 5.0], [FLOAT_, 2.0]]
+    vm.run [
+      MULTIPLY
+    ]
+    assert_equal [[FLOAT_, 10.0]], vm.data_stack
+  end
+  
+  test "should multiply top two numbers on stack and implicitly convert them to floats" do
+    vm = VM.new
+    vm.data_stack = [[INTEGER_, 5], [FLOAT_, 2.0]]
+    vm.run [
+      MULTIPLY
+    ]
+    assert_equal [[FLOAT_, 10.0]], vm.data_stack
+  end
+  
+  test "should multiply top two numbers on stack and implicitly convert them to floats if receiver is a float" do
+    vm = VM.new
+    vm.data_stack = [[FLOAT_, 5.0], [INTEGER_, 2]]
+    vm.run [
+      MULTIPLY
+    ]
+    assert_equal [[FLOAT_, 10.0]], vm.data_stack
+  end
+  
+  test "should raise StackError if there is only one item on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [1]
+      vm.run [
+        MULTIPLY
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        MULTIPLY
+      ]
+    end
+  end
+  
+end

data/test/unit/opcodes/math_operations/subtract_test.rb

@@ -0,0 +1,62 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class SubtractTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should subtract top two integers on stack" do
+    vm = VM.new
+    vm.data_stack = [[INTEGER_, 5], [INTEGER_, 2]]
+    vm.run [
+      SUBTRACT
+    ]
+    assert_equal [[INTEGER_, 3]], vm.data_stack
+  end
+  
+  test "should subtract top two floats on stack" do
+    vm = VM.new
+    vm.data_stack = [[FLOAT_, 5.0], [FLOAT_, 2.0]]
+    vm.run [
+      SUBTRACT
+    ]
+    assert_equal [[FLOAT_, 3.0]], vm.data_stack
+  end
+  
+  test "should subtract top two numbers on stack and implicitly convert them to floats" do
+    vm = VM.new
+    vm.data_stack = [[INTEGER_, 5], [FLOAT_, 2.0]]
+    vm.run [
+      SUBTRACT
+    ]
+    assert_equal [[FLOAT_, 3.0]], vm.data_stack
+  end
+  
+  test "should subtract top two numbers on stack and implicitly convert them to floats if receiver is a float" do
+    vm = VM.new
+    vm.data_stack = [[FLOAT_, 5.0], [INTEGER_, 2]]
+    vm.run [
+      SUBTRACT
+    ]
+    assert_equal [[FLOAT_, 3.0]], vm.data_stack
+  end
+  
+  test "should raise StackError if there is only one item on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [1]
+      vm.run [
+        SUBTRACT
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        SUBTRACT
+      ]
+    end
+  end
+  
+end

data/test/unit/opcodes/push_operations/push_bool_test.rb

@@ -0,0 +1,36 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class PushBoolTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should put true onto stack" do
+    vm = VM.new
+    vm.run [
+      PUSH_BOOL, true
+    ]
+    assert_equal [[BOOL_, true]], vm.data_stack
+    assert_equal 2, vm.instruction_pointer
+  end
+  
+  test "should put false onto stack" do
+    vm = VM.new
+    vm.run [
+      PUSH_BOOL, false
+    ]
+    assert_equal [[BOOL_, false]], vm.data_stack
+    assert_equal 2, vm.instruction_pointer
+  end
+  
+  test "should raise error if operand is not a boolean value" do
+    [1,2.0,"string", [1], {:t=>1}].each do |x|
+      assert_raises OperandError do
+        vm = VM.new
+        vm.run [
+          PUSH_BOOL, x
+        ]
+      end
+    end
+  end
+  
+end

data/test/unit/opcodes/push_operations/push_float_test.rb

@@ -0,0 +1,27 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class PushFloatTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should push float onto stack" do
+    vm = VM.new
+    vm.run [
+      PUSH_FLOAT, 99.9
+    ]
+    assert_equal [[FLOAT_, 99.9]], vm.data_stack
+    assert_equal 2, vm.instruction_pointer
+  end
+  
+  test "should raise error if operand is not a float" do
+    [false, 2, "string", [1], {:t=>1}].each do |x|
+      assert_raises OperandError do
+        vm = VM.new
+        vm.run [
+          PUSH_FLOAT, x
+        ]
+      end
+    end
+  end
+  
+end