33 lines
1.1 KiB
Ruby
33 lines
1.1 KiB
Ruby
# coding: utf-8
|
|
# frozen_string_literal: true
|
|
|
|
require 'test/unit'
|
|
|
|
require_relative '../lib/core'
|
|
require_relative '../lib/dictionary'
|
|
require_relative '../lib/parser'
|
|
require_relative '../lib/runner'
|
|
|
|
class TestLanguageProgram < Test::Unit::TestCase
|
|
def test_eval
|
|
stack = Rpl::Core.eval( [{ value: '« 2 dup * dup »', type: :program }], Rpl::Dictionary.new )
|
|
|
|
assert_equal [{ value: 4, type: :numeric, base: 10 },
|
|
{ value: 4, type: :numeric, base: 10 }],
|
|
stack
|
|
|
|
stack = Rpl::Core.eval( [{ value: 4, type: :numeric, base: 10 },
|
|
{ value: "'dup'", type: :name }], Rpl::Dictionary.new )
|
|
|
|
assert_equal [{ value: 4, type: :numeric, base: 10 },
|
|
{ value: 4, type: :numeric, base: 10 }],
|
|
stack
|
|
|
|
stack = Rpl::Core.eval( [{ value: 4, type: :numeric, base: 10 },
|
|
{ value: 'dup', type: :word }], Rpl::Dictionary.new )
|
|
|
|
assert_equal [{ value: 4, type: :numeric, base: 10 },
|
|
{ value: 4, type: :numeric, base: 10 }],
|
|
stack
|
|
end
|
|
end
|