fOOrth 0.6.10 → 0.6.11

checksums.yaml

@@ -1,7 +1,7 @@
 ---
-SHA1:
-  metadata.gz: 4dfd6771eb18fc86592d2a4b33e399645cb650c0
-  data.tar.gz: f77126f64fd1ee6304e353405c161ee872416075
+SHA256:
+  metadata.gz: ce6a84ad49645378ec632ed55e731ff89d113cf22de2517ebef69e87b1e6d01e
+  data.tar.gz: 610a2c6be6d202ca568fc8ff62d338f003fc5c19a63016975892820c0193c580
 SHA512:
-  metadata.gz: d1af30311ef3fd32ab44da18c61aac59b065dd0a9723fa900cd1ef7bb2caaec2ea551cba4f5ca934b2c879660d5bcfaf21515ae1e9b4dbd8e9d879f0e113196a
-  data.tar.gz: a5d9c3c9c6e7374b541f8ed449d1447f7445b05b34b6a2e30f94964ddfa9807817a5f5cb4b7a60a875bcd0dd71293eb97175433dd1f28e0044842643744258f7
+  metadata.gz: 3e9bb940f04ac87128cf57a5f235ddc0ab8210f044be38de9a285312348ebd9a9d41a6732fa0e43b9c509ca7e315b43b0d2a41cde1ce480b8a4ed7170050c1b1
+  data.tar.gz: 594473cca8c187f4fe28aaee1f33ea2d7c713bed1d5a0ef68e5ed8167c3aee36e379311ea258a56c99002c49e1553b6cf9149b0fc498626fc6c474e8c3277108

data/README.md

@@ -71,7 +71,7 @@ This code repo also has PDF formatted guides for major revisions.
 
 ### If you get stuck.
 
-The fOOrth language REPL has several commands inspired by the APL interpreter 
+The fOOrth language REPL has several commands inspired by the APL interpreter
 of the old PDP-10 system I used so many years ago. The commands take the form
 of )command. That's a right paren then the command name. Some useful ones
 to know are:
@@ -87,7 +87,7 @@ to know are:
     )noshow            -- don't do that.
     )version           -- display current language version info.
     )words             -- list all defined method names.
-    
+
 
 ## Contributing
 
@@ -109,3 +109,14 @@ http://nvie.com/posts/a-successful-git-branching-model/
 
 Go to the GitHub repository and raise an issue calling attention to some
 aspect that could use some TLC or a suggestion or an idea.
+
+## License
+
+The gem is available as open source under the terms of the
+[MIT License](./LICENSE.txt).
+
+## Code of Conduct
+
+Everyone interacting in the fully_freeze project’s codebases, issue trackers,
+chat rooms and mailing lists is expected to follow the
+[code of conduct](./CODE_OF_CONDUCT.md).

data/fOOrth.gemspec

@@ -24,8 +24,8 @@ Gem::Specification.new do |spec|
 
   spec.required_ruby_version = '>=1.9.3'
 
-  spec.add_development_dependency "bundler", "~> 1.3"
-  spec.add_development_dependency 'rake'
+  spec.add_development_dependency "bundler", ">= 2.1.0"
+  spec.add_development_dependency "rake", ">= 12.3.3"
   spec.add_development_dependency 'reek', "~> 3.0"
   spec.add_development_dependency 'minitest', "~> 5.7"
   spec.add_development_dependency 'minitest_visible', ">= 0.1.1"

data/integration/array_lib_tests.rb

@@ -359,4 +359,14 @@ class ArrayLibraryTester < Minitest::Test
     foorth_equal('[ 2 4 6 8 ] .keys   ', [[0,1,2,3]])
   end
 
+  def test_array_emptiness
+    foorth_equal('[   ] .empty?',     [true])
+    foorth_equal('[ 1 ] .empty?',     [false])
+
+    foorth_equal('[   ] .present?',   [false])
+    foorth_equal('[ 1 ] .present?',   [true])
+
+    foorth_equal('[ 1 ] dup .clear!', [[]])
+  end
+
 end

data/integration/exception_lib_tests.rb

@@ -83,4 +83,8 @@ class ExceptionLibraryTester < Minitest::Test
 
   end
 
+  def test_a_frozen_exception
+    foorth_equal('try [ 1 ] protect 4 << catch error end', ["E11: can't modify protected Array"])
+  end
+
 end

data/integration/hash_lib_tests.rb

@@ -116,5 +116,14 @@ class HashLibraryTester < Minitest::Test
     foorth_equal('{ 0 2 -> 1 4 -> 2 6 -> 3 8 -> } .select{{ v 2/ 1 and 0= }}', [{1=>4, 3=>8}])
   end
 
+  def test_hash_emptiness
+    foorth_equal('{          } .empty?',     [true])
+    foorth_equal('{ 1 "a" -> } .empty?',     [false])
+
+    foorth_equal('{          } .present?',   [false])
+    foorth_equal('{ 1 "a" -> } .present?',   [true])
+
+    foorth_equal('{ 1 "a" -> } dup .clear!', [{}])
+  end
 
 end

data/integration/numeric_lib_tests.rb

@@ -1,321 +1,326 @@
-# coding: utf-8
-
-require_relative '../lib/fOOrth'
-require_relative 'support/foorth_testing'
-gem              'minitest'
-require          'minitest/autorun'
-require          'minitest_visible'
-
-#Test the standard fOOrth numeric (and related) library.
-class NumericLibraryTester < Minitest::Test
-
-  include XfOOrthTestExtensions
-
-  #Track mini-test progress.
-  include MinitestVisible
-
-  def test_some_conversions
-    foorth_equal('5    .to_n', [5])
-    foorth_equal('5.0  .to_n', [5.0])
-    foorth_equal('5/1  .to_n', ['5/1'.to_r])
-    foorth_equal('5+0i .to_n', [Complex(5,0)])
-    foorth_equal('"xx" .to_n', [nil])
-
-    foorth_equal('5    .to_n!', [5])
-    foorth_equal('5.0  .to_n!', [5.0])
-    foorth_equal('5/1  .to_n!', ['5/1'.to_r])
-    foorth_equal('5+0i .to_n!', [Complex(5,0)])
-    foorth_raises('"xx" .to_n!')
-
-    foorth_equal('5    .to_i', [5])
-    foorth_equal('5.0  .to_i', [5])
-    foorth_equal('5/1  .to_i', [5])
-    foorth_equal('5+0i .to_i', [5])
-
-    foorth_equal('5    .to_i!', [5])
-    foorth_equal('5.0  .to_i!', [5])
-    foorth_equal('5/1  .to_i!', [5])
-    foorth_equal('5+0i .to_i!', [5])
-
-    foorth_equal('"xx" .to_i', [nil])
-    foorth_equal('5+3i .to_i', [nil])
-
-    foorth_raises('"xx" .to_i!')
-    foorth_raises('5+3i .to_i!')
-
-    foorth_equal('"2.0"   .to_f ', [2.0])
-    foorth_equal('"apple" .to_f ', [nil])
-    foorth_equal('"2.0"   .to_f!', [2.0])
-    foorth_raises('"apple" .to_f!')
-
-    foorth_equal('7       .to_r', [Rational(7,1)])
-    foorth_equal('7.0     .to_r', [Rational(7,1)])
-    foorth_equal('1.3     .to_r', [Rational(13,10)])
-    foorth_equal('2.5     .to_r', [Rational(5,2)])
-    foorth_equal('"5/2"   .to_r', [Rational(5,2)])
-    foorth_equal('"apple" .to_r', [nil])
-
-    foorth_equal('7       .to_r!', [Rational(7,1)])
-    foorth_equal('7.0     .to_r!', [Rational(7,1)])
-    foorth_equal('1.3     .to_r!', [Rational(13,10)])
-    foorth_equal('2.5     .to_r!', [Rational(5,2)])
-    foorth_equal('"5/2"   .to_r!', [Rational(5,2)])
-    foorth_raises('"apple" .to_r!')
-
-    foorth_equal('5       .to_x', [Complex(5,0)])
-    foorth_equal('5.2     .to_x', [Complex(5.2,0)])
-    foorth_equal('"5"     .to_x', [Complex(5,0)])
-    foorth_equal('1+2i    .to_x', [Complex(1,2)])
-    foorth_equal('"apple" .to_x', [nil])
-
-    foorth_equal('5       .to_x!', [Complex(5,0)])
-    foorth_equal('5.2     .to_x!', [Complex(5.2,0)])
-    foorth_equal('"5"     .to_x!', [Complex(5,0)])
-    foorth_equal('1+2i    .to_x!', [Complex(1,2)])
-    foorth_raises('"apple" .to_x!')
-
-    foorth_equal('5 .real',          [5])
-    foorth_equal('5 .imaginary',     [0])
-
-    foorth_equal('5+7i .real',       [5])
-    foorth_equal('5+7i .imaginary',  [7])
-
-    foorth_equal('3 .magnitude',     [3])
-    foorth_equal('3 .angle .r2d',    [0])
-    foorth_equal('-3 .angle .r2d',   [180])
-
-    foorth_equal('3+4i .magnitude',  [5])
-    foorth_equal('1+1i .angle .r2d', [45.0])
-
-    foorth_equal('42   .conjugate',  [42])
-    foorth_equal('1+1i .conjugate',  [Complex(1,-1)])
-
-    foorth_equal('1+1i .polar .r2d', [Math.sqrt(2.0), 45.0])
-  end
-
-  def test_some_computations
-    foorth_equal('5 3 +', [8])
-    foorth_equal('5 3 -', [2])
-    foorth_equal('5 3 *', [15])
-    foorth_equal('5 3 /', [1])
-    foorth_equal('5 3 mod', [2])
-    foorth_raises('1+1i 3 mod')
-    foorth_raises('3 1+1i mod')
-
-    foorth_equal('5 "3" +', [8])
-    foorth_equal('5 "3" -', [2])
-    foorth_equal('5 "3" *', [15])
-    foorth_equal('5 "3" /', [1])
-    foorth_equal('5 "3" mod', [2])
-
-    foorth_equal('5  neg', [-5])
-    foorth_equal('0  neg', [0])
-    foorth_equal('-5 neg', [5])
-
-    foorth_equal('5.0  neg', [-5.0])
-    foorth_equal('0.0  neg', [0.0])
-    foorth_equal('-5.0 neg', [5.0])
-
-    foorth_equal('5 3 <<', [40])
-    foorth_equal('40 3 >>', [5])
-
-    foorth_equal('2 10 **', [1024])
-    foorth_equal('2.0 .1/x', [0.5])
-
-    foorth_equal(' 2.0 .abs', [2.0])
-    foorth_equal('-2.0 .abs', [2.0])
-
-    foorth_equal(' 2.0 .ceil', [2])
-    foorth_equal(' 2.1 .ceil', [3])
-    foorth_equal(' 2.9 .ceil', [3])
-    foorth_raises('1+1i .ceil')
-
-    foorth_equal(' 2.0 .floor', [2])
-    foorth_equal(' 2.1 .floor', [2])
-    foorth_equal(' 2.9 .floor', [2])
-    foorth_raises('1+1i .floor')
-
-    foorth_equal(' 2.0 .round', [2])
-    foorth_equal(' 2.1 .round', [2])
-    foorth_equal(' 2.9 .round', [3])
-    foorth_raises('1+1i .round')
-
-    foorth_equal(' 1.5 .numerator',   [3])
-    foorth_equal(' 1.5 .denominator', [2])
-
-    foorth_equal(' 3/2 .numerator',   [3])
-    foorth_equal(' 3/2 .denominator', [2])
-
-  end
-
-  def test_some_bitwise_ops
-    foorth_equal("5 3 and", [1])
-    foorth_equal("5 3 or",  [7])
-    foorth_equal("5 3 xor", [6])
-    foorth_equal("5   com", [-6])
-
-    foorth_equal("5 3 <<", [40])
-    foorth_equal("40 3 >>", [5])
-
-  end
-
-  def test_some_trig
-    foorth_equal("pi",  [Math::PI])
-    foorth_equal("e",   [Math::E])
-    foorth_equal("dpr", [XfOOrth::DegreesPerRadian])
-
-    foorth_equal("45 .d2r dup .sin dup * swap .cos dup * + ",  [1.0])
-
-    foorth_equal("0   .tan       ", [0.0])
-
-    foorth_equal("1   .asin  .r2d", [90.0])
-    foorth_equal("1   .acos  .r2d", [ 0.0])
-    foorth_equal("1   .atan  .r2d", [45.0])
-    foorth_equal("1 1 .atan2 .r2d", [45.0])
-
-    foorth_raises('1+1i .sin')
-    foorth_raises('1+1i .cos')
-    foorth_raises('1+1i .tan')
-    foorth_raises('1+1i .asin')
-    foorth_raises('1+1i .acos')
-    foorth_raises('1+1i .atan')
-    foorth_raises('1+1i 3 .atan2')
-    foorth_raises('1 1+1i .atan2')
-  end
-
-  def test_some_exagerated_trig
-    foorth_equal("0   .sinh      ", [0.0])
-    foorth_equal("0   .cosh      ", [1.0])
-    foorth_equal("0   .tanh      ", [0.0])
-
-    foorth_equal("0   .asinh     ", [0.0])
-    foorth_equal("1   .acosh     ", [0.0])
-    foorth_equal("0   .atanh     ", [0.0])
-
-    foorth_raises('1+1i .sinh')
-    foorth_raises('1+1i .cosh')
-    foorth_raises('1+1i .tanh')
-    foorth_raises('1+1i .asinh')
-    foorth_raises('1+1i .acosh')
-    foorth_raises('1+1i .atanh')
-  end
-
-  def test_some_powers
-    foorth_equal("0    .e**",   [1.0])
-    foorth_equal("1    .ln",    [0.0])
-    foorth_equal("e    .ln",    [1.0])
-
-    foorth_equal("2    .10**",  [100.0])
-    foorth_equal("100  .log10", [2.0])
-
-    foorth_equal("10   .2**",   [1024.0])
-    foorth_equal("1024 .log2",  [10.0])
-
-    foorth_equal("16   .sqr ",  [256])
-    foorth_equal("16.0 .sqr ",  [256.0])
-    foorth_equal("1+1i .sqr ",  [Complex(0,2)])
-    foorth_equal("16   .cube",  [4096])
-    foorth_equal("16.0 .cube",  [4096.0])
-    foorth_equal("1+1i .cube",  [Complex(-2,2)])
-
-    foorth_equal("1024 .sqrt",  [32.0])
-    foorth_equal("0+1i .sqrt",  [Complex(0.7071067811865476, 0.7071067811865475)])
-
-    foorth_equal("8    .cbrt",  [ 2.0])
-    foorth_equal("64   .cbrt",  [ 4.0])
-
-    foorth_equal("3 4  .hypot", [5.0])
-  end
-
-  def test_some_integer_ops
-    foorth_equal("100 64   .gcd",   [4])
-    foorth_equal("100 64   .lcm",   [1600])
-
-    foorth_equal("100      .even?", [true])
-    foorth_equal("101      .even?", [false])
-    foorth_equal("16666600 .even?", [true])
-    foorth_equal("16666601 .even?", [false])
-
-    foorth_equal("100      .odd?",  [false])
-    foorth_equal("101      .odd?",  [true])
-    foorth_equal("16666600 .odd?",  [false])
-    foorth_equal("16666601 .odd?",  [true])
-
-  end
-
-  def test_being_rational
-    foorth_equal("1/2 .split",       [1, 2])
-
-    foorth_equal("1 2 rational",     ['1/2'.to_r])
-    foorth_equal("3.1 4 rational",   ['31/40'.to_r])
-    foorth_equal('"3.1" 4 rational', ['31/40'.to_r])
-    foorth_equal('pi 1 rational',    ['245_850_922/78_256_779'.to_r])
-    foorth_equal('"apple" 4 rational', [nil])
-
-    foorth_equal("1 2 rational!",     ['1/2'.to_r])
-    foorth_equal("3.1 4 rational!",   ['31/40'.to_r])
-    foorth_equal('"3.1" 4 rational!', ['31/40'.to_r])
-    foorth_raises('"apple" 4 rational!')
-    foorth_raises('nil 4 rational!')
-    foorth_raises('false 4 rational!')
-    foorth_raises('true 4 rational!')
-  end
-
-  def test_that_we_do_not_rationalize_too_much
-    foorth_equal('0.01 pi      .rationalize_to', ['22/7'.to_r])
-    foorth_equal('0.001 pi     .rationalize_to', ['201/64'.to_r])
-    foorth_equal('0.0001 pi    .rationalize_to', ['333/106'.to_r])
-    foorth_equal('0.00001 pi   .rationalize_to', ['355/113'.to_r])
-    foorth_equal('0.000001 pi  .rationalize_to', ['355/113'.to_r])
-    foorth_equal('0.0000001 pi .rationalize_to', ['75948/24175'.to_r])
-
-    foorth_equal('0.01 1234/55 .rationalize_to', ['157/7'.to_r])
-
-    foorth_raises('0.01 1+5i .rationalize_to')
-    foorth_raises('0.01 "apple" .rationalize_to')
-  end
-
-  def test_being_complex
-    foorth_equal("1 2 complex", [Complex(1,2)])
-    foorth_equal("1+2i .split",   [1, 2])
-  end
-
-  def test_the_polar_vortex
-    foorth_equal("1  1 .c2p .r2d", [Math::sqrt(2.0), 45.0])
-    #foorth_equal("2.0 .sqrt 45 .d2r .p2c", [1.0, 1.0])
-  end
-
-  def test_short_cut_methods
-    foorth_equal('10   1+' , [11])
-    foorth_equal('10   1-' , [9])
-
-    foorth_equal('10   2+' , [12])
-    foorth_equal('10   2-' , [8])
-
-    foorth_equal('10   2*' , [20])
-    foorth_equal('10   2/' , [5])
-
-    foorth_equal('10.0 1+' , [11.0])
-    foorth_equal('10.0 1-' , [9.0])
-
-    foorth_equal('10.0 2+' , [12.0])
-    foorth_equal('10.0 2-' , [8.0])
-
-    foorth_equal('10.0 2*' , [20.0])
-    foorth_equal('10.0 2/' , [5.0])
-  end
-
-  def test_some_complex_conversions
-    foorth_equal('4 5 complex', [Complex(4,5)])
-    foorth_raises('"apple" 5 complex')
-  end
-
-  def test_some_rounding
-    foorth_equal('2 pi .round_to', [3.14])
-
-    foorth_raises('2 "apple" .round_to')
-    foorth_raises('"apple"  pi .round_to')
-  end
-
-
-end
+# coding: utf-8
+
+require_relative '../lib/fOOrth'
+require_relative 'support/foorth_testing'
+gem              'minitest'
+require          'minitest/autorun'
+require          'minitest_visible'
+
+#Test the standard fOOrth numeric (and related) library.
+class NumericLibraryTester < Minitest::Test
+
+  include XfOOrthTestExtensions
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  def test_some_conversions
+    foorth_equal('5    .to_n', [5])
+    foorth_equal('5.0  .to_n', [5.0])
+    foorth_equal('5/1  .to_n', ['5/1'.to_r])
+    foorth_equal('5+0i .to_n', [Complex(5,0)])
+    foorth_equal('"xx" .to_n', [nil])
+
+    foorth_equal('5    .to_n!', [5])
+    foorth_equal('5.0  .to_n!', [5.0])
+    foorth_equal('5/1  .to_n!', ['5/1'.to_r])
+    foorth_equal('5+0i .to_n!', [Complex(5,0)])
+    foorth_raises('"xx" .to_n!')
+
+    foorth_equal('5    .to_i', [5])
+    foorth_equal('5.0  .to_i', [5])
+    foorth_equal('5/1  .to_i', [5])
+    foorth_equal('5+0i .to_i', [5])
+
+    foorth_equal('5    .to_i!', [5])
+    foorth_equal('5.0  .to_i!', [5])
+    foorth_equal('5/1  .to_i!', [5])
+    foorth_equal('5+0i .to_i!', [5])
+
+    foorth_equal('"xx" .to_i', [nil])
+    foorth_equal('5+3i .to_i', [nil])
+
+    foorth_raises('"xx" .to_i!')
+    foorth_raises('5+3i .to_i!')
+
+    foorth_equal('"2.0"   .to_f ', [2.0])
+    foorth_equal('"apple" .to_f ', [nil])
+    foorth_equal('"2.0"   .to_f!', [2.0])
+    foorth_raises('"apple" .to_f!')
+
+    foorth_equal('7       .to_r', [Rational(7,1)])
+    foorth_equal('7.0     .to_r', [Rational(7,1)])
+    foorth_equal('1.3     .to_r', [Rational(13,10)])
+    foorth_equal('2.5     .to_r', [Rational(5,2)])
+    foorth_equal('"5/2"   .to_r', [Rational(5,2)])
+    foorth_equal('"apple" .to_r', [nil])
+
+    foorth_equal('7       .to_r!', [Rational(7,1)])
+    foorth_equal('7.0     .to_r!', [Rational(7,1)])
+    foorth_equal('1.3     .to_r!', [Rational(13,10)])
+    foorth_equal('2.5     .to_r!', [Rational(5,2)])
+    foorth_equal('"5/2"   .to_r!', [Rational(5,2)])
+    foorth_raises('"apple" .to_r!')
+
+    foorth_equal('5       .to_x', [Complex(5,0)])
+    foorth_equal('5.2     .to_x', [Complex(5.2,0)])
+    foorth_equal('"5"     .to_x', [Complex(5,0)])
+    foorth_equal('1+2i    .to_x', [Complex(1,2)])
+    foorth_equal('"apple" .to_x', [nil])
+
+    foorth_equal('5       .to_x!', [Complex(5,0)])
+    foorth_equal('5.2     .to_x!', [Complex(5.2,0)])
+    foorth_equal('"5"     .to_x!', [Complex(5,0)])
+    foorth_equal('1+2i    .to_x!', [Complex(1,2)])
+    foorth_raises('"apple" .to_x!')
+
+    foorth_equal('5 .real',          [5])
+    foorth_equal('5 .imaginary',     [0])
+
+    foorth_equal('5+7i .real',       [5])
+    foorth_equal('5+7i .imaginary',  [7])
+
+    foorth_equal('3 .magnitude',     [3])
+    foorth_equal('3 .angle .r2d',    [0])
+    foorth_equal('-3 .angle .r2d',   [180])
+
+    foorth_equal('3+4i .magnitude',  [5])
+    foorth_equal('1+1i .angle .r2d', [45.0])
+
+    foorth_equal('42   .conjugate',  [42])
+    foorth_equal('1+1i .conjugate',  [Complex(1,-1)])
+
+    foorth_equal('1+1i .polar .r2d', [Math.sqrt(2.0), 45.0])
+  end
+
+  def test_some_computations
+    foorth_equal('5 3 +', [8])
+    foorth_equal('5 3 -', [2])
+    foorth_equal('5 3 *', [15])
+    foorth_equal('5 3 /', [1])
+    foorth_equal('5 3 mod', [2])
+    foorth_raises('1+1i 3 mod')
+    foorth_raises('3 1+1i mod')
+
+    foorth_equal('5 "3" +', [8])
+    foorth_equal('5 "3" -', [2])
+    foorth_equal('5 "3" *', [15])
+    foorth_equal('5 "3" /', [1])
+    foorth_equal('5 "3" mod', [2])
+
+    foorth_equal('5  neg', [-5])
+    foorth_equal('0  neg', [0])
+    foorth_equal('-5 neg', [5])
+
+    foorth_equal('5.0  neg', [-5.0])
+    foorth_equal('0.0  neg', [0.0])
+    foorth_equal('-5.0 neg', [5.0])
+
+    foorth_equal('5 3 <<', [40])
+    foorth_equal('40 3 >>', [5])
+
+    foorth_equal('2 10 **', [1024])
+    foorth_equal('2.0 .1/x', [0.5])
+
+    foorth_equal(' 2.0 .abs', [2.0])
+    foorth_equal('-2.0 .abs', [2.0])
+
+    foorth_equal(' 2.0 .ceil', [2])
+    foorth_equal(' 2.1 .ceil', [3])
+    foorth_equal(' 2.9 .ceil', [3])
+    foorth_raises('1+1i .ceil')
+
+    foorth_equal(' 2.0 .floor', [2])
+    foorth_equal(' 2.1 .floor', [2])
+    foorth_equal(' 2.9 .floor', [2])
+    foorth_raises('1+1i .floor')
+
+    foorth_equal(' 2.0 .round', [2])
+    foorth_equal(' 2.1 .round', [2])
+    foorth_equal(' 2.9 .round', [3])
+    foorth_raises('1+1i .round')
+
+    foorth_equal(' 1.5 .numerator',   [3])
+    foorth_equal(' 1.5 .denominator', [2])
+
+    foorth_equal(' 3/2 .numerator',   [3])
+    foorth_equal(' 3/2 .denominator', [2])
+
+    foorth_equal(' 0.1 .numerator',   [1])
+    foorth_equal(' 0.1 .denominator', [10])
+
+    foorth_raises(' 1+1i .numerator')
+    foorth_raises(' 1+1i .denominator')
+  end
+
+  def test_some_bitwise_ops
+    foorth_equal("5 3 and", [1])
+    foorth_equal("5 3 or",  [7])
+    foorth_equal("5 3 xor", [6])
+    foorth_equal("5   com", [-6])
+
+    foorth_equal("5 3 <<", [40])
+    foorth_equal("40 3 >>", [5])
+
+  end
+
+  def test_some_trig
+    foorth_equal("pi",  [Math::PI])
+    foorth_equal("e",   [Math::E])
+    foorth_equal("dpr", [XfOOrth::DegreesPerRadian])
+
+    foorth_equal("45 .d2r dup .sin dup * swap .cos dup * + ",  [1.0])
+
+    foorth_equal("0   .tan       ", [0.0])
+
+    foorth_equal("1   .asin  .r2d", [90.0])
+    foorth_equal("1   .acos  .r2d", [ 0.0])
+    foorth_equal("1   .atan  .r2d", [45.0])
+    foorth_equal("1 1 .atan2 .r2d", [45.0])
+
+    foorth_raises('1+1i .sin')
+    foorth_raises('1+1i .cos')
+    foorth_raises('1+1i .tan')
+    foorth_raises('1+1i .asin')
+    foorth_raises('1+1i .acos')
+    foorth_raises('1+1i .atan')
+    foorth_raises('1+1i 3 .atan2')
+    foorth_raises('1 1+1i .atan2')
+  end
+
+  def test_some_exagerated_trig
+    foorth_equal("0   .sinh      ", [0.0])
+    foorth_equal("0   .cosh      ", [1.0])
+    foorth_equal("0   .tanh      ", [0.0])
+
+    foorth_equal("0   .asinh     ", [0.0])
+    foorth_equal("1   .acosh     ", [0.0])
+    foorth_equal("0   .atanh     ", [0.0])
+
+    foorth_raises('1+1i .sinh')
+    foorth_raises('1+1i .cosh')
+    foorth_raises('1+1i .tanh')
+    foorth_raises('1+1i .asinh')
+    foorth_raises('1+1i .acosh')
+    foorth_raises('1+1i .atanh')
+  end
+
+  def test_some_powers
+    foorth_equal("0    .e**",   [1.0])
+    foorth_equal("1    .ln",    [0.0])
+    foorth_equal("e    .ln",    [1.0])
+
+    foorth_equal("2    .10**",  [100.0])
+    foorth_equal("100  .log10", [2.0])
+
+    foorth_equal("10   .2**",   [1024.0])
+    foorth_equal("1024 .log2",  [10.0])
+
+    foorth_equal("16   .sqr ",  [256])
+    foorth_equal("16.0 .sqr ",  [256.0])
+    foorth_equal("1+1i .sqr ",  [Complex(0,2)])
+    foorth_equal("16   .cube",  [4096])
+    foorth_equal("16.0 .cube",  [4096.0])
+    foorth_equal("1+1i .cube",  [Complex(-2,2)])
+
+    foorth_equal("1024 .sqrt",  [32.0])
+    foorth_equal("0+1i .sqrt",  [Complex(0.7071067811865476, 0.7071067811865475)])
+
+    foorth_equal("8    .cbrt",  [ 2.0])
+    foorth_equal("64   .cbrt",  [ 4.0])
+
+    foorth_equal("3 4  .hypot", [5.0])
+  end
+
+  def test_some_integer_ops
+    foorth_equal("100 64   .gcd",   [4])
+    foorth_equal("100 64   .lcm",   [1600])
+
+    foorth_equal("100      .even?", [true])
+    foorth_equal("101      .even?", [false])
+    foorth_equal("16666600 .even?", [true])
+    foorth_equal("16666601 .even?", [false])
+
+    foorth_equal("100      .odd?",  [false])
+    foorth_equal("101      .odd?",  [true])
+    foorth_equal("16666600 .odd?",  [false])
+    foorth_equal("16666601 .odd?",  [true])
+
+  end
+
+  def test_being_rational
+    foorth_equal("1/2 .split",       [1, 2])
+
+    foorth_equal("1 2 rational",     ['1/2'.to_r])
+    foorth_equal("3.1 4 rational",   ['31/40'.to_r])
+    foorth_equal('"3.1" 4 rational', ['31/40'.to_r])
+    foorth_equal('pi 1 rational',    ['245_850_922/78_256_779'.to_r])
+    foorth_equal('"apple" 4 rational', [nil])
+
+    foorth_equal("1 2 rational!",     ['1/2'.to_r])
+    foorth_equal("3.1 4 rational!",   ['31/40'.to_r])
+    foorth_equal('"3.1" 4 rational!', ['31/40'.to_r])
+    foorth_raises('"apple" 4 rational!')
+    foorth_raises('nil 4 rational!')
+    foorth_raises('false 4 rational!')
+    foorth_raises('true 4 rational!')
+  end
+
+  def test_that_we_do_not_rationalize_too_much
+    foorth_equal('0.01 pi      .rationalize_to', ['22/7'.to_r])
+    foorth_equal('0.001 pi     .rationalize_to', ['201/64'.to_r])
+    foorth_equal('0.0001 pi    .rationalize_to', ['333/106'.to_r])
+    foorth_equal('0.00001 pi   .rationalize_to', ['355/113'.to_r])
+    foorth_equal('0.000001 pi  .rationalize_to', ['355/113'.to_r])
+    foorth_equal('0.0000001 pi .rationalize_to', ['75948/24175'.to_r])
+
+    foorth_equal('0.01 1234/55 .rationalize_to', ['157/7'.to_r])
+
+    foorth_raises('0.01 1+5i .rationalize_to')
+    foorth_raises('0.01 "apple" .rationalize_to')
+  end
+
+  def test_being_complex
+    foorth_equal("1 2 complex", [Complex(1,2)])
+    foorth_equal("1+2i .split",   [1, 2])
+  end
+
+  def test_the_polar_vortex
+    foorth_equal("1  1 .c2p .r2d", [Math::sqrt(2.0), 45.0])
+    #foorth_equal("2.0 .sqrt 45 .d2r .p2c", [1.0, 1.0])
+  end
+
+  def test_short_cut_methods
+    foorth_equal('10   1+' , [11])
+    foorth_equal('10   1-' , [9])
+
+    foorth_equal('10   2+' , [12])
+    foorth_equal('10   2-' , [8])
+
+    foorth_equal('10   2*' , [20])
+    foorth_equal('10   2/' , [5])
+
+    foorth_equal('10.0 1+' , [11.0])
+    foorth_equal('10.0 1-' , [9.0])
+
+    foorth_equal('10.0 2+' , [12.0])
+    foorth_equal('10.0 2-' , [8.0])
+
+    foorth_equal('10.0 2*' , [20.0])
+    foorth_equal('10.0 2/' , [5.0])
+  end
+
+  def test_some_complex_conversions
+    foorth_equal('4 5 complex', [Complex(4,5)])
+    foorth_raises('"apple" 5 complex')
+  end
+
+  def test_some_rounding
+    foorth_equal('2 pi .round_to', [3.14])
+
+    foorth_raises('2 "apple" .round_to')
+    foorth_raises('"apple"  pi .round_to')
+  end
+
+
+end