5d529d5a76
SF Bug#1292 - Runtime fixes for Proc changes in ruby-1.9 when using STL wrappers that override the default predicate, such as: %template(Map) std::map<swig::LANGUAGE_OBJ, swig::LANGUAGE_OBJ, swig::BinaryPredicate<> >; Fixes li_std_functors testcases for Ruby 1.9. Also rb_respond_to return values have changed subtely in 1.9 and return should be treated as a flag instead of checking for Qtrue, see SF Bug #1159. Also fix li_std_map, li_std_set silently failing - rb_protect behaviour seems to have changed when an exception is thrown, so code has been changed to use rb_rescue. A call to 'rb_set_errinfo(Qnil)' could have solved this after the rb_protect call, but it is only available in 1.9+ and Ruby API changes are not easily and transparently detectable.
76 lines
1.6 KiB
Ruby
Executable file
76 lines
1.6 KiB
Ruby
Executable file
#!/usr/bin/env ruby
|
|
#
|
|
# This is a test of STL containers using proc
|
|
# objects to change the sorting function used in them. Same as a
|
|
# std::binary_predicate in C++.
|
|
#
|
|
#
|
|
#
|
|
#
|
|
#
|
|
|
|
require 'swig_assert'
|
|
require 'li_std_functors'
|
|
|
|
|
|
def _set(container)
|
|
swig_assert_each_line(<<EOF, binding)
|
|
cont = #{container}.new
|
|
[9,1,8,2,7,3,6,4,5].each { |x| cont.insert(x) }
|
|
i0 = cont.begin()
|
|
cont.to_a == [1,2,3,4,5,6,7,8,9]
|
|
cont = #{container}.new( proc { |a,b| b < a } )
|
|
[9,1,8,2,7,3,6,4,5].each { |x| cont.insert(x) }
|
|
cont.to_a == [9, 8, 7, 6, 5, 4, 3, 2, 1]
|
|
cont = #{container}.new( proc { |a,b| b > a } )
|
|
[9,1,8,2,7,3,6,4,5].each { |x| cont.insert(x) }
|
|
cont.to_a == [1, 2, 3, 4, 5, 6, 7, 8, 9]
|
|
cont = #{container}.new(proc { |a,b| b < a } )
|
|
cont.insert(1)
|
|
cont.to_a == [1]
|
|
i0 = cont.begin()
|
|
cont.erase(i0) # don't use i0 anymore, it is invalid now
|
|
cont.to_a == []
|
|
EOF
|
|
end
|
|
|
|
def b_lessthan_a(b, a)
|
|
res = b < a
|
|
# print b, "<", a, "=", res
|
|
return res
|
|
end
|
|
|
|
def _map(container)
|
|
swig_assert_each_line(<<EOF, binding)
|
|
cont = #{container}.new
|
|
cont['z'] = 9
|
|
cont['y'] = 1
|
|
cont['x'] = 8
|
|
cont['w'] = 2
|
|
cont.to_a == [['w',2],['x',8],['y',1],['z',9]]
|
|
|
|
cont = #{container}.new(proc { |a,b| b_lessthan_a(b, a) } )
|
|
cont['z'] = 9
|
|
cont['y'] = 1
|
|
cont['x'] = 8
|
|
cont['w'] = 2
|
|
cont.to_a == [['z',9],['y',1],['x',8],['w',2]]
|
|
EOF
|
|
end
|
|
|
|
def test
|
|
yield method(:_set), Li_std_functors::Set
|
|
yield method(:_map), Li_std_functors::Map
|
|
end
|
|
|
|
# these should fail and not segfault
|
|
begin
|
|
Li_std_functors::Set.new('sd')
|
|
rescue
|
|
end
|
|
|
|
test do |proc, container|
|
|
proc.call(container)
|
|
end
|
|
|
|
|