add STDIO simulate for test

Author: nefo-mi

test/test_compiler.rb

@@ -145,7 +145,7 @@ def test_numError
     flunk("This test is FAILURE but it's OK")
     msg = "数値は@とaで指定してください(a@aaa)"
     assert_raise_with_message(Typhon::Compiler::ProgramError, msg) do
-      Typhon::Compiler.compile("aaa@aa@aaa\n")
+      Typhon::Compiler.compile("aaa@aa@aaa\t")
     end
   end
 end

test/test_vm.rb

@@ -129,16 +129,21 @@ def test_out
   end
 
   def test_char_in
-    puts "input 'd5'"
-    res = display_capture do
-      Typhon::VM.run([[:push, 1], [:char_in], [:push, 1], [:heap_read], [:char_out], [:exit]])
+    res = nil
+    simulate_keyboard do
+      res = display_capture do
+        Typhon::VM.run([[:push, 1], [:char_in], [:push, 1], [:heap_read], [:char_out], [:exit]])
+      end
     end
     assert_equal(["d"], res)
   end
 
   def test_num_in
-    res = display_capture do
-      Typhon::VM.run([[:push, 1], [:num_in], [:push, 1], [:heap_read], [:num_out], [:exit]])
+    res = nil
+    simulate_keyboard do
+      res = display_capture do
+        Typhon::VM.run([[:push, 1], [:num_in], [:push, 1], [:heap_read], [:num_out], [:exit]])
+      end
     end
     assert_equal([5], res)
   end

test/typhontest.rb

@@ -1,7 +1,7 @@
 require 'test/unit'
 
 module TyphonTest
-    class Display
+  class Display
     attr_accessor :print
 
     def initialize
@@ -12,9 +12,28 @@ def write(msg)
       @print.push(msg)
     end
   end
+
+  class Keyboard
+    def getc
+      c = "d"
+      c[0]
+    end
+
+    def gets
+      5
+    end
+  end
 end
 
 class Test::Unit::TestCase
+  def simulate_keyboard
+    keyboard = TyphonTest::Keyboard.new
+    $stdin = keyboard
+    yield
+    $stdin = STDIN
+    return true
+  end
+
   def display_capture
     disp = TyphonTest::Display.new
     $stdout = disp