fOOrth 0.5.0

data/integration/ctrl_struct_lib_tests.rb

@@ -0,0 +1,80 @@
+# 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 CtrlStructLibraryTester < Minitest::Test
+
+  include XfOOrthTestExtensions
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  def test_if_else_then_constructs
+    foorth_equal('1 if "yay" then', ['yay'])
+    foorth_equal('false if "yay" then', [])
+    foorth_equal('1 if "yay" else "nay" then', ['yay'])
+    foorth_equal('nil if "yay" else "nay" then', ['nay'])
+
+    foorth_raises('false if ."yes" else ."no" else ."NO" then ')
+  end
+
+  def test_switch_constructs
+    foorth_equal('switch 5 end', [5])
+
+    foorth_run(': tsw switch 1 = if "one" break then "other" end ; ')
+
+    foorth_equal(' 1 tsw', ["one"])
+    foorth_equal(' 2 tsw', ["other"])
+  end
+
+  def test_begin_until_contructs
+    foorth_equal('1 begin dup 1 + dup 3 >= until',       [1,2,3])
+    foorth_equal('1 begin dup 1 + dup 3 < while again',  [1,2,3])
+    foorth_equal('1 begin dup 1 + dup 3 < while repeat', [1,2,3])
+  end
+
+  def test_do_loop_contructs
+    foorth_equal('1 4 do  i loop',    [1,2,3])
+    foorth_equal('1 4 do -i loop',    [3,2,1])
+
+    foorth_equal('1 4 do  i 1 +loop', [1,2,3])
+    foorth_equal('1 4 do -i 1 +loop', [3,2,1])
+
+    foorth_equal('1 10 do   i 3 +loop', [1,4,7])
+    foorth_equal('1 10 do  -i 3 +loop', [9,6,3])
+
+    foorth_equal('3 10 do   i 3 +loop', [3,6,9])
+    foorth_equal('3 10 do  -i 3 +loop', [9,6,3])
+
+    foorth_equal('1 4 do 1 3 do  j loop loop', [1,1,2,2,3,3])
+    foorth_equal('1 4 do 1 3 do -j loop loop', [3,3,2,2,1,1])
+
+    foorth_equal('1 4 do 1 3 do i j loop loop', [1,1,2,1,1,2,2,2,1,3,2,3])
+
+    foorth_equal('1 4 do 1 3 do i j * loop loop', [1,2,2,4,3,6])
+
+    foorth_raises('0 10 do  0 +loop')
+    foorth_raises('0 10 do -1 +loop')
+    foorth_raises('0 10 do "apple" +loop')
+  end
+
+  def test_with_constructs
+    foorth_equal('4 .with{{ self 2* }}', [8])
+
+    foorth_run(': twc01 4 .with{{ self 2* }} ;')
+    foorth_equal('twc01', [8])
+  end
+
+  def test_for_unsupported_structures
+    foorth_raises('4 .new{{  }}')
+    foorth_raises('4 .each{{  }}')
+    foorth_raises('4 .map{{  }}')
+    foorth_raises('4 .select{{  }}')
+  end
+
+end

data/integration/data_ref_lib_tests.rb

@@ -0,0 +1,43 @@
+# 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 DataRefLibraryTester < Minitest::Test
+
+  include XfOOrthTestExtensions
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  def test_basic_thread_variables
+    foorth_equal('10 var#: #test1',   [])
+    foorth_equal('#test1 @',          [10])
+    foorth_equal('20 #test1 !',       [])
+    foorth_equal('#test1 @',          [20])
+
+    foorth_equal('10 val#: #test2',   [])
+    foorth_equal('#test2',            [10])
+  end
+
+  def test_thread_vars_some_more
+    foorth_run('42 val#:  #ttvsm ')
+    foorth_output('#ttvsm  .', "42")
+    foorth_output('{{ #ttvsm . }} .call ', "42")
+    foorth_output('{{ #ttvsm . }} .start 0.001 .sleep ', "42")
+  end
+
+  def test_basic_global_variables
+    foorth_equal('10 var$: $test1',   [])
+    foorth_equal('$test1 @',          [10])
+    foorth_equal('20 $test1 !',       [])
+    foorth_equal('$test1 @',          [20])
+
+    foorth_equal('10 val$: $test2',   [])
+    foorth_equal('$test2',            [10])
+  end
+end

data/integration/exception_lib_tests.rb

@@ -0,0 +1,86 @@
+# 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 ExceptionLibraryTester < Minitest::Test
+
+  include XfOOrthTestExtensions
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  def test_for_exception_patches
+    assert_equal("E15: ZeroDivisionError", ZeroDivisionError.new.foorth_message)
+    assert_equal("F123: oops", XfOOrth::XfOOrthError.new("F123: oops").foorth_message)
+    assert_equal("A123: oh oh", XfOOrth::XfOOrthError.new("A123: oh oh").foorth_message)
+
+    assert(ZeroDivisionError.new.foorth_match('E'))
+    assert(ZeroDivisionError.new.foorth_match('E1'))
+    assert(ZeroDivisionError.new.foorth_match('E15'))
+
+    refute(ZeroDivisionError.new.foorth_match('F'))
+    refute(ZeroDivisionError.new.foorth_match('E2'))
+    refute(ZeroDivisionError.new.foorth_match('E12'))
+    refute(ZeroDivisionError.new.foorth_match('E1501'))
+
+    assert_equal("E??:" , Exception.new.foorth_code)
+    assert_equal("E:"   , StandardError.new.foorth_code)
+    assert_equal("E15:" , ZeroDivisionError.new.foorth_code)
+    assert_equal("F12,33:", XfOOrth::XfOOrthError.new("F12,33: oops").foorth_code)
+    assert_equal("A12,93:", XfOOrth::XfOOrthError.new("A12,93: oh oh").foorth_code)
+    assert_equal("E12,E2BIG:", Errno::E2BIG.new.foorth_code)
+    assert_equal("E30:",  SignalException.new("INT").foorth_code)
+    assert_equal("E30,01:",    Interrupt.new.foorth_code)
+  end
+
+  def test_for_try_blocks
+    foorth_equal('try 5 end', [5])
+  end
+
+  def test_for_try_catch
+    foorth_equal('try 5 0 + catch 6 end ', [5])
+    foorth_equal('try 5 0 / catch 6 end ', [6])
+    foorth_equal('try 5 0 / catch error end ', ["E15: divided by 0"])
+  end
+
+  def test_for_exception_methods
+    foorth_equal('try 5 0 / catch ?"E15" if 0 then end ', [0])
+  end
+
+  def test_with_finally
+    foorth_equal('try 5 0 + drop catch finally "apple" end', ["apple"])
+    foorth_equal('try 5 0 / drop catch finally "apple" end', ["apple"])
+  end
+
+  def test_for_bad_constructs_errors
+    foorth_raises('try 5 0 / catch 6 catch ."YA!" end ')
+    foorth_raises('try 5 0 / finally 6 finally ."YA!" end ')
+    foorth_raises('try 5 0 / catch 6 finally error   ."YA!" end ')
+    foorth_raises('try 5 0 / catch 6 finally ?"E150" ."YA!" end ')
+
+  end
+
+  def test_for_error_error
+    foorth_raises('try 5 0 error end')
+  end
+
+  def test_for_error_bouncing
+    foorth_run(': test_bounce try  .ceil catch ?"E15" if "WTF?" else bounce then end ;')
+    foorth_equal('try 1+1i test_bounce catch "Got it!" end', ["Got it!"])
+  end
+
+  def test_raising_an_exception
+    foorth_raises(' "F99  Error!!!" .throw')
+    foorth_raises(' throw"F99  Error!!!" ')
+
+    foorth_equal('try "err msg" .throw catch error end', ["err msg"])
+    foorth_equal('try throw"err msg"   catch error end', ["err msg"])
+
+  end
+
+end

data/integration/fiber_bundle_tests.rb

@@ -0,0 +1,380 @@
+# 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 FiberBundleLibraryTester < Minitest::Test
+
+  include XfOOrthTestExtensions
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  def test_that_the_fiber_classes_exist
+    foorth_equal('Fiber',  [XfOOrth::XfOOrth_Fiber])
+    foorth_equal('Bundle', [XfOOrth::XfOOrth_Bundle])
+    foorth_equal('SyncBundle', [XfOOrth::XfOOrth_SyncBundle])
+  end
+
+  # Fiber tests!
+
+  def test_creating_a_fiber
+    test_code = <<-EOS
+      Fiber .new{{  }} .class .name
+    EOS
+
+    foorth_equal(test_code, ["Fiber"])
+  end
+
+  def test_fiber_processing
+    test_code = <<-EOS
+      // Create a fibonacci fiber.
+      Fiber .new{{ 1 1 11 do i * yield loop .yield }} val$: $fac
+
+      0 10 do $fac .step loop $fac .step
+    EOS
+
+    foorth_equal(test_code, [3628800])
+  end
+
+  def test_fiber_processing_data
+    test_code = <<-EOS
+      // Create a fibonacci fiber.
+      Fiber .new{{ 1 1 begin dup .yield over + swap again }} val$: $fib
+
+      0 8 do $fib .step loop
+    EOS
+
+    foorth_equal(test_code, [1, 1, 2, 3, 5, 8, 13, 21])
+  end
+
+  def test_fiber_processing_overrun
+    test_code = <<-EOS
+      // Create a fiber fiber.
+      Fiber .new{{ 0 5 do i .yield loop }} val$: $ovr
+
+      0 8 do $ovr .step loop
+    EOS
+
+    foorth_raises(test_code)
+  end
+
+  def test_for_fiber_alive_and_status
+    foorth_run('Fiber .new{{ yield }} val$: $alive')
+
+    foorth_equal('$alive .alive?', [true])
+    foorth_equal('$alive .status', ["new"])
+
+    foorth_equal('$alive .step $alive .alive?', [true])
+    foorth_equal('$alive .status', ["alive"])
+
+    foorth_equal('$alive .step $alive .alive?', [false])
+    foorth_equal('$alive .status', ["dead"])
+
+    foorth_raises('$alive .step')
+  end
+
+  def test_for_bad_yield
+    foorth_raises('5 .yield')
+  end
+
+  def test_making_a_fiber_from_a_procedure
+    test_code = <<-EOS
+      // Create a fibonacci fiber.
+      {{ 1 1 begin dup .yield over + swap again }} .to_fiber val$: $fib
+
+      0 8 do $fib .step loop
+    EOS
+
+    foorth_equal(test_code, [1, 1, 2, 3, 5, 8, 13, 21])
+  end
+
+  def test_making_a_fiber_from_not_a_procedure
+    foorth_raises('42 .to_fiber')
+  end
+
+  def test_getting_the_current_fiber
+    foorth_run('Fiber .new{{ Fiber .current .yield }} val$: $current')
+
+    foorth_equal('Fiber .current', [nil])
+
+    symbol = XfOOrth::SymbolMap.map('$current')
+    current = eval "#{'$' + symbol.to_s}"
+
+    foorth_equal('$current .step', [current])
+  end
+
+  def test_converting_a_fiber_to_a_fiber
+    foorth_run('Fiber .new{{  }} val$: $current')
+
+    symbol = XfOOrth::SymbolMap.map('$current')
+    current = eval "#{'$' + symbol.to_s}"
+
+    foorth_equal('$current .to_fiber', [current])
+  end
+
+  #Bundle tests!
+
+  def test_making_a_bundle_of_fibers
+    test_code = <<-EOS
+      // Create a bunch of fibers.
+      [ {{ 1 .yield }} {{ 2 .yield }} {{ 3 .yield }} ] .to_bundle val$: $bundle
+
+      $bundle .run
+    EOS
+
+    foorth_equal(test_code, [1, 2, 3])
+  end
+
+  def test_making_a_bundle_of_one_fiber
+    test_code = <<-EOS
+      // Create a bunch of one fiber.
+      {{ 1 .yield }} .to_bundle val$: $bundle
+
+      $bundle .run
+    EOS
+
+    foorth_equal(test_code, [1])
+  end
+
+  def test_making_a_bundle_of_nested_fibers
+    test_code = <<-EOS
+      // Create a bunch of fibers.
+      [ {{ 2 .yield }} {{ 4 .yield 5 .yield }} ] .to_bundle val$: $sub
+
+      [ {{ 1 .yield }} $sub {{ 3 .yield }} ] .to_bundle val$: $bundle
+
+      $bundle .run
+    EOS
+
+    foorth_equal(test_code, [1, 2, 3, 4, 5])
+  end
+
+  def test_a_bundle_one_step_at_time
+    test_code = <<-EOS
+      // Create a bunch of fibers.
+      [ {{ 2 .yield }} {{ 4 .yield 5 .yield }} ] .to_bundle val$: $sub
+
+      [ {{ 1 .yield }} $sub {{ 3 .yield }} ] .to_bundle val$: $bundle
+    EOS
+
+    foorth_run(test_code)
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [3])
+
+    foorth_equal('$bundle .step', [1])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [3])
+
+    foorth_equal('$bundle .step', [2])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [3])
+
+    foorth_equal('$bundle .step', [3])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [3])
+
+    foorth_equal('$bundle .step', [])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [2])
+
+    foorth_equal('$bundle .step', [4])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [2])
+
+    foorth_equal('$bundle .step', [])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [1])
+
+    foorth_equal('$bundle .step', [])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [1])
+
+    foorth_equal('$bundle .step', [5])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [1])
+
+    foorth_equal('$bundle .step', [])
+    foorth_equal('$bundle .alive?', [false])
+    foorth_equal('$bundle .status', ["dead"])
+    foorth_equal('$bundle .length', [0])
+  end
+
+  def test_converting_a_bundle_to_a_fiber
+    foorth_run('[ {{  }} {{ }} ] .to_bundle val$: $test')
+
+    symbol = XfOOrth::SymbolMap.map('$test')
+    test = eval "#{'$' + symbol.to_s}"
+
+    foorth_equal('$test .to_fiber', [test])
+  end
+
+  def test_converting_a_proc_to_a_bundle
+    foorth_run('{{ }} .to_bundle val$: $test')
+
+    symbol = XfOOrth::SymbolMap.map('$test')
+    test = eval "#{'$' + symbol.to_s}"
+
+    foorth_equal('$test .to_fiber', [test])
+    foorth_equal('$test .alive?',   [true])
+    foorth_equal('$test .length',   [1])
+  end
+
+  def test_adding_fibers_to_a_bundle
+    foorth_run('Bundle .new val$: $add')
+    foorth_equal('{{ }} $add .add $add .length', [1])
+    foorth_equal('{{ }} $add .add $add .length', [2])
+    foorth_equal('{{ }} $add .add $add .length', [3])
+    foorth_equal('{{ }} $add .add $add .length', [4])
+
+    foorth_raises('42 $add .add $add .length')
+  end
+
+  def test_making_a_bundle_of_not_fibers
+    foorth_raises('[ 1 2 3 ] .to_bundle')
+  end
+
+  #Synchronized Bundle tests!
+
+  def test_making_a_sync_bundle_of_fibers
+    test_code = <<-EOS
+      // Create a bunch of fibers.
+      [ {{ 1 .yield }} {{ 2 .yield }} {{ 3 .yield }} ] .to_sync_bundle val$: $bundle
+
+      $bundle .run
+    EOS
+
+    foorth_equal(test_code, [1, 2, 3])
+  end
+
+  def test_making_a_sync_bundle_of_one_fiber
+    test_code = <<-EOS
+      // Create a bunch of one fiber.
+      {{ 1 .yield }} .to_sync_bundle val$: $bundle
+
+      $bundle .run
+    EOS
+
+    foorth_equal(test_code, [1])
+  end
+
+  def test_making_a_sync_bundle_of_nested_fibers
+    test_code = <<-EOS
+      // Create a bunch of fibers.
+      [ {{ 2 .yield }} {{ 4 .yield 5 .yield }} ] .to_bundle val$: $sub
+
+      [ {{ 1 .yield }} $sub {{ 3 .yield }} ] .to_sync_bundle val$: $bundle
+
+      $bundle .run
+    EOS
+
+    foorth_equal(test_code, [1, 2, 3, 4, 5])
+  end
+
+  def test_a_sync_bundle_one_step_at_time
+    test_code = <<-EOS
+      // Create a bunch of fibers.
+      [ {{ 2 .yield }} {{ 4 .yield 5 .yield }} ] .to_bundle val$: $sub
+
+      [ {{ 1 .yield }} $sub {{ 3 .yield }} ] .to_sync_bundle val$: $bundle
+    EOS
+
+    foorth_run(test_code)
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [3])
+
+    foorth_equal('$bundle .step', [1])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [3])
+
+    foorth_equal('$bundle .step', [2])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [3])
+
+    foorth_equal('$bundle .step', [3])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [3])
+
+    foorth_equal('$bundle .step', [])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [2])
+
+    foorth_equal('$bundle .step', [4])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [2])
+
+    foorth_equal('$bundle .step', [])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [1])
+
+    foorth_equal('$bundle .step', [])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [1])
+
+    foorth_equal('$bundle .step', [5])
+    foorth_equal('$bundle .alive?', [true])
+    foorth_equal('$bundle .status', ["alive"])
+    foorth_equal('$bundle .length', [1])
+
+    foorth_equal('$bundle .step', [])
+    foorth_equal('$bundle .alive?', [false])
+    foorth_equal('$bundle .status', ["dead"])
+    foorth_equal('$bundle .length', [0])
+  end
+
+  def test_converting_a_sync_bundle_to_a_fiber
+    foorth_run('[ {{  }} {{ }} ] .to_sync_bundle val$: $test')
+
+    symbol = XfOOrth::SymbolMap.map('$test')
+    test = eval "#{'$' + symbol.to_s}"
+
+    foorth_equal('$test .to_fiber', [test])
+  end
+
+  def test_converting_a_proc_to_a_sync_bundle
+    foorth_run('{{ }} .to_sync_bundle val$: $test')
+
+    symbol = XfOOrth::SymbolMap.map('$test')
+    test = eval "#{'$' + symbol.to_s}"
+
+    foorth_equal('$test .to_fiber', [test])
+    foorth_equal('$test .alive?',   [true])
+    foorth_equal('$test .length',   [1])
+  end
+
+  def test_adding_fibers_to_a_sync_bundle
+    foorth_run('SyncBundle .new val$: $add')
+    foorth_equal('{{ }} $add .add $add .length', [1])
+    foorth_equal('{{ }} $add .add $add .length', [2])
+    foorth_equal('{{ }} $add .add $add .length', [3])
+    foorth_equal('{{ }} $add .add $add .length', [4])
+
+    foorth_raises('42 $add .add $add .length')
+  end
+
+  def test_making_a_sync_bundle_of_not_fibers
+    foorth_raises('[ 1 2 3 ] .to_sync_bundle')
+  end
+
+end