rename

test/vool/ruby_compiler/test_basic_values.rb

@@ -0,0 +1,77 @@
+require_relative "helper"
+
+module Vool
+  class TestBasicValues < MiniTest::Test
+
+    def test_self
+      lst = RubyCompiler.compile( "self")
+      assert_equal SelfExpression , lst.class
+    end
+    def test_nil
+      lst = RubyCompiler.compile( "nil")
+      assert_equal NilConstant , lst.class
+    end
+    def test_false
+      lst = RubyCompiler.compile( "false")
+      assert_equal FalseConstant , lst.class
+    end
+    def test_true
+      lst = RubyCompiler.compile( "true")
+      assert_equal TrueConstant , lst.class
+    end
+    def test_integer
+      lst = RubyCompiler.compile( "123")
+      assert_equal IntegerConstant , lst.class
+    end
+    def test_string
+      lst = RubyCompiler.compile( "'string'")
+      assert_equal StringConstant , lst.class , lst.inspect
+    end
+    def test_sym
+      lst = RubyCompiler.compile( ":symbol")
+      assert_equal SymbolConstant , lst.class , lst.inspect
+    end
+    def test_dstr
+      assert_raises RuntimeError do
+        RubyCompiler.compile( '"dstr#{self}"')
+      end
+    end
+
+    def test_scope
+      lst = RubyCompiler.compile( "begin ; 1 ; end")
+      assert_equal ScopeStatement , lst.class , lst.inspect
+    end
+    def test_scope_contents
+      lst = RubyCompiler.compile( "begin ; 1 ; end")
+      assert_equal 1 , lst.statements.first.value
+    end
+  end
+  class TestBasicTypes < MiniTest::Test
+    def setup
+      Risc.machine.boot
+    end
+    def compile( input )
+      lst = RubyCompiler.compile( input )
+      lst.ct_type
+    end
+    def test_integer
+      assert_equal "Integer_Type" , compile( "123").name
+    end
+    def test_string
+      assert_equal "Word_Type" , compile( "'string'").name
+    end
+    def test_sym
+      assert_equal "Word_Type" , compile( ":symbol").name
+    end
+    # classes fot these are not implemented in parfait yet
+    # def pest_nil
+    #   assert_equal "Nil_Type" , compile( "nil").name
+    # end
+    # def pest_false
+    #   assert_equal "False_Type" , compile( "false").name
+    # end
+    # def pest_true
+    #   assert_equal "True_Type" , compile( "true").name
+    # end
+  end
+end