koi-vm-ruby 0.0.4

data/test/unit/opcodes/function_operations/call_test.rb

@@ -0,0 +1,39 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class CallTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should pass execution to function and push return position on the return stack" do
+    vm = VM.new
+    vm.data_stack = [[FUNCTION_, 101]]
+    vm.run [
+      CALL
+    ]
+    assert_equal [], vm.data_stack
+    assert_equal [1], vm.return_stack
+    assert_equal 101, vm.instruction_pointer
+    assert_equal 1, vm.level
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        CALL
+      ]
+    end
+  end
+  
+  test "should raise StackError if topmost stack item is not a function" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[INTEGER_, 101]]
+      vm.run [
+        CALL
+      ]
+    end
+  end
+
+  
+end

data/test/unit/opcodes/function_operations/push_function_test.rb

@@ -0,0 +1,41 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class PushFunctionTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should push function reference onto stack" do
+    vm = VM.new
+    vm.run [
+      PUSH_FUNCTION, 1,
+      NO_OP,
+      NO_OP,
+      RETURN,
+      END_FUNCTION, 0,
+      END_FUNCTION, 1
+    ]
+    assert_equal [[FUNCTION_, 2]], vm.data_stack
+    assert_equal 9, vm.instruction_pointer
+  end
+  
+  test "should push function reference onto stack that contains nested function definition" do
+    vm = VM.new
+    vm.run [
+      PUSH_FUNCTION, 6,
+      NO_OP,
+        PUSH_FUNCTION, 2,
+        NO_OP,
+        RETURN,
+        END_FUNCTION, 0,
+        END_FUNCTION, 2,
+      NO_OP,
+      RETURN,
+      END_FUNCTION, 0,
+      END_FUNCTION, 6
+    ]
+    assert_equal [[FUNCTION_, 2]], vm.data_stack
+    assert_equal 17, vm.instruction_pointer
+  end
+  
+    
+end

data/test/unit/opcodes/function_operations/return_test.rb

@@ -0,0 +1,31 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class ReturnTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should pass execution to topmost address on return stack and decrement scope" do
+    vm = VM.new
+    vm.return_stack = [101]
+    assert_equal [101], vm.return_stack
+    vm.level = 1
+    vm.run [
+      RETURN
+    ]
+    assert_equal [], vm.data_stack
+    assert_equal [], vm.return_stack
+    assert_equal 101, vm.instruction_pointer
+    assert_equal 0, vm.level
+  end
+  
+  test "should raise ReturnStackError if there are no items on the return stack" do
+    assert_raises ReturnStackError do
+      vm = VM.new
+      vm.run [
+        RETURN
+      ]
+    end
+  end
+
+  
+end

data/test/unit/opcodes/function_operations/tailcall_test.rb

@@ -0,0 +1,41 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class TailcallTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should pass execution to new function without altering return stack, and reload scope" do
+    vm = VM.new
+    vm.data_stack = [[FUNCTION_, 101]]
+    vm.level = 1
+    vm.return_stack = [1]
+    vm.run [
+      TAILCALL
+    ]
+    assert_equal [], vm.data_stack
+    assert_equal [1], vm.return_stack
+    assert_equal 101, vm.instruction_pointer
+    assert_equal 1, vm.level
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        TAILCALL
+      ]
+    end
+  end
+  
+  test "should raise StackError if topmost stack item is not a function" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[INTEGER_, 101]]
+      vm.run [
+        TAILCALL
+      ]
+    end
+  end
+
+  
+end

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

@@ -0,0 +1,56 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class GetKeyTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should get key in hash" do
+    vm = VM.new
+    vm.data_stack = [[HASH_, {[INTEGER_, 1] => [STRING_, "yay"]}], [INTEGER_, 1]]
+    vm.run [
+      GET_KEY
+    ]
+    assert_equal [[STRING_, "yay"]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should get unset key in hash" do
+    vm = VM.new
+    vm.data_stack = [[HASH_, {}], [INTEGER_, 1]]
+    vm.run [
+      GET_KEY
+    ]
+    assert_equal [[NIL_, nil]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should raise StackError if stack[-2] is not a hash" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[INTEGER_, 1], [INTEGER_, 1]]
+      vm.run [
+        GET_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 [
+        GET_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 [
+        GET_KEY
+      ]
+    end
+  end
+  
+end

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

@@ -0,0 +1,56 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class HasKeyTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should return true as hash has key" do
+    vm = VM.new
+    vm.data_stack = [[HASH_, {[INTEGER_, 1] => [STRING_, "yay"]}], [INTEGER_, 1]]
+    vm.run [
+      HAS_KEY
+    ]
+    assert_equal [[BOOL_, true]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should return false as hash does not have key" do
+    vm = VM.new
+    vm.data_stack = [[HASH_, {}], [INTEGER_, 1]]
+    vm.run [
+      HAS_KEY
+    ]
+    assert_equal [[BOOL_, false]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should raise StackError if stack[-2] is not a hash" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[INTEGER_, 1], [INTEGER_, 1]]
+      vm.run [
+        HAS_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 [
+        HAS_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 [
+        HAS_KEY
+      ]
+    end
+  end
+  
+end

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

@@ -0,0 +1,46 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class LengthTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should return value of highest integer key + 1" do
+    vm = VM.new
+    vm.data_stack = [[HASH_, {[INTEGER_, 1] => [STRING_, "yay"], [INTEGER_, 2] => [STRING_, "yay"], [INTEGER_, 6] => [STRING_, "yay"]}]]
+    vm.run [
+      LENGTH
+    ]
+    assert_equal [[INTEGER_, 7]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should return 0" do
+    vm = VM.new
+    vm.data_stack = [[HASH_, {[STRING_, "1"] => [STRING_, "yay"], [STRING_, "2"] => [STRING_, "yay"], [STRING_, "3"] => [STRING_, "yay"]}]]
+    vm.run [
+      LENGTH
+    ]
+    assert_equal [[INTEGER_, 0]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should raise StackError if stack[-1] is not a hash" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[INTEGER_, 1]]
+      vm.run [
+        LENGTH
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        LENGTH
+      ]
+    end
+  end
+  
+end

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

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

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

@@ -0,0 +1,67 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class PairsTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should return new hash containing all the pairs from the previous hash with numeric indices" do
+    vm = VM.new
+    vm.data_stack = [
+      [HASH_, {
+        [INTEGER_, 1] => [STRING_, "yay"], 
+        [INTEGER_, 2] => [STRING_, "yay"], 
+        [INTEGER_, 6] => [STRING_, "yay"]
+      }]
+    ]
+    vm.run [
+      PAIRS
+    ]
+    assert_equal [
+      [HASH_, {
+        [INTEGER_, 0] => [ HASH_, {
+          [INTEGER_, 0] => [INTEGER_, 1],
+          [INTEGER_, 1] => [STRING_, "yay"]
+        }],
+        [INTEGER_, 1] => [ HASH_, {
+          [INTEGER_, 0] => [INTEGER_, 2],
+          [INTEGER_, 1] => [STRING_, "yay"]
+        }],
+        [INTEGER_, 2] => [ HASH_, {
+          [INTEGER_, 0] => [INTEGER_, 6],
+          [INTEGER_, 1] => [STRING_, "yay"]
+        }]
+      }]
+    ], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should return empty hash" do
+    vm = VM.new
+    vm.data_stack = [[HASH_, {}]]
+    vm.run [
+      PAIRS
+    ]
+    assert_equal [[HASH_, {}]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+  test "should raise StackError if stack[-1] is not a hash" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.data_stack = [[INTEGER_, 1]]
+      vm.run [
+        PAIRS
+      ]
+    end
+  end
+  
+  test "should raise StackError if there are no items on the stack" do
+    assert_raises StackError do
+      vm = VM.new
+      vm.run [
+        PAIRS
+      ]
+    end
+  end
+  
+end

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

@@ -0,0 +1,16 @@
+require File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'test_helper.rb'))
+
+class PushHashTest < Test::Unit::TestCase
+
+  include KoiVMRuby
+  
+  test "should push hash onto stack" do
+    vm = VM.new
+    vm.run [
+      PUSH_HASH
+    ]
+    assert_equal [[HASH_, {}]], vm.data_stack
+    assert_equal 1, vm.instruction_pointer
+  end
+  
+end