require 'test/unit'
require 'timeout'
require 'rbconfig'

class TestSignal < Test::Unit::TestCase
  def have_fork?
    begin
      fork{}
      true
    rescue NotImplementedError
      false
    end
  end

  def test_signal
    defined?(Process.kill) or return

    # FIXME, JRuby fails this test on OpenSolaris 2009.06 and Windows
    # JRUBY-4183
    return if Config::CONFIG['host_os'] =~/SunOS|mswin/

    begin
      $x = 0
      oldtrap = trap "SIGINT", proc{|sig| $x = 2}
      Process.kill "SIGINT", $$
      t = Time.now
      while (Time.now - t) < 5
        sleep 0.1
        break if $x == 2
      end
      assert_equal(2, $x)

      trap "SIGINT", proc{raise "Interrupt"}

      x = assert_raises(RuntimeError) do
        Process.kill "SIGINT", $$
        t = Time.now
        while (Time.now - t) < 5
          sleep 0.1
        end
      end
      assert(x)
      assert_match(/Interrupt/, x.message)
    ensure
      trap "SIGINT", oldtrap
    end
  end

  def test_exit_action
    return unless have_fork?	# snip this test
    begin
      r, w = IO.pipe
      r0, w0 = IO.pipe
      pid = fork {
        trap(:USR1, "EXIT")
        w0.close
        w.syswrite("a")
        Thread.start { Thread.pass }
        r0.sysread(4096)
      }
      r.sysread(1)
      sleep 0.1
      assert_nothing_raised("[ruby-dev:26128]") {
        Process.kill(:USR1, pid)
        begin
          Timeout.timeout(10) {
            Process.waitpid pid
          }
        rescue Timeout::Error
          Process.kill(:TERM, pid)
          raise
        end
      }
    ensure
      r.close
      w.close
      r0.close
      w0.close
    end
  end

  def test_child_vtalrm
    return unless have_fork?	# snip this test
    pid = fork {100_000.times{ 1+1 }}
    pid, status = Process.wait2(pid)
    assert_equal(false, status.signaled?, '[ruby-core:25606]')
  end
end
