putting tests into module

test/register/interpreter/helper.rb

@@ -1,63 +1,65 @@
 require_relative "../helper"
 require "register/interpreter"
 
-module Ticker
-  include AST::Sexp
+module Register
+  module Ticker
+    include AST::Sexp
 
-  def setup
-    Register.machine.boot
-    do_clean_compile
-    Typed.compile( @input )
-    Register::Collector.collect_space
-    @interpreter = Register::Interpreter.new
-    @interpreter.start Register.machine.init
-  end
-
-  # must be after boot, but before main compile, to define method
-  def do_clean_compile
-  end
-
-  def check_chain should
-    should.each_with_index do |name , index|
-      got = ticks(1)
-      assert got.class.name.index(name) , "Wrong class for #{index+1}, expect #{name} , got #{got}"
+    def setup
+      Register.machine.boot
+      do_clean_compile
+      Typed.compile( @input )
+      Register::Collector.collect_space
+      @interpreter = Register::Interpreter.new
+      @interpreter.start Register.machine.init
     end
-  end
 
-  def check_return val
-    assert_equal Parfait::Message , @interpreter.get_register(:r0).class
-    assert_equal val , @interpreter.get_register(:r0).return_value
-  end
-
-  def ticks num
-    last = nil
-    num.times do
-      last = @interpreter.instruction
-      @interpreter.tick
+    # must be after boot, but before main compile, to define method
+    def do_clean_compile
     end
-    return last
-  end
 
-  def show_ticks
-    classes = []
-    tick = 1
-    begin
-      while true and (classes.length < 200)
-        cl = ticks(1).class
-        tick += 1
-        classes << cl
-        break if cl == NilClass
+    def check_chain should
+      should.each_with_index do |name , index|
+        got = ticks(1)
+        assert got.class.name.index(name) , "Wrong class for #{index+1}, expect #{name} , got #{got}"
       end
-    rescue => e
-      puts "Error at tick #{tick}"
-      puts e
-      puts e.backtrace
     end
-    classes = classes.collect {|c| '"' + c.name.sub("Register::","")  + '",' }
-    classes << "length = #{classes.length}"
-    classes.each_slice(5).each do |line|
-      puts "     " + line.join
+
+    def check_return val
+      assert_equal Parfait::Message , @interpreter.get_register(:r0).class
+      assert_equal val , @interpreter.get_register(:r0).return_value
+    end
+
+    def ticks num
+      last = nil
+      num.times do
+        last = @interpreter.instruction
+        @interpreter.tick
+      end
+      return last
+    end
+
+    def show_ticks
+      classes = []
+      tick = 1
+      begin
+        while true and (classes.length < 200)
+          cl = ticks(1).class
+          tick += 1
+          classes << cl
+          break if cl == NilClass
+        end
+      rescue => e
+        puts "Error at tick #{tick}"
+        puts e
+        puts e.backtrace
+      end
+      classes = classes.collect {|c| '"' + c.name.sub("Register::","")  + '",' }
+      classes << "length = #{classes.length}"
+      classes.each_slice(5).each do |line|
+        puts "     " + line.join
+      end
+      exit(1)
     end
-    exit(1)
   end
 end