# coding: utf-8
# frozen_string_literal: true

require 'test/unit'

require_relative '../lib/core'

class TesttLanguageOperations < Test::Unit::TestCase
  def test_add
    stack = Rpl::Lang::Core.add [{ value: 1, type: :numeric, base: 10 },
                                 { value: 2, type: :numeric, base: 10 }]
    assert_equal [{ value: 3, type: :numeric, base: 10 }],
                 stack

    stack = Rpl::Lang::Core.add [{ value: 1, type: :numeric, base: 10 },
                                 { value: '"a"', type: :string }]
    assert_equal [{ value: '"1a"', type: :string }],
                 stack

    stack = Rpl::Lang::Core.add [{ value: 1, type: :numeric, base: 10 },
                                 { value: "'a'", type: :name }]
    assert_equal [{ value: '"1a"', type: :string }],
                 stack

    stack = Rpl::Lang::Core.add [{ value: "'a'", type: :name },
                                 { value: 1, type: :numeric, base: 10 }]
    assert_equal [{ value: "'a1'", type: :name }],
                 stack

    stack = Rpl::Lang::Core.add [{ value: "'a'", type: :name },
                                 { value: '"b"', type: :string }]
    assert_equal [{ value: "'ab'", type: :name }],
                 stack

    stack = Rpl::Lang::Core.add [{ value: "'a'", type: :name },
                                 { value: "'b'", type: :name }]
    assert_equal [{ value: "'ab'", type: :name }],
                 stack

    stack = Rpl::Lang::Core.add [{ value: '"a"', type: :string },
                                 { value: '"b"', type: :string }]
    assert_equal [{ value: '"ab"', type: :string }],
                 stack

    stack = Rpl::Lang::Core.add [{ value: '"a"', type: :string },
                                 { value: "'b'", type: :name }]
    assert_equal [{ value: '"ab"', type: :string }],
                 stack

    stack = Rpl::Lang::Core.add [{ value: '"a"', type: :string },
                                 { value: 1, type: :numeric, base: 10 }]
    assert_equal [{ value: '"a1"', type: :string }],
                 stack
  end

  def test_subtract
    stack = Rpl::Lang::Core.subtract [{ value: 1, type: :numeric, base: 10 },
                                      { value: 2, type: :numeric, base: 10 }]
    assert_equal [{ value: -1, type: :numeric, base: 10 }],
                 stack

    stack = Rpl::Lang::Core.subtract [{ value: 2, type: :numeric, base: 10 },
                                      { value: 1, type: :numeric, base: 10 }]
    assert_equal [{ value: 1, type: :numeric, base: 10 }],
                 stack
  end

  def test_negate
    stack = Rpl::Lang::Core.negate [{ value: -1, type: :numeric, base: 10 }]

    assert_equal [{ value: 1, type: :numeric, base: 10 }],
                 stack

    stack = Rpl::Lang::Core.negate [{ value: 1, type: :numeric, base: 10 }]

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

  def test_multiply
    stack = Rpl::Lang::Core.multiply [{ value: 3, type: :numeric, base: 10 },
                                      { value: 4, type: :numeric, base: 10 }]
    assert_equal [{ value: 12, type: :numeric, base: 10 }],
                 stack
  end

  def test_divide
    stack = Rpl::Lang::Core.divide [{ value: 3.0, type: :numeric, base: 10 },
                                    { value: 4, type: :numeric, base: 10 }]
    assert_equal [{ value: 0.75, type: :numeric, base: 10 }],
                 stack

    # stack = Rpl::Lang::Core.divide [{ value: 3, type: :numeric, base: 10 },
    #                                       { value: 4, type: :numeric, base: 10 }]
    # assert_equal [{ value: 0.75, type: :numeric, base: 10 }],
    #              stack
  end

  def test_inverse
    stack = Rpl::Lang::Core.inverse [{ value: 4, type: :numeric, base: 10 }]
    assert_equal [{ value: 0.25, type: :numeric, base: 10 }],
                 stack
  end

  def test_power
    stack = Rpl::Lang::Core.power [{ value: 3, type: :numeric, base: 10 },
                                   { value: 4, type: :numeric, base: 10 }]
    assert_equal [{ value: 81, type: :numeric, base: 10 }],
                 stack
  end

  def test_sqrt
    stack = Rpl::Lang::Core.sqrt [{ value: 16, type: :numeric, base: 10 }]
    assert_equal [{ value: 4, type: :numeric, base: 10 }],
                 stack
  end

  def test_sq
    stack = Rpl::Lang::Core.sq [{ value: 4, type: :numeric, base: 10 }]
    assert_equal [{ value: 16, type: :numeric, base: 10 }],
                 stack
  end

  def test_abs
    stack = Rpl::Lang::Core.abs [{ value: -1, type: :numeric, base: 10 }]

    assert_equal [{ value: 1, type: :numeric, base: 10 }],
                 stack

    stack = Rpl::Lang::Core.abs [{ value: 1, type: :numeric, base: 10 }]

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

  def test_dec
    stack = Rpl::Lang::Core.dec [{ value: 1, type: :numeric, base: 16 }]

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

  def test_hex
    stack = Rpl::Lang::Core.hex [{ value: 1, type: :numeric, base: 10 }]

    assert_equal [{ value: 1, type: :numeric, base: 16 }],
                 stack
  end

  def test_bin
    stack = Rpl::Lang::Core.bin [{ value: 1, type: :numeric, base: 10 }]

    assert_equal [{ value: 1, type: :numeric, base: 2 }],
                 stack
  end

  def test_base
    stack = Rpl::Lang::Core.base [{ value: 1, type: :numeric, base: 10 },
                                  { value: 31, type: :numeric, base: 10 }]

    assert_equal [{ value: 1, type: :numeric, base: 31 }],
                 stack
  end

  def test_sign
    stack = Rpl::Lang::Core.sign [{ value: -10, type: :numeric, base: 10 }]

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

    stack = Rpl::Lang::Core.sign [{ value: 10, type: :numeric, base: 10 }]

    assert_equal [{ value: 1, type: :numeric, base: 10 }],
                 stack
    stack = Rpl::Lang::Core.sign [{ value: 0, type: :numeric, base: 10 }]

    assert_equal [{ value: 0, type: :numeric, base: 10 }],
                 stack
  end
end