unit-test parser ruby spec/parser_spec.rb <-n test_parse_input_word>

spec/parser_spec.rb

@@ -0,0 +1,50 @@
+# coding: utf-8
+require_relative "../lib/parser"
+
+require 'test/unit'
+
+class TestParser < Test::Unit::TestCase
+    def test_parse_input_number
+        result = parse_input( "1" )
+        assert_equal [ { 'value' => 1, 'type' => 'NUMBER' } ], result
+    end
+
+    def test_parse_input_word
+        result = parse_input( "dup" )
+        assert_equal [ { 'value' => "dup", 'type' => 'WORD' } ], result
+    end
+
+    def test_parse_input_string
+        result = parse_input( "\"test\"" )
+        assert_equal [ { 'value' => "test", 'type' => 'STRING' } ], result
+    end
+
+    def test_parse_input_name
+        result = parse_input( "'test'" )
+        assert_equal [ { 'value' => "test", 'type' => 'NAME' } ], result
+    end
+
+    def test_parse_input_program
+        result = parse_input( "« test »" )
+        assert_equal [ { 'value' => "test", 'type' => 'PROGRAM' } ], result
+
+        result = parse_input( "«test »" )
+        assert_equal [ { 'value' => "test", 'type' => 'PROGRAM' } ], result
+
+        result = parse_input( "« test test »" )
+        assert_equal [ { 'value' => "test test", 'type' => 'PROGRAM' } ], result
+
+        result = parse_input( "« test \"test\" test »" )
+        assert_equal [ { 'value' => "test \"test\" test", 'type' => 'PROGRAM' } ], result
+    end
+
+    def test_parse_input_number_number
+        result = parse_input( "2 3" )
+        assert_equal [ { 'value' => 2, 'type' => 'NUMBER' }, { 'value' => 3, 'type' => 'NUMBER' } ], result
+    end
+
+    def test_parse_input_number_string
+        result = parse_input( "4 \"test\"" )
+        assert_equal [ { 'value' => 4, 'type' => 'NUMBER' }, { 'value' => "test", 'type' => 'STRING' } ], result
+    end
+end