* ext/dl/cptr.c (rb_dlptr_s_to_ptr): when wrapping a pointer it should

keep a reference to the object it's wrapping
* test/dl/test_func.rb use standard test methods

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@25742 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ext/dl/cptr.c

@@ -608,6 +608,7 @@ rb_dlptr_s_to_ptr(VALUE self, VALUE val)
 	ptr = rb_dlptr_new(NUM2PTR(rb_Integer(val)), 0, NULL);
     }
     OBJ_INFECT(ptr, val);
+    rb_iv_set(ptr, "wrapping", val);
     return ptr;
 }
 

test/dl/test_func.rb

@@ -36,7 +36,7 @@ module DL
       buff1 = CPtr["12.34"]
       buff2 = buff1 + 4
       r = f.call(buff1, buff2)
-      assert_match(12.00..13.00, r)
+      assert_in_delta(12.34, r, 0.001)
     end
 
     def test_qsort1()