fOOrth/integration/object_lib_tests.rb

# coding: utf-8

require_relative '../lib/fOOrth'
require_relative 'support/foorth_testing'
gem              'minitest'
require          'minitest/autorun'
require          'minitest_visible'

#Test the standard fOOrth library.
class ObjectLibraryTester < Minitest::Test

  include XfOOrthTestExtensions

  #Track mini-test progress.
  include MinitestVisible

  def test_that_the_object_class_is_available
    foorth_equal("Object", [Object])
  end

  def test_getting_a_things_name
    foorth_equal("Object .name",      ['Object'])
    foorth_equal("Class  .name",      ['Class'])

    foorth_equal("Object .new .name", ['Object instance'])
    foorth_equal("45          .name", ['Fixnum instance'])
    foorth_equal('"Foobar"    .name', ['String instance'])
  end

  def test_getting_an_object_as_a_string
    foorth_equal("4              .to_s", ['4'])
    foorth_equal("Object         .to_s", ['Object'])
    foorth_equal("VirtualMachine .to_s", ['VirtualMachine'])

    foorth_equal("4              .strlen", [1])
  end

  def test_for_mutable_and_protect
    foorth_equal('"abc"  .mutable?', [false])
    foorth_equal('"abc"  dup .protect .mutable?', [false])
    foorth_equal('"abc"       protect .mutable?', [false])

    foorth_equal('"abc"* .mutable?', [true])
    foorth_equal('"abc"* dup .protect .mutable?', [false])
    foorth_equal('"abc"*      protect .mutable?', [false])
    foorth_raises('"abc"* dup .protect "a" <<', RuntimeError)
    foorth_raises('"abc"*      protect "a" <<', RuntimeError)

    foorth_equal('42     .mutable?', [false])
    foorth_equal('42.5   .mutable?', [false])
    foorth_equal('42/5   .mutable?', [false])
    foorth_equal('42+5i  .mutable?', [false])

    foorth_equal('[ "abc" ] .mutable?', [true])
    foorth_equal('[ "abc" ] dup .protect .mutable?', [false])
    foorth_equal('[ "abc" ]      protect .mutable?', [false])

    foorth_equal('true   .mutable?', [false])
    foorth_equal('false  .mutable?', [false])
    foorth_equal('nil    .mutable?', [false])

    foorth_equal('Object .new dup .protect .mutable?', [false])
    foorth_equal('Object .new      protect .mutable?', [false])
  end

end