some binary code tests

test/parfait/test_binary_code.rb

@@ -0,0 +1,51 @@
+require_relative "../helper"
+
+module Parfait
+  class TestBinaryCode < MiniTest::Test
+
+    def setup
+      Risc.machine.boot
+      @code = BinaryCode.new(10)
+    end
+
+    def test_class
+      assert_equal :BinaryCode, @code.get_type.object_class.name
+    end
+    def test_var_names
+      assert_equal List , @code.get_instance_variables.class
+    end
+    def test_var_names_length
+      assert_equal 2 , @code.get_instance_variables.get_length
+    end
+    def test_var_next
+      assert_equal :next , @code.get_instance_variables[2]
+    end
+    def test_next_nil
+      assert_nil @code.next
+    end
+    def test_data_length
+      assert_equal 14 , @code.data_length
+    end
+    def test_byte_length
+      assert_equal 14*4 , @code.byte_length
+    end
+    def test_next_not_nil
+      @code = BinaryCode.new(16)
+      assert @code.next
+      assert_nil @code.next.next
+    end
+    def test_set_char1
+      assert @code.set_char(1 , 1)
+    end
+    def test_set_char55
+      assert @code.set_char(55 , 1)
+    end
+    def test_set_char56_raises
+      assert_raises {@code.set_char(56 , 1)}
+    end
+    def test_set_char56_double
+      @code = BinaryCode.new(16)
+      assert @code.set_char(56 , 1)
+    end
+  end
+end

test/parfait/test_named_list.rb

@@ -1,27 +1,32 @@
 require_relative "../helper"
 
-class TestNamedLists < MiniTest::Test
+module Parfait
+  class TestNamedLists < MiniTest::Test
 
-  def setup
-    Risc.machine.boot
-    @space = Parfait.object_space
-    @named_list = @space.first_message.frame
-    @type = @named_list.get_type
-  end
+    def setup
+      Risc.machine.boot
+      @space = Parfait.object_space
+      @named_list = @space.first_message.frame
+      @type = @named_list.get_type
+    end
 
-  def test_named_list_get_type
-    assert_equal Parfait::Type , @type.class
-    assert @type.names
-    assert @named_list.get_instance_variables
-  end
+    def test_named_list_get_type
+      assert_equal Type , @type.class
+      assert @type.names
+      assert @named_list.get_instance_variables
+    end
 
-  def test_new
-    list = Parfait::NamedList.new
-    assert list.get_type
-  end
-
-  def test_var_names
-    list = Parfait::NamedList.new
-    assert list.get_instance_variables
+    def test_new
+      list = NamedList.new
+      assert list.get_type
+    end
+    def test_var_names
+      list = NamedList.new
+      assert_equal List , list.get_instance_variables.class
+    end
+    def test_var_names_length
+      list = NamedList.new
+      assert_equal 1 , list.get_instance_variables.get_length
+    end
   end
 end