fOOrth 0.5.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 555eecaccf4bd5f00d4adb2c45d95a229fcc286d
+  data.tar.gz: 39ab0f4185e63de1958507d4a4bd85f117dd8fef
+SHA512:
+  metadata.gz: cc6b7b66c30d45a9f0aa7717afad8fc2eac30151b9cbaa82bd495bbf98dc3687506f53d3094780f17fbc64c614115666df7d633debc9f7f2bf674f8f1d99020a
+  data.tar.gz: 897a8d530c9cfe6a81448f90cb45ad2134904048d625075318a2ca49fe92b21b10462ce5abf6835d5451a936decf090c61b2f1a72d3240560dfc69c163fdc4df

data/.gitignore

@@ -0,0 +1,21 @@
+*.bat
+*.zip
+*.tmp
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+docs/.~lock.*
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+temp.txt

data/.rdoc_options

@@ -0,0 +1,17 @@
+--- !ruby/object:RDoc::Options
+encoding: UTF-8
+static_path: []
+rdoc_include:
+- .
+charset: UTF-8
+exclude: !ruby/regexp /(?-mix:doc)|(?-mix:sire.rb)|(?-mix:.*\.4th)|(?-mix:.*\.odt)|(?-mix:.*bat)/
+hyperlink_all: false
+line_numbers: false
+main_page:
+markup: rdoc
+page_dir:
+show_hash: false
+tab_width: 8
+title:
+visibility: :protected
+webcvs:

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in fOOrth.gemspec
+gemspec

data/README.md

@@ -0,0 +1,67 @@
+# The fOOrth Language gem.
+
+This file contains the read-me for the fOOrth language gem. The fOOrth
+language is an experimental variant of FORTH that attempts to incorporate
+object oriented and functional programming concepts.
+
+As an aside, there can be no doubt that the fOOrth project is an utter waste
+of anyone's time, unless one counts the insights gained into the inner
+workings of Ruby and meta programming.
+
+## Usage
+Adding fOOrth can be as simple as:
+
+    require 'fOOrth'
+    XfOOrth.main
+
+This will launch an interactive fOOrth session. Alternatively this can be
+done with:
+
+    rake run
+
+Be sure to be in the folder that contains the rakefile in order for this
+command to work.
+
+<br>If, instead, a non-interactive facility is required, use:
+
+    require 'fOOrth'
+    XfOOrth.virtual_machine.process_string '1 2 +'
+
+where the string is fOOrth code to be executed, or for a file of code, use:
+
+    require 'fOOrth'
+    XfOOrth.virtual_machine.process_file 'my_file.foorth'
+
+## Further Documentation
+
+The fOOrth Language System is documented in The fOOrth User Guide. This is
+currently only available in Open Office format, and is still also very much
+a work in progress. Please see The_fOOrth_User_Guide.odt in the docs folder.
+
+Also for those who do not have or don't want Open Office: As each major
+version of fOOrth is made available, expect to see portable document format
+(pdf) versions of the guide. (In the docs folder in the repository)
+
+## Contributing
+
+#### Plan A
+
+1. Fork it
+2. Switch to the development branch ('git branch development')
+3. Create your feature branch ('git checkout -b my-new-feature')
+4. Commit your changes ('git commit -am "Add some feature"')
+5. Push to the branch ('git push origin my-new-feature')
+6. Create new Pull Request
+
+
+For more details on the branching strategy, please see:
+http://nvie.com/posts/a-successful-git-branching-model/
+
+
+#### Plan B
+
+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. Apply labels
+to the issue that match the point you are trying to make. Then follow
+your issue and keep up-to-date as it is worked on. All input are greatly
+appreciated.

data/bin/fOOrth

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+#
+# Standalone execution of the fOOrth environment.
+#
+
+require 'fOOrth'
+
+XfOOrth::main

data/demo.rb

@@ -0,0 +1,24 @@
+# coding: utf-8
+
+#This file contains a minimum host environment for running the fOOrth system.
+
+if ARGV[0] == 'local'
+  require_relative 'lib/fOOrth'
+  puts "\nOption(local) Loaded fOOrth from the local code folder."
+elsif defined?(XfOOrth)
+  puts "\nThe fOOrth system is already loaded."
+else
+  begin
+    require 'fOOrth'
+    puts "\nLoaded fOOrth from the system gem."
+  rescue LoadError
+    require_relative 'lib/fOOrth'
+    puts "\nLoaded fOOrth from the local code folder."
+  end
+end
+
+puts
+
+if __FILE__==$0
+  XfOOrth::main
+end

data/fOOrth.gemspec

@@ -0,0 +1,40 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'fOOrth/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "fOOrth"
+  spec.version       = XfOOrth::VERSION
+  spec.authors       = ["Peter Camilleri"]
+  spec.email         = "peter.c.camilleri@gmail.com"
+  spec.homepage      = "http://teuthida-technologies.com/"
+  spec.description   = "An Object Oriented FORTHesque language gem."
+  spec.summary       = "FNF == fOOrth is Not FORTH."
+  spec.license       = 'MIT'
+
+  raw_list = `git ls-files`.split($/)
+  raw_list = raw_list.keep_if {|entry| !entry.start_with?("docs") }
+
+  spec.files         = raw_list
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+  spec.executables   = ["fOOrth"]
+
+  spec.required_ruby_version = '>=1.9.3'
+
+  spec.add_development_dependency "bundler", "~> 1.3"
+  spec.add_development_dependency 'rake'
+  spec.add_development_dependency 'reek', "~> 3.0"
+  spec.add_development_dependency 'minitest', "~> 5.7"
+  spec.add_development_dependency 'minitest_visible', ">= 0.1.0"
+  spec.add_development_dependency 'rdoc', "~> 4.0.1"
+
+  spec.add_runtime_dependency 'ruby_sscanf', ">= 0.2.0"
+  spec.add_runtime_dependency 'format_engine', ">= 0.7.0"
+  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.3.3"
+end

data/fOOrth.reek

@@ -0,0 +1,109 @@
+---
+Attribute:
+  enabled: false
+  exclude: []
+BooleanParameter:
+  enabled: true
+  exclude: []
+ClassVariable:
+  enabled: true
+  exclude: []
+ControlParameter:
+  enabled: true
+  exclude: []
+DataClump:
+  enabled: true
+  exclude: []
+  max_copies: 2
+  min_clump_size: 2
+DuplicateMethodCall:
+  enabled: true
+  exclude: []
+  max_calls: 1
+  allow_calls: []
+FeatureEnvy:
+  enabled: true
+  exclude: []
+IrresponsibleModule:
+  enabled: true
+  exclude: []
+LongParameterList:
+  enabled: true
+  exclude: []
+  max_params: 3
+  overrides:
+    initialize:
+      max_params: 5
+LongYieldList:
+  enabled: true
+  exclude: []
+  max_params: 3
+NestedIterators:
+  enabled: true
+  exclude: []
+  max_allowed_nesting: 1
+  ignore_iterators: []
+NilCheck:
+  enabled: true
+  exclude: []
+PrimaDonnaMethod:
+  enabled: true
+  exclude: []
+RepeatedConditional:
+  enabled: true
+  exclude: []
+  max_ifs: 2
+TooManyInstanceVariables:
+  enabled: true
+  exclude: []
+  max_instance_variables: 9
+TooManyMethods:
+  enabled: true
+  exclude: []
+  max_methods: 25
+TooManyStatements:
+  enabled: true
+  exclude:
+  - initialize
+  max_statements: 7
+UncommunicativeMethodName:
+  enabled: true
+  exclude: []
+  reject:
+  - !ruby/regexp /^[a-z]$/
+  - !ruby/regexp /[0-9]$/
+  - !ruby/regexp /[A-Z]/
+  accept: []
+UncommunicativeModuleName:
+  enabled: true
+  exclude: []
+  reject:
+  - !ruby/regexp /^.$/
+  - !ruby/regexp /[0-9]$/
+  accept:
+  - Inline::C
+UncommunicativeParameterName:
+  enabled: true
+  exclude: []
+  reject:
+  - !ruby/regexp /^.$/
+  - !ruby/regexp /[0-9]$/
+  - !ruby/regexp /[A-Z]/
+  - !ruby/regexp /^_/
+  accept: []
+UncommunicativeVariableName:
+  enabled: true
+  exclude: []
+  reject:
+  - !ruby/regexp /^.$/
+  - !ruby/regexp /[0-9]$/
+  - !ruby/regexp /[A-Z]/
+  accept:
+  - _
+UnusedParameters:
+  enabled: true
+  exclude: []
+UtilityFunction:
+  enabled: true
+  exclude: []
+  max_helper_calls: 1

data/integration/README.md

@@ -0,0 +1,12 @@
+# The Integration Test Suite.
+
+While the tests folder mostly focuses on the internals of fOOrth, and in fact
+does not even load the run time libraries, the integration test suite loads
+the entire fOOrth language in order to be able to conduct testing on the
+system as a whole.
+
+This is done via the following rake command:
+
+    rake integration
+
+Most of the integration testing is done in fOOrth itself.

data/integration/_FILE_test.foorth

@@ -0,0 +1,5 @@
+// Test the _FILE_ method
+
+_FILE_
+
+true if 7 _FILE_ then

data/integration/array_lib_tests.rb

@@ -0,0 +1,360 @@
+# 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 ArrayLibraryTester < Minitest::Test
+
+  include XfOOrthTestExtensions
+
+  #Track mini-test progress.
+  include MinitestVisible
+
+  def test_some_array_basics
+    foorth_equal('       Array                   ', [Array])
+
+    foorth_equal('       Array .new              ', [[]])
+    foorth_equal(': tt00 Array .new  ;           ', [])
+    foorth_equal('tt00                           ', [[]])
+
+    foorth_equal('       3 Array .new_size       ', [[0,0,0]])
+    foorth_equal(': tt01 3 Array .new_size ;     ', [])
+    foorth_equal('tt01                           ', [[0,0,0]])
+
+    foorth_equal('try "apple" Array .new_size catch end', [])
+    foorth_equal('try -3      Array .new_size catch end', [])
+
+
+    foorth_equal('       3 Array .new_value      ', [[3]])
+    foorth_equal(': tt02 3 Array .new_value ;    ', [])
+    foorth_equal('tt02                           ', [[3]])
+
+    foorth_equal('       3 2 Array .new_values   ', [[3,3]])
+    foorth_equal(': tt03 3 2 Array .new_values ; ', [])
+    foorth_equal('tt03                           ', [[3,3]])
+
+    foorth_equal('try "apple" "pie" Array .new_values catch end', [])
+    foorth_equal('try "apple" -3    Array .new_values catch end', [])
+
+    foorth_equal('       3 Array .new{{ x }}     ', [[0,1,2]])
+    foorth_equal(': tt04 3 Array .new{{ x }} ;   ', [])
+    foorth_equal('tt04                           ', [[0,1,2]])
+
+    foorth_equal('try      -3 Array .new{{ x }} catch end', [])
+    foorth_equal('try "apple" Array .new{{ x }} catch end', [])
+    foorth_equal('try       3 Array .new{{ throw"xx" }} catch end', [])
+
+    foorth_equal('        [ 0 1 2 ]              ', [[0,1,2]])
+    foorth_equal(': tt05  [ 0 1 2 ] ;            ', [])
+    foorth_equal('tt05                           ', [[0,1,2]])
+
+    foorth_equal('        [ 3 6 do i loop ]      ', [[3,4,5]])
+    foorth_equal(': tt06  [ 3 6 do i loop ] ;    ', [])
+    foorth_equal('tt06                           ', [[3,4,5]])
+  end
+
+  def test_arrays_in_variables
+    foorth_equal('[ 3 6 9 ] val$: $taiv1 ',   [])
+    foorth_equal('$taiv1                   ', [[3,6,9]])
+  end
+
+  def test_some_basic_operators
+    foorth_equal('[ 3 6 9 ] [ 3 6 9 ]  = ', [true])
+    foorth_equal('[ 3 6 9 ] [ 3 6 8 ]  = ', [false])
+    foorth_equal('[ 3 6 9 ] [ 3 6 ]    = ', [false])
+
+    foorth_equal('[ 3 6 9 ] [ 3 6 9 ]  <>', [false])
+    foorth_equal('[ 3 6 9 ] [ 3 6 8 ]  <>', [true])
+    foorth_equal('[ 3 6 9 ] [ 3 6 ]    <>', [true])
+
+    foorth_equal('[ 3 6 9 ] [ 3 6 9 ] identical?', [false])
+    foorth_equal('[ 3 6 9 ] [ 3 6 9 ] distinct?', [true])
+
+    foorth_equal('[ 3 6 9 ] dup       identical?', [true])
+    foorth_equal('[ 3 6 9 ] dup       distinct?', [false])
+
+    foorth_equal('[ 3 6 9 ] clone     identical?', [false])
+    foorth_equal('[ 3 6 9 ] clone     distinct?', [true])
+  end
+
+  def test_the_each
+    foorth_equal('4 Array .new{{ x 1 + dup * }} val$: $tte ', [])
+    foorth_equal('$tte',                                      [[1,4,9,16]])
+
+    foorth_equal('$tte .each{{ x }} ',                        [0,1,2,3])
+    foorth_equal('$tte .each{{ v }} ',                        [1,4,9,16])
+
+    foorth_equal(': tte $tte .each{{ v }} ;',                 [])
+    foorth_equal('tte',                                       [1,4,9,16])
+  end
+
+  def test_the_map
+    foorth_equal('[ 2 3 4 ] .map{{ v 1+ }}', [[3,4,5]])
+  end
+
+  def test_the_select
+    foorth_equal('[ 0 10 do i loop ] .select{{ v 1 and 0= }}', [[0,2,4,6,8]])
+  end
+
+  def test_simple_array_indexing
+    foorth_equal('4 Array .new{{ x 1 + dup * }} val$: $tte ',   [])
+    foorth_equal('$tte',                                      [[1,4,9,16]])
+
+    foorth_equal('$tte @ ',                                   [1])
+    foorth_equal('10 $tte ! ',                                [])
+    foorth_equal('$tte @ ',                                   [10])
+
+    foorth_equal('  0 $tte .[]@ ',                            [10])
+    foorth_equal(' -1 $tte .[]@ ',                            [16])
+    foorth_equal('1 0 $tte .[]! ',                            [])
+    foorth_equal('$tte @ ',                                   [1])
+
+    foorth_equal(' 10  $tte .[]@ ',                           [nil])
+    foorth_equal('-10  $tte .[]@ ',                           [nil])
+
+    foorth_equal(' "0" $tte .[]@ ',                           [1])
+    foorth_equal('try "apple" $tte .[]@ catch end ',          [])
+
+  end
+
+  def test_the_left_group
+    foorth_equal('2           [ 9 3 5 ]   .left   ', [[9,3]])
+    foorth_equal('2           [ 9 3 5 ]   .-left  ', [[5]])
+    foorth_equal('2 [ 0 8 9 ] [ 9 3 5 ]   .+left  ', [[0,8,9,5]])
+    foorth_equal('2 "apple"   [ 9 3 5 ]   .+left  ', [["apple",5]])
+    foorth_equal('2 [ 0 8 9 7 ]           .^left  ', [[9,7], [0,8]])
+
+    foorth_equal('try "apple" [ 9 3 5 ] .left catch end', [])
+    foorth_equal('try -1      [ 9 3 5 ] .left catch end', [])
+
+    foorth_equal('try "apple" [ 9 3 5 ] .-left catch end', [])
+    foorth_equal('try -1      [ 9 3 5 ] .-left catch end', [])
+
+    foorth_equal('try -2      [ 0 8 9 ] [ 9 3 5 ] .+left catch end', [])
+    foorth_equal('try "apple" [ 0 8 9 ] [ 9 3 5 ] .+left catch end', [])
+
+    foorth_equal('try -2      [ 0 8 9 7 ] .^left catch end ', [])
+    foorth_equal('try "apple" [ 0 8 9 7 ] .^left catch end ', [])
+  end
+
+  def test_the_right_group
+    foorth_equal('2           [ 9 3 5 ]   .right  ', [[3,5]])
+    foorth_equal('2           [ 9 3 5 ]   .-right ', [[9]])
+    foorth_equal('2 [ 0 8 9 ] [ 9 3 5 ]   .+right ', [[9,0,8,9]])
+    foorth_equal('2 "apple"   [ 9 3 5 ]   .+right ', [[9,"apple"]])
+    foorth_equal('2 [ 0 8 9 7 ]           .^right ', [[0,8], [9,7]])
+
+    foorth_equal('try "apple" [ 9 3 5 ] .right catch end', [])
+    foorth_equal('try -1      [ 9 3 5 ] .right catch end', [])
+
+    foorth_equal('try "apple" [ 9 3 5 ] .-right catch end', [])
+    foorth_equal('try -1      [ 9 3 5 ] .-right catch end', [])
+
+    foorth_equal('try -2      [ 0 8 9 ] [ 9 3 5 ] .+right catch end', [])
+    foorth_equal('try "apple" [ 0 8 9 ] [ 9 3 5 ] .+right catch end', [])
+
+    foorth_equal('try -2      [ 0 8 9 7 ] .^right catch end ', [])
+    foorth_equal('try "apple" [ 0 8 9 7 ] .^right catch end ', [])
+  end
+
+  def test_the_mid_group
+    foorth_equal('1 2           [ 9 3 5 7 ] .mid  ', [[3,5]])
+    foorth_equal('1 2           [ 9 3 5 7 ] .-mid ', [[9,7]])
+    foorth_equal('1 2 [ 0 8 9 ] [ 9 3 5 7 ] .+mid ', [[9,0,8,9,7]])
+    foorth_equal('1 2 "apple"   [ 9 3 5 7 ] .+mid ', [[9,"apple",7]])
+    foorth_equal('1 2           [ 9 3 5 7 ] .^mid ', [[9,7], [3,5]])
+
+    foorth_equal('try "apple" 2 [ 9 3 5 7 ] .mid catch end', [])
+    foorth_equal('try 1 "apple" [ 9 3 5 7 ] .mid catch end', [])
+    foorth_equal('try -1      2 [ 9 3 5 7 ] .mid catch end', [])
+    foorth_equal('try 1      -2 [ 9 3 5 7 ] .mid catch end', [])
+
+    foorth_equal('try "apple" 2 [ 9 3 5 7 ] .-mid catch end', [])
+    foorth_equal('try 1 "apple" [ 9 3 5 7 ] .-mid catch end', [])
+    foorth_equal('try -1      2 [ 9 3 5 7 ] .-mid catch end', [])
+    foorth_equal('try 1      -2 [ 9 3 5 7 ] .-mid catch end', [])
+
+    foorth_equal('try "apple" 2 [ 0 8 9 ] [ 9 3 5 7 ] .+mid catch end ', [])
+    foorth_equal('try 1 "apple" [ 0 8 9 ] [ 9 3 5 7 ] .+mid catch end ', [])
+    foorth_equal('try -1      2 [ 0 8 9 ] [ 9 3 5 7 ] .+mid catch end ', [])
+    foorth_equal('try 1      -2 [ 0 8 9 ] [ 9 3 5 7 ] .+mid catch end ', [])
+
+    foorth_equal('try -1  2     [ 9 3 5 7 ] .^mid catch end', [])
+    foorth_equal('try "apple" 2 [ 9 3 5 7 ] .^mid catch end', [])
+    foorth_equal('try 1 -2      [ 9 3 5 7 ] .^mid catch end', [])
+    foorth_equal('try 1 "apple" [ 9 3 5 7 ] .^mid catch end', [])
+  end
+
+  def test_the_midlr_group
+    foorth_equal('1 1           [ 9 3 5 7 ] .midlr  ', [[3,5]])
+    foorth_equal('1 1           [ 9 3 5 7 ] .-midlr ', [[9,7]])
+    foorth_equal('0 2           [ 9 3 5 7 ] .-midlr ', [[5,7]])
+    foorth_equal('2 0           [ 9 3 5 7 ] .-midlr ', [[9,3]])
+    foorth_equal('1 1 [ 0 8 9 ] [ 9 3 5 7 ] .+midlr ', [[9,0,8,9,7]])
+    foorth_equal('0 2 [ 0 8 9 ] [ 9 3 5 7 ] .+midlr ', [[0,8,9,5,7]])
+    foorth_equal('2 0 [ 0 8 9 ] [ 9 3 5 7 ] .+midlr ', [[9,3,0,8,9]])
+    foorth_equal('1 1 "apple"   [ 9 3 5 7 ] .+midlr ', [[9,"apple",7]])
+    foorth_equal('1 1           [ 9 3 5 7 ] .^midlr ', [[9,7], [3,5]])
+
+    foorth_equal('try "apple" 2 [ 9 3 5 7 ] .midlr catch end', [])
+    foorth_equal('try 2 "apple" [ 9 3 5 7 ] .midlr catch end', [])
+    foorth_equal('try -2      2 [ 9 3 5 7 ] .midlr catch end', [])
+    foorth_equal('try 2      -2 [ 9 3 5 7 ] .midlr catch end', [])
+
+    foorth_equal('try "apple" 2 [ 9 3 5 7 ] .-midlr catch end', [])
+    foorth_equal('try 2 "apple" [ 9 3 5 7 ] .-midlr catch end', [])
+    foorth_equal('try -2      2 [ 9 3 5 7 ] .-midlr catch end', [])
+    foorth_equal('try 2      -2 [ 9 3 5 7 ] .-midlr catch end', [])
+
+    foorth_equal('try "apple" 1 [ 0 8 9 ] [ 9 3 5 7 ] .+midlr catch end', [])
+    foorth_equal('try 1 "apple" [ 0 8 9 ] [ 9 3 5 7 ] .+midlr catch end', [])
+    foorth_equal('try -1      1 [ 0 8 9 ] [ 9 3 5 7 ] .+midlr catch end', [])
+    foorth_equal('try 1      -1 [ 0 8 9 ] [ 9 3 5 7 ] .+midlr catch end', [])
+
+    foorth_equal('try -1      1 [ 9 3 5 7 ] .^midlr catch end ', [])
+    foorth_equal('try "apple" 1 [ 9 3 5 7 ] .^midlr catch end ', [])
+    foorth_equal('try 1      -1 [ 9 3 5 7 ] .^midlr catch end ', [])
+    foorth_equal('try 1 "apple" [ 9 3 5 7 ] .^midlr catch end ', [])
+  end
+
+  def test_the_dequeue_methods
+    foorth_run('[ 1 2 3 ] val$: $tdqm')
+
+    #Test the non-mutating methods.
+    foorth_equal('$tdqm .pop_left', [[2,3], 1])
+    foorth_equal('$tdqm ', [[1,2,3]])
+    foorth_raises('[ ] .pop_left')
+
+    foorth_equal('$tdqm .pop_right', [[1,2], 3])
+    foorth_equal('$tdqm ', [[1,2,3]])
+    foorth_raises('[ ] .pop_right')
+
+    foorth_equal('0 $tdqm .push_left', [[0,1,2,3]])
+    foorth_equal('$tdqm ', [[1,2,3]])
+
+    foorth_equal('4 $tdqm .push_right', [[1,2,3,4]])
+    foorth_equal('$tdqm ', [[1,2,3]])
+
+    foorth_equal('$tdqm .peek_left', [[1,2,3], 1])
+    foorth_equal('$tdqm ', [[1,2,3]])
+    foorth_raises('[ ] .peek_left')
+
+    foorth_equal('$tdqm .peek_right', [[1,2,3], 3])
+    foorth_equal('$tdqm ', [[1,2,3]])
+    foorth_raises('[ ] .peek_right')
+
+
+    #Test the mutating methods.
+    foorth_equal('$tdqm .pop_left!', [1])
+    foorth_equal('$tdqm ', [[2,3]])
+    foorth_raises('[ ] .pop_left!')
+
+    foorth_equal('$tdqm .pop_right!', [3])
+    foorth_equal('$tdqm ', [[2]])
+    foorth_raises('[ ] .pop_right!')
+
+    foorth_equal('1 $tdqm .push_left!', [])
+    foorth_equal('$tdqm ', [[1,2]])
+
+    foorth_equal('3 $tdqm .push_right!', [])
+    foorth_equal('$tdqm ', [[1,2,3]])
+
+    foorth_equal('$tdqm .peek_left!', [1])
+    foorth_equal('$tdqm ', [[1,2,3]])
+    foorth_raises('[ ] .peek_left!')
+
+    foorth_equal('$tdqm .peek_right!', [3])
+    foorth_equal('$tdqm ', [[1,2,3]])
+    foorth_raises('[ ] .peek_right!')
+  end
+
+  def test_other_array_ops
+    foorth_equal('[ 0 1 2 ] .reverse   ', [[2,1,0]])
+    foorth_equal('[ 9 3 5 ] .sort      ', [[3,5,9]])
+
+    foorth_equal('[ 9 3 5 ] .length    ', [3])
+
+    foorth_equal('[ 9 3 5 ] 0       << ', [[9,3,5,0]])
+    foorth_equal('[ 9 3 5 ] { }     << ', [[9,3,5,{}]])
+    foorth_equal('[ 9 3 5 ] [ 4 1 ] << ', [[9,3,5,[4,1]]])
+    foorth_equal('[ 9 3 5 ] [ 4 1 ] << ', [[9,3,5,[4,1]]])
+
+    foorth_equal('[ 9 3 5 ] 0       + ', [[9,3,5,0]])
+    foorth_equal('[ 9 3 5 ] [ 0 ]   + ', [[9,3,5,0]])
+    foorth_equal('[ 9 3 5 ] { }     + ', [[9,3,5,{}]])
+
+    foorth_equal('[ "9" 3 5 ] .sort   ', [[3,5,"9"]])
+    foorth_equal('[ 9 "3" 5 ] .sort   ', [["3",5,9]])
+
+    foorth_equal('try [ 9 "apple" 5 ] .sort catch end', [])
+  end
+
+  def test_formatting_and_related
+    foorth_equal('[ 0 1 "hello" ] .strmax', [5])
+  end
+
+  def test_array_min_max
+    foorth_equal('[ 9 0 1 12 2 ] .min', [0])
+    foorth_equal('[ 9 0 1 12 2 ] .max', [12])
+
+    foorth_equal('[ "c" "d" "a" "g" "f" ] .min', ["a"])
+    foorth_equal('[ "c" "d" "a" "g" "f" ] .max', ["g"])
+
+    foorth_equal('[ "9" 0 1 "pear" ] .min', ["0"])
+    foorth_equal('[ "9" 0 1 "apple" ] .max', ["apple"])
+
+    foorth_raises('[ 9 0 1 "pear" ] .min')
+    foorth_raises('[ 9 0 1 "apple" ] .max')
+
+    foorth_equal('try [ 9 0 1 "pear" ] .min catch end', [])
+    foorth_equal('try [ 9 0 1 "pear" ] .max catch end', [])
+  end
+
+  def test_array_empty
+    foorth_equal('[ ] .empty?', [true])
+    foorth_equal('[ 1 2 3 ] .empty?', [false])
+  end
+
+  def test_array_split
+    foorth_equal('1 2 [ 3 4 ] .split', [1,2,3,4])
+  end
+
+  def test_array_join
+    foorth_equal('1 2 3 4 2 .join', [1,2,[3,4]])
+    foorth_raises('1 2 3 4 -2 .join')
+    foorth_raises('1 2 3 4 20 .join')
+  end
+
+  def test_scatter
+    foorth_equal('[ 1 2 3 ]     .scatter', [1, 2, 3])
+    foorth_equal('5 6 [ 1 2 3 ] .scatter', [5, 6, 1, 2, 3])
+  end
+
+  def test_gather
+    foorth_equal('               gather', [[]])
+    foorth_equal('    1 2 3      gather', [[1,2,3]])
+
+    foorth_equal('    1 2 3 3   .gather', [[1,2,3]])
+    foorth_equal('5 6 1 2 3 3   .gather', [5,6,[1,2,3]])
+
+    foorth_raises('5 6 1 2 3 -1 .gather')
+    foorth_raises('5 6 1 2 3  0 .gather')
+    foorth_raises('5 6 1 2 3  9 .gather')
+  end
+
+  def test_array_to_s
+    foorth_equal('[ 1 2 3 ] .to_s', ["[ 1 2 3 ]"])
+  end
+
+  def test_compatibility_methods
+    foorth_equal('[ 2 4 6 8 ] .to_a   ', [[2,4,6,8]])
+    foorth_equal('[ 2 4 6 8 ] .to_h   ', [{0=>2, 1=>4, 2=>6, 3=>8}])
+    foorth_equal('[ 2 4 6 8 ] .values ', [[2,4,6,8]])
+    foorth_equal('[ 2 4 6 8 ] .keys   ', [[0,1,2,3]])
+  end
+
+end