157 lines
4.1 KiB
Ruby
157 lines
4.1 KiB
Ruby
# coding: utf-8
|
|
# frozen_string_literal: true
|
|
|
|
require 'minitest/autorun'
|
|
|
|
require 'rpl'
|
|
|
|
class TestLanguageStack < MiniTest::Test
|
|
include Types
|
|
|
|
def test_swap
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 swap'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 1 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_drop
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 drop'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_drop2
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 drop2'
|
|
|
|
assert_equal [],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_dropn
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 3 4 3 dropn'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_del
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 del'
|
|
|
|
assert_empty interpreter.stack
|
|
end
|
|
|
|
def test_rot
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 3 rot'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 3 ),
|
|
Types.new_object( RplNumeric, 1 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_dup
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 dup'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 2 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_dup2
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 dup2'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_dupn
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 3 4 3 dupn'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 3 ),
|
|
Types.new_object( RplNumeric, 4 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 3 ),
|
|
Types.new_object( RplNumeric, 4 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_pick
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 3 4 3 pick'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 3 ),
|
|
Types.new_object( RplNumeric, 4 ),
|
|
Types.new_object( RplNumeric, 2 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_depth
|
|
interpreter = Rpl.new
|
|
interpreter.run 'depth'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 0 )],
|
|
interpreter.stack
|
|
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 depth'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 2 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_roll
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 3 4 3 roll'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 3 ),
|
|
Types.new_object( RplNumeric, 4 ),
|
|
Types.new_object( RplNumeric, 2 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_rolld
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 4 3 2 rolld'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 3 ),
|
|
Types.new_object( RplNumeric, 4 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_over
|
|
interpreter = Rpl.new
|
|
interpreter.run '1 2 3 4 over'
|
|
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 3 ),
|
|
Types.new_object( RplNumeric, 4 ),
|
|
Types.new_object( RplNumeric, 3 )],
|
|
interpreter.stack
|
|
end
|
|
end
|