# $Id$
#
# Author:: Francis Cianfrocca (gmail: blackhedd)
# Homepage::  http://rubyeventmachine.com
# Date:: 8 April 2006
# 
# See EventMachine and EventMachine::Connection for documentation and
# usage examples.
#
#----------------------------------------------------------------------------
#
# Copyright (C) 2006-07 by Francis Cianfrocca. All Rights Reserved.
# Gmail: blackhedd
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of either: 1) the GNU General Public License
# as published by the Free Software Foundation; either version 2 of the
# License, or (at your option) any later version; or 2) Ruby's License.
# 
# See the file COPYING for complete licensing information.
#
#---------------------------------------------------------------------------
#
#
#

$:.unshift "../lib"
require 'eventmachine'
require 'test/unit'

class TestProcesses < Test::Unit::TestCase

  # EM::DeferrableChildProcess is a sugaring of a common use-case
  # involving EM::popen.
  # Call the #open method on EM::DeferrableChildProcess, passing
  # a command-string. #open immediately returns an EM::Deferrable
  # object. It also schedules the forking of a child process, which
  # will execute the command passed to #open.
  # When the forked child terminates, the Deferrable will be signalled
  # and execute its callbacks, passing the data that the child process
  # wrote to stdout.
  #
  def test_deferrable_child_process
    ls = ""
    EM.run {
      d = EM::DeferrableChildProcess.open( "ls -ltr" )
      d.callback {|data_from_child|
        ls = data_from_child
        EM.stop
      }
    }
    assert( ls.length > 0)
  end

  def setup
    $out = nil
    $status = nil
  end

  def test_em_system
    EM.run{
      EM.system('ls'){ |out,status| $out, $status = out, status; EM.stop }
    }

    assert( $out.length > 0 )
    assert_equal($status.exitstatus, 0)
    assert_equal($status.class, Process::Status)
  end

  def test_em_system_pid
    $pids = []

    EM.run{
      $pids << EM.system('echo hi', proc{ |out,status|$pids << status.pid; EM.stop })
    }

    assert_equal $pids[0], $pids[1]
  end

  def test_em_system_with_proc
    EM.run{
      EM.system('ls', proc{ |out,status| $out, $status = out, status; EM.stop })
    }

    assert( $out.length > 0 )
    assert_equal($status.exitstatus, 0)
    assert_equal($status.class, Process::Status)
  end

  def test_em_system_with_two_procs
    EM.run{
      EM.system('sh', proc{ |process|
        process.send_data("echo hello\n")
        process.send_data("exit\n")
      }, proc{ |out,status|
        $out = out
        $status = status
        EM.stop
      })
    }

    assert_equal("hello\n", $out)
  end

  def test_em_system_cmd_arguments
    EM.run{
      EM.system('sh', '--version', proc{ |process|
      }, proc{ |out,status|
        $out = out
        $status = status
        EM.stop
      })
    }

    assert_match(/version/i, $out)
  end

  def test_em_system_spaced_arguments
    EM.run{
      EM.system('ruby', '-e', 'puts "hello"', proc{ |out,status|
        $out = out
        EM.stop
      })
    }

    assert_equal("hello\n", $out)
  end
end