285 lines
7.5 KiB
Ruby
285 lines
7.5 KiB
Ruby
# coding: utf-8
|
|
# frozen_string_literal: true
|
|
|
|
require 'test/unit'
|
|
|
|
require_relative '../language'
|
|
|
|
class TesttLanguageOperations < Test::Unit::TestCase
|
|
def test_add
|
|
lang = Rpl::Language.new
|
|
lang.run '1 2 +'
|
|
assert_equal [{ value: 3, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '1 "a" +'
|
|
assert_equal [{ value: '1a', type: :string }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '1 \'a\' +'
|
|
assert_equal [{ value: '1a', type: :string }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '1 dup dup →list +'
|
|
assert_equal [{ value: [{ value: 1, type: :numeric, base: 10 },
|
|
{ value: 1, type: :numeric, base: 10 }],
|
|
type: :list }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '"a" "b" +'
|
|
assert_equal [{ value: 'ab', type: :string }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '"a" \'b\' +'
|
|
assert_equal [{ value: 'ab', type: :string }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '"a" 1 +'
|
|
assert_equal [{ value: 'a1', type: :string }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '"a" 1 dup →list +'
|
|
assert_equal [{ value: [{ value: 'a', type: :string },
|
|
{ value: 1, type: :numeric, base: 10 }],
|
|
type: :list }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '\'a\' 1 +'
|
|
assert_equal [{ value: 'a1', type: :name }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '\'a\' "b" +'
|
|
assert_equal [{ value: 'ab', type: :string }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '\'a\' \'b\' +'
|
|
assert_equal [{ value: 'ab', type: :name }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '\'a\' 1 dup →list +'
|
|
assert_equal [{ value: [{ value: 'a', type: :name },
|
|
{ value: 1, type: :numeric, base: 10 }],
|
|
type: :list }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '1 a "test" 3 →list dup rev +'
|
|
assert_equal [{ type: :list,
|
|
value: [{ value: 1, type: :numeric, base: 10 },
|
|
{ type: :name, value: 'a' },
|
|
{ value: 'test', type: :string },
|
|
{ value: 'test', type: :string },
|
|
{ type: :name, value: 'a' },
|
|
{ value: 1, type: :numeric, base: 10 }] }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '1 a "test" 3 →list 9 +'
|
|
assert_equal [{ type: :list,
|
|
value: [{ value: 1, type: :numeric, base: 10 },
|
|
{ type: :name, value: 'a' },
|
|
{ value: 'test', type: :string },
|
|
{ value: 9, type: :numeric, base: 10 }] }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_subtract
|
|
lang = Rpl::Language.new
|
|
lang.run '1 2 -'
|
|
assert_equal [{ value: -1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '2 1 -'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_negate
|
|
lang = Rpl::Language.new
|
|
lang.run '-1 chs'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '1 chs'
|
|
assert_equal [{ value: -1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_multiply
|
|
lang = Rpl::Language.new
|
|
lang.run '3 4 *'
|
|
assert_equal [{ value: 12, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_divide
|
|
lang = Rpl::Language.new
|
|
lang.run '3.0 4 /'
|
|
assert_equal [{ value: 0.75, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_inverse
|
|
lang = Rpl::Language.new
|
|
lang.run '4 inv'
|
|
assert_equal [{ value: 0.25, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_power
|
|
lang = Rpl::Language.new
|
|
lang.run '3 4 ^'
|
|
assert_equal [{ value: 81, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_sqrt
|
|
lang = Rpl::Language.new
|
|
lang.run '16 √'
|
|
assert_equal [{ value: 4, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_sq
|
|
lang = Rpl::Language.new
|
|
lang.run '4 sq'
|
|
assert_equal [{ value: 16, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_abs
|
|
lang = Rpl::Language.new
|
|
lang.run '-1 abs'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '1 abs'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_dec
|
|
lang = Rpl::Language.new
|
|
lang.run '0x1 dec'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_hex
|
|
lang = Rpl::Language.new
|
|
lang.run '1 hex'
|
|
assert_equal [{ value: 1, type: :numeric, base: 16 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_bin
|
|
lang = Rpl::Language.new
|
|
lang.run '1 bin'
|
|
assert_equal [{ value: 1, type: :numeric, base: 2 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_base
|
|
lang = Rpl::Language.new
|
|
lang.run '1 31 base'
|
|
assert_equal [{ value: 1, type: :numeric, base: 31 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_sign
|
|
lang = Rpl::Language.new
|
|
lang.run '-10 sign'
|
|
assert_equal [{ value: -1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '10 sign'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '0 sign'
|
|
assert_equal [{ value: 0, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_percent
|
|
lang = Rpl::Language.new
|
|
lang.run '2 33 %'
|
|
assert_equal [{ value: 0.66, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_inverse_percent
|
|
lang = Rpl::Language.new
|
|
lang.run '2 0.66 %CH'
|
|
assert_equal [{ value: 33, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_mod
|
|
lang = Rpl::Language.new
|
|
lang.run '9 4 mod'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_fact
|
|
lang = Rpl::Language.new
|
|
lang.run '5 !'
|
|
assert_equal [{ value: 24, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_floor
|
|
lang = Rpl::Language.new
|
|
lang.run '5.23 floor'
|
|
assert_equal [{ value: 5, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_ceil
|
|
lang = Rpl::Language.new
|
|
lang.run '5.23 ceil'
|
|
assert_equal [{ value: 6, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_min
|
|
lang = Rpl::Language.new
|
|
lang.run '1 2 min'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '2 1 min'
|
|
assert_equal [{ value: 1, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
|
|
def test_max
|
|
lang = Rpl::Language.new
|
|
lang.run '1 2 max'
|
|
assert_equal [{ value: 2, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
|
|
lang = Rpl::Language.new
|
|
lang.run '2 1 max'
|
|
assert_equal [{ value: 2, type: :numeric, base: 10 }],
|
|
lang.stack
|
|
end
|
|
end
|