akr	2009-09-10 21:22:59 +0900 (Thu, 10 Sep 2009)

  New Revision: 24828

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=24828

  Log:
    * test/dl/test_cptr.rb (test_free=): test SEGV at first.
      [ruby-dev:39269]

  Modified files:
    trunk/ChangeLog
    trunk/test/dl/test_cptr.rb

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 24827)
+++ ChangeLog	(revision 24828)
@@ -1,3 +1,8 @@
+Thu Sep 10 21:22:01 2009  Tanaka Akira  <akr@f...>
+
+	* test/dl/test_cptr.rb (test_free=): test SEGV at first.
+	  [ruby-dev:39269]
+
 Thu Sep 10 21:20:59 2009  Tanaka Akira  <akr@f...>
 
 	* test/ruby/envutil.rb (assert_normal_exit): Don't use
Index: test/dl/test_cptr.rb
===================================================================
--- test/dl/test_cptr.rb	(revision 24827)
+++ test/dl/test_cptr.rb	(revision 24828)
@@ -1,4 +1,5 @@
 require 'test_base'
+require_relative '../ruby/envutil'
 
 module DL
   class TestCPtr < TestBase
@@ -8,6 +9,20 @@
     end
 
     def test_free=
+      assert_normal_exit(<<-"End", '[ruby-dev:39269]')
+        require 'dl'
+        DL::LIBC_SO = #{DL::LIBC_SO.dump}
+        DL::LIBM_SO = #{DL::LIBM_SO.dump}
+        include DL
+        @libc = dlopen(LIBC_SO)
+        @libm = dlopen(LIBM_SO)
+        free = CFunc.new(@libc['free'], TYPE_VOID, 'free')
+        ptr = CPtr.malloc(4)
+        ptr.free = free
+        free.ptr
+        ptr.free.ptr
+      End
+
       free = CFunc.new(@libc['free'], TYPE_VOID, 'free')
       ptr = CPtr.malloc(4)
       ptr.free = free

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/