# coding: utf-8
# frozen_string_literal: true

require 'test/unit'

require_relative '../interpreter'

class TestLanguageBranch < Test::Unit::TestCase
  def test_loop
    interpreter = Rpl::Interpreter.new
    interpreter.run '11 16 « "hello no." swap + » loop'

    assert_equal [{ value: 'hello no.11', type: :string },
                  { value: 'hello no.12', type: :string },
                  { value: 'hello no.13', type: :string },
                  { value: 'hello no.14', type: :string },
                  { value: 'hello no.15', type: :string },
                  { value: 'hello no.16', type: :string }],
                 interpreter.stack
  end

  def test_times
    interpreter = Rpl::Interpreter.new
    interpreter.run '5 « "hello no." swap + » times'

    assert_equal [{ value: 'hello no.0', type: :string },
                  { value: 'hello no.1', type: :string },
                  { value: 'hello no.2', type: :string },
                  { value: 'hello no.3', type: :string },
                  { value: 'hello no.4', type: :string }],
                 interpreter.stack
  end

  def test_ifte
    interpreter = Rpl::Interpreter.new
    interpreter.run 'true « 2 3 + » « 2 3 - » ifte'

    assert_equal [{ value: 5, type: :numeric, base: 10 }],
                 interpreter.stack

    interpreter = Rpl::Interpreter.new
    interpreter.run 'false « 2 3 + » « 2 3 - » ifte'

    assert_equal [{ value: -1, type: :numeric, base: 10 }],
                 interpreter.stack
  end

  def test_ift
    interpreter = Rpl::Interpreter.new
    interpreter.run 'true « 2 3 + » ift'

    assert_equal [{ value: 5, type: :numeric, base: 10 }],
                 interpreter.stack

    interpreter = Rpl::Interpreter.new
    interpreter.run 'false « 2 3 + » ift'

    assert_equal [],
                 interpreter.stack
  end
end