add position tests

and refactor padding out

test/risc/test_padding.rb

@@ -1,20 +1,49 @@
 require_relative "../helper"
 
-class TestPadding < MiniTest::Test
+module Risc
+  class TestPadding < MiniTest::Test
 
-  def test_small
-    [6,27,28].each do |p|
-      assert_equal 32 , Padding.padded(p) , "Expecting 32 for #{p}"
+    def setup
+      Risc.machine.boot unless Risc.machine.booted
     end
-  end
-  def test_medium
-    [29,33,40,57,60].each do |p|
-      assert_equal 64 , Padding.padded(p) , "Expecting 64 for #{p}"
+
+    def test_small
+      [6,27,28].each do |p|
+        assert_equal 32 , Padding.padded(p) , "Expecting 32 for #{p}"
+      end
     end
-  end
-  def test_large
-    [61,65,88].each do |p|
-      assert_equal 96 , Padding.padded(p) , "Expecting 96 for #{p}"
+    def test_medium
+      [29,33,40,57,60].each do |p|
+        assert_equal 64 , Padding.padded(p) , "Expecting 64 for #{p}"
+      end
     end
+
+    def test_large
+      [61,65,88].each do |p|
+        assert_equal 96 , Padding.padded(p) , "Expecting 96 for #{p}"
+      end
+    end
+    def test_list1
+      list = Parfait.new_list([1])
+      assert_equal 32 , list.padded_length
+    end
+    def test_list5
+      list = Parfait.new_list([1,2,3,4,5])
+      assert_equal 32 , list.padded_length
+    end
+    def test_type
+      type = Parfait::Type.for_hash Parfait.object_space.get_class_by_name(:Object) , {}
+      type.set_type( type )
+      assert_equal 32 , type.padded_length
+    end
+    def test_word
+      word = Parfait::Word.new(12)
+      assert_equal 32 , word.padded_length
+    end
+    def test_pos_arm
+      mov = Arm::ArmMachine.mov  :r1,  128
+      mov.set_position(0,0)
+    end
+
   end
 end