fOOrth 0.6.6 → 0.6.11

checksums.yaml

@@ -1,7 +1,7 @@
 ---
-SHA1:
-  metadata.gz: b78d9f4016b73209d62eaf5c8d01497f64b65582
-  data.tar.gz: 98ec2f26ae3bf20ea9a65d120ecb0d9bc6b2f88c
+SHA256:
+  metadata.gz: ce6a84ad49645378ec632ed55e731ff89d113cf22de2517ebef69e87b1e6d01e
+  data.tar.gz: 610a2c6be6d202ca568fc8ff62d338f003fc5c19a63016975892820c0193c580
 SHA512:
-  metadata.gz: f04893f0850026b62865f1087298d8f8ad1a621da78d097a96106adcba71f00ba14abe1968992bcdda57ef14ed6a0bfc4969d9f3b291793b55618d0b7cad0e09
-  data.tar.gz: 0f17fc2d2d9dd61a37e6b3be5440346a18af935d591d261ef53a3d7b2eb9e94ef29460bf6b40babe243d39efb4139dc63bd97081cb098bac012a04ac03869dc6
+  metadata.gz: 3e9bb940f04ac87128cf57a5f235ddc0ab8210f044be38de9a285312348ebd9a9d41a6732fa0e43b9c509ca7e315b43b0d2a41cde1ce480b8a4ed7170050c1b1
+  data.tar.gz: 594473cca8c187f4fe28aaee1f33ea2d7c713bed1d5a0ef68e5ed8167c3aee36e379311ea258a56c99002c49e1553b6cf9149b0fc498626fc6c474e8c3277108

data/CODE_OF_CONDUCT.md

@@ -0,0 +1,49 @@
+# Contributor Code of Conduct
+
+As contributors and maintainers of this project, and in the interest of
+fostering an open and welcoming community, we pledge to respect all people who
+contribute through reporting issues, posting feature requests, updating
+documentation, submitting pull requests or patches, and other activities.
+
+We are committed to making participation in this project a harassment-free
+experience for everyone, regardless of level of experience, gender, gender
+identity and expression, sexual orientation, disability, personal appearance,
+body size, race, ethnicity, age, religion, or nationality.
+
+Examples of unacceptable behavior by participants include:
+
+* The use of sexualized language or imagery
+* Personal attacks
+* Trolling or insulting/derogatory comments
+* Public or private harassment
+* Publishing other's private information, such as physical or electronic
+  addresses, without explicit permission
+* Other unethical or unprofessional conduct
+
+Project maintainers have the right and responsibility to remove, edit, or
+reject comments, commits, code, wiki edits, issues, and other contributions
+that are not aligned to this Code of Conduct, or to ban temporarily or
+permanently any contributor for other behaviors that they deem inappropriate,
+threatening, offensive, or harmful.
+
+By adopting this Code of Conduct, project maintainers commit themselves to
+fairly and consistently applying these principles to every aspect of managing
+this project. Project maintainers who do not follow or enforce the Code of
+Conduct may be permanently removed from the project team.
+
+This code of conduct applies both within project spaces and in public spaces
+when an individual is representing the project or its community.
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be
+reported by contacting a project maintainer at peter.c.camilleri@gmail.com. All
+complaints will be reviewed and investigated and will result in a response that
+is deemed necessary and appropriate to the circumstances. Maintainers are
+obligated to maintain confidentiality with regard to the reporter of an
+incident.
+
+This Code of Conduct is adapted from the [Contributor Covenant][homepage],
+version 1.3.0, available at
+[http://contributor-covenant.org/version/1/3/0/][version]
+
+[homepage]: http://contributor-covenant.org
+[version]: http://contributor-covenant.org/version/1/3/0/

data/README.md

@@ -67,7 +67,27 @@ currently only available in Open Office and PDF formats. The guide tracks
 changes in the language fairly closely. The most current guide in PDF
 format may be found at the community web site above.
 
-This code repo also has PDF formatted guides for majot revisions.
+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
+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:
+
+    )"shell command"   -- execute the specified command in the shell.
+    )classes           -- list the system classes.
+    )globals           -- list any global variables.
+    )load"filename"    -- load the fOOrth file called filename.
+    )irb               -- launch an interactive irb debug session.
+    )quit              -- exit fOOrth.
+    )time              -- display the current time.
+    )show              -- after each command show the contents of the data stack.
+    )noshow            -- don't do that.
+    )version           -- display current language version info.
+    )words             -- list all defined method names.
+
 
 ## Contributing
 
@@ -89,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"
@@ -36,5 +36,5 @@ Gem::Specification.new do |spec|
   spec.add_runtime_dependency 'full_clone'
   spec.add_runtime_dependency 'safe_clone'
   spec.add_runtime_dependency 'in_array'
-  spec.add_runtime_dependency 'mini_readline', ">= 0.4.8"
+  spec.add_runtime_dependency 'mini_readline', ">= 0.8.0"
 end

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/compile_lib_tests.rb

@@ -112,7 +112,6 @@ class CompileLibraryTester < Minitest::Test
 
     foorth_equal('Object .: .lvt6 val: lv lv 10  * ;' , [])
     foorth_equal('10 Object .new .lvt6 ' , [100])
-
   end
 
   def test_exclusive_methods
@@ -233,7 +232,74 @@ class CompileLibraryTester < Minitest::Test
 
     foorth_equal("Integer    .: minus self swap -  ; 10 5 minus", [5])
     foorth_equal("Integer '. .: rinus self swap -  ; 10 5 rinus", [-5])
+  end
+
+  def test_method_aliasing
+    foorth_run('class: TestAlias')
+    foorth_run('TestAlias .: .method_name 42 ;')
+    foorth_run('TestAlias .new val$: $test_aliasing_one')
+    foorth_run('TestAlias .new val$: $test_aliasing_two')
+
+    foorth_equal('$test_aliasing_one .method_name', [42])
+    foorth_raises('$test_aliasing_one .alias_name')
+    foorth_raises('$test_aliasing_one .with {{ ~other_name }}')
+
+    foorth_run('".method_name" TestAlias .alias: .alias_name')
+
+    foorth_equal('$test_aliasing_one .method_name', [42])
+    foorth_equal('$test_aliasing_one .alias_name', [42])
+    foorth_raises('$test_aliasing_one .with {{ ~other_name }}')
+
+    foorth_run('".method_name" TestAlias .alias: ~other_name')
+
+    foorth_equal('$test_aliasing_one .method_name', [42])
+    foorth_equal('$test_aliasing_one .alias_name', [42])
+    foorth_equal('$test_aliasing_one .with{{ ~other_name }}', [42])
+
+    foorth_raises('".method_name" TestAlias .alias: ++++')
+
+    foorth_run('$test_aliasing_two .:: .method_name 69 ;')
+    foorth_equal('$test_aliasing_one .method_name', [42])
+    foorth_equal('$test_aliasing_two .method_name', [69])
+
+    foorth_run('".method_name" $test_aliasing_two .alias:: .crazy')
+    foorth_equal('$test_aliasing_two .crazy', [69])
+    foorth_raises('$test_aliasing_one .crazy')
+
+    foorth_raises('"+" Numeric .alias: .add')
+    foorth_run('"-" Numeric \'* .alias: .sub')
+    foorth_equal('11 4 .sub', [7])
 
+    foorth_run('"dup" alias: doop')
+    foorth_equal('11 doop', [11, 11])
   end
 
+  def test_method_stubs
+    foorth_run('class: TestStubs')
+    foorth_equal('TestStubs .new .to_i', [nil])
+
+    foorth_run('TestStubs .stub: .to_i')
+    foorth_raises('TestStubs .new .to_i')
+
+    foorth_run('TestStubs .new val$: $test_stubs_one')
+    foorth_run('TestStubs .new val$: $test_stubs_two')
+
+    foorth_run('$test_stubs_two .stub:: .to_r')
+
+    foorth_equal('$test_stubs_one .to_r', [nil])
+    foorth_raises('$test_stubs_two .to_r')
+
+    foorth_run('"dup" alias: dupe')
+    foorth_equal('3 dup ', [3,3])
+    foorth_equal('3 dupe', [3,3])
+
+    foorth_run('stub: dup')
+
+    foorth_raises('3 dup ')
+    foorth_equal('3 dupe', [3,3])
+
+    foorth_run('"dupe" alias: dup')
+  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