Miroirs/fOOrth
1
0
Fork 0
mirror of https://github.com/PeterCamilleri/fOOrth synced 2024-11-16 07:47:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added clone exclusion tests for Array and Hash.

Browse source
This commit is contained in:
Peter Camilleri 2015-04-20 12:47:40 -04:00
parent 4a63a10061
commit 45564cee04
1 changed files with 36 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
integration/clone_lib_tests.rb
View file

@ -58,6 +58,42 @@ class CloneLibraryTester < Minitest::Test
end
def test_array_clone_exclusion
foorth_run('[ "a" "b" ] val$: $tacx1')
foorth_run('$tacx1 .:: .clone_exclude [ 1 ] ;')
foorth_run('$tacx1 .clone val$: $tacx2')
foorth_equal('$tacx1 .clone_exclude', [[1]])
foorth_equal('$tacx2 .clone_exclude', [[1]])
foorth_equal('$tacx1', [["a", "b"]])
foorth_equal('$tacx2', [["a", "b"]])
foorth_run('0 $tacx1 .[]@ "1" <<')
foorth_run('1 $tacx1 .[]@ "1" <<')
foorth_equal('$tacx1', [["a1", "b1"]])
foorth_equal('$tacx2', [["a", "b1"]])
end
def test_hash_clone_exclusion
foorth_run('{ 0 "a" -> 1 "b" -> } val$: $thcx1')
foorth_run('$thcx1 .:: .clone_exclude [ 1 ] ;')
foorth_run('$thcx1 .clone val$: $thcx2')
foorth_equal('$thcx1 .clone_exclude', [[1]])
foorth_equal('$thcx2 .clone_exclude', [[1]])
foorth_equal('$thcx1', [{0=>"a", 1=>"b"}])
foorth_equal('$thcx2', [{0=>"a", 1=>"b"}])
foorth_run('0 $thcx1 .[]@ "1" <<')
foorth_run('1 $thcx1 .[]@ "1" <<')
foorth_equal('$thcx1', [{0=>"a1", 1=>"b1"}])
foorth_equal('$thcx2', [{0=>"a", 1=>"b1"}])
end
def test_some_copying_too
foorth_equal("33 copy", [33,33])
foorth_equal("33 .copy", [33])