/*

 * Copyright (c) 2006, Oracle and/or its affiliates. All rights reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

/*

 * A test for

 * 6469606: (process) Process.destroy() can kill wrong process (Unix)

 * that is not suitable for use as a regression test, because it must

 * create 32768 processes, and depends on perl.

 */

import java.io.*;

public class FeelingLucky {

    public static void main(String[] args) throws Throwable {

        final Runtime rt = Runtime.getRuntime();

        final String[] pidPrinter = {"/bin/sh", "-c", "echo $$"};

        final Process minedProcess = rt.exec(pidPrinter);

        int minedPid = 0;

        final InputStream is = minedProcess.getInputStream();

        int c;

        while ((c = is.read()) >= '0' && c <= '9')

            minedPid = 10 * minedPid + (c - '0');

        System.out.printf("minedPid=%d%n", minedPid);

        minedProcess.waitFor();

        final String[] magnum = {

            "perl", "-e",

            "my $punk = getppid();" +

            "open TTY, '> /dev/tty';" +

            "print TTY \"punk=$punk\\n\";" +

            "for (my $i = 0; $i < 32768; $i++) {" +

            "  my $pid = fork();" +

            "  if ($pid == 0) {" +

            "    if ($$ == " + minedPid + ") {" +

            "      print TTY \"MATCH $$ $punk\\n\";" +

            "      $SIG{TERM} = sub {" +

            "        print TTY \"Got TERM $$ $punk\\n\";" +

            "        kill 9, $punk;" +

            "        exit; };" +

            "      $| = 1; print 'Go ahead.  Make my day.';" +

            "      sleep 100;" +

            "    }" +

            "    exit;" +

            "  } else { " +

            "    waitpid($pid,0);" +

            "    break if $pid == " + minedPid + ";" +

            "  }" +

            "}"

        };

        Process p = rt.exec(magnum);

        if (p.getInputStream().read() != -1) {

            System.out.println("got a char");

            minedProcess.destroy();

            Thread.sleep(1000);

        }

    }

}