32 lines
808 B
Ruby
32 lines
808 B
Ruby
# frozen_string_literal: true
|
|
|
|
require 'minitest/autorun'
|
|
|
|
require 'rpl'
|
|
|
|
class TestLanguageList < MiniTest::Test
|
|
include Types
|
|
|
|
def test_2list
|
|
interpreter = Rpl.new
|
|
interpreter.run! '1 2 3 dup →list'
|
|
assert_equal [Types.new_object( RplList, '{ 1 2 3 }' )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_from_list
|
|
interpreter = Rpl.new
|
|
interpreter.run! '{ 1 2 3 } list→'
|
|
assert_equal [Types.new_object( RplNumeric, 1 ),
|
|
Types.new_object( RplNumeric, 2 ),
|
|
Types.new_object( RplNumeric, 3 )],
|
|
interpreter.stack
|
|
end
|
|
|
|
def test_dolist
|
|
interpreter = Rpl.new
|
|
interpreter.run! '{ 1 2 3 } « 3 + » dolist'
|
|
assert_equal [Types.new_object( RplList, '{ 4 5 6 }' )],
|
|
interpreter.stack
|
|
end
|
|
end
|