ruby-x/rubyx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix list to expand

Browse Source 
prevously fixed max length list
now expanding on demand, using next
quite like binary_code, a pattern is emerging
This commit is contained in:
Torsten Ruger
2018-06-29 20:58:59 +03:00
parent 5036dd68df
commit ae35fed0ab
5 changed files with 163 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
test/parfait/test_list.rb
View File

@ -10,6 +10,12 @@ module Parfait
def test_isa
assert @list.is_a? Parfait::List
end
def test_data_length
assert_equal 12 , @list.data_length
end
def test_class_data_length
assert_equal 12 , List.data_length
end
def test_old_type
assert_equal Parfait::Type , Parfait.object_space.classes.keys.get_type.class
end
@ -29,7 +35,7 @@ module Parfait
assert_equal 0, @list.indexed_length
end
def test_offset
assert_equal 2 , @list.class.type_length
assert_equal 3 , @list.class.type_length
end
def test_indexed_index
# 0 type , 1 indexed_length
@ -39,7 +45,7 @@ module Parfait
@list.push :one
assert_equal 1 , @list.get_length
assert_equal 1 , @list.indexed_length
assert_equal :one , @list.get_internal_word(Parfait::TYPE_INDEX + 2)
assert_equal :one , @list.get_internal_word(List.type_length )
end
def test_list_inspect
@list.set(0,1)
@ -62,8 +68,8 @@ module Parfait
end
def test_one_set1
assert_equal 2 , @list.set(0,2)
assert_equal 1 , @list.get_internal_word(1)
assert_equal 2 , @list.get_internal_word(2)
assert_equal 1 , @list.get_internal_word(List.get_length_index)
assert_equal 2 , @list.get_internal_word(List.type_length)
end
def test_set1_len
@list.set(0,1)
@ -111,79 +117,4 @@ module Parfait
assert_nil @list.last
end
end
class TestListMany < ParfaitTest
def setup
super
@list = ::Parfait::List.new
@shouldda = { 0 => :one , 1 => :two , 2 => :three}
@shouldda.each{|k,v| @list.set(k,v)}
end
def test_next_value_ok
assert_equal :two , @list.next_value(:one)
end
def test_next_value_end
assert_nil @list.next_value(:three)
end
def test_delete_at
assert @list.delete_at 1
assert_equal 2 , @list.get_length
assert_equal 1 , @list.index_of( :three )
end
def test_last
assert_equal :three , @list.last
end
def test_many_get
assert @list.delete :two
assert_equal 2 , @list.get_length
assert_equal 1 , @list.index_of( :three )
end
def test_index_of
assert_equal 1 , @list.index_of( :two )
assert_equal 2 , @list.index_of( :three )
assert_nil @list.index_of( :four )
end
def test_inspect
assert @list.inspect.include?("one") , @list.inspect
assert @list.inspect.include?("three") , @list.inspect
end
def test_inlcude
assert_equal true , @list.include?( :two )
assert_equal false , @list.include?( :four )
end
def test_next_value_not_int
assert_nil @list.next_value(:three)
end
def test_each
shouldda_values = @shouldda.values
@list.each do |val|
shouldda_values.delete val
end
assert_equal 0 , shouldda_values.length
end
def test_each_index
@list.each_with_index do |val , index|
assert_equal @list[index] , val
end
end
def test_each_pair_length
shouldda_values = @shouldda.values
@list.each_pair do |key,val|
shouldda_values.delete key
shouldda_values.delete val
end
assert_equal 0 , shouldda_values.length
end
def test_each_pair_count
counter = 0
@list.each_pair do |key,val|
counter += 1
end
assert_equal 2 , counter
end
def test_to_a
arr = @list.to_a
assert_equal Array , arr.class
assert_equal 3 , arr.length
end
end
end