Remove all perl scripts from Tools/Scripts

Tools/Scripts/webkitperl/VCSUtils_unittest/mergeChangeLogs.pl

-#!/usr/bin/perl
-#
-# Copyright (C) 2010 Apple Inc. All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions
-# are met:
-# 1.  Redistributions of source code must retain the above copyright
-#     notice, this list of conditions and the following disclaimer.
-# 2.  Redistributions in binary form must reproduce the above copyright
-#     notice, this list of conditions and the following disclaimer in the
-#     documentation and/or other materials provided with the distribution.
-#
-# THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS'' AND ANY
-# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-# DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY
-# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-# Unit tests of VCSUtils::mergeChangeLogs().
-
-use strict;
-
-use Test::Simple tests => 16;
-use File::Temp qw(tempfile);
-use VCSUtils;
-
-# Read contents of a file and return it.
-sub readFile($)
-{
-    my ($fileName) = @_;
-
-    local $/;
-    open(FH, "<", $fileName);
-    my $content = <FH>;
-    close(FH);
-
-    return $content;
-}
-
-# Write a temporary file and return the filename.
-sub writeTempFile($$$)
-{
-    my ($name, $extension, $content) = @_;
-
-    my ($FH, $fileName) = tempfile(
-        $name . "-XXXXXXXX",
-        DIR => ($ENV{'TMPDIR'} || $ENV{'TEMP'} || "/tmp"),
-        UNLINK => 0,
-    );
-    print $FH $content;
-    close $FH;
-
-    if ($extension) {
-        my $newFileName = $fileName . $extension;
-        rename($fileName, $newFileName);
-        $fileName = $newFileName;
-    }
-
-    return $fileName;
-}
-
-# --------------------------------------------------------------------------------
-
-{
-    # New test
-    my $title = "mergeChangeLogs: traditional rejected patch success";
-
-    my $fileNewerContent = <<'EOF';
-2010-01-29  Mark Rowe  <mrowe@apple.com>
-
-        Fix the Mac build.
-
-        Disable ENABLE_INDEXED_DATABASE since it is "completely non-functional".
-
-2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-        Rubber-stamped by Maciej Stachowiak.
-
-        Fix the ARM build.
-EOF
-    my $fileNewer = writeTempFile("file", "", $fileNewerContent);
-
-    my $fileMineContent = <<'EOF';
-***************
-*** 1,3 ****
-  2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-          Rubber-stamped by Maciej Stachowiak.
---- 1,9 ----
-+ 2010-01-29  Oliver Hunt  <oliver@apple.com>
-+
-+         Reviewed by Darin Adler.
-+
-+         JSC is failing to propagate anonymous slot count on some transitions
-+
-  2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-          Rubber-stamped by Maciej Stachowiak.
-EOF
-    my $fileMine = writeTempFile("file", ".rej", $fileMineContent);
-    rename($fileMine, $fileNewer . ".rej");
-    $fileMine = $fileNewer . ".rej";
-
-    my $fileOlderContent = $fileNewerContent;
-    my $fileOlder = writeTempFile("file", ".orig", $fileOlderContent);
-    rename($fileOlder, $fileNewer . ".orig");
-    $fileOlder = $fileNewer . ".orig";
-
-    my $exitStatus = mergeChangeLogs($fileMine, $fileOlder, $fileNewer);
-
-    # mergeChangeLogs() should return 1 since the patch succeeded.
-    ok($exitStatus == 1, "$title: should return 1 for success");
-
-    ok(readFile($fileMine) eq $fileMineContent, "$title: \$fileMine should be unchanged");
-    ok(readFile($fileOlder) eq $fileOlderContent, "$title: \$fileOlder should be unchanged");
-
-    my $expectedContent = <<'EOF';
-2010-01-29  Oliver Hunt  <oliver@apple.com>
-
-        Reviewed by Darin Adler.
-
-        JSC is failing to propagate anonymous slot count on some transitions
-
-EOF
-    $expectedContent .= $fileNewerContent;
-    ok(readFile($fileNewer) eq $expectedContent, "$title: \$fileNewer should be updated to include patch");
-
-    unlink($fileMine, $fileOlder, $fileNewer);
-}
-
-# --------------------------------------------------------------------------------
-
-{
-    # New test
-    my $title = "mergeChangeLogs: traditional rejected patch failure";
-
-    my $fileNewerContent = <<'EOF';
-2010-01-29  Mark Rowe  <mrowe@apple.com>
-
-        Fix the Mac build.
-
-        Disable ENABLE_INDEXED_DATABASE since it is "completely non-functional".
-
-2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-        Rubber-stamped by Maciej Stachowiak.
-
-        Fix the ARM build.
-EOF
-    my $fileNewer = writeTempFile("file", "", $fileNewerContent);
-
-    my $fileMineContent = <<'EOF';
-***************
-*** 1,9 ****
-- 2010-01-29  Oliver Hunt  <oliver@apple.com>
--
--         Reviewed by Darin Adler.
--
--         JSC is failing to propagate anonymous slot count on some transitions
--
-  2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-          Rubber-stamped by Maciej Stachowiak.
---- 1,3 ----
-  2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-          Rubber-stamped by Maciej Stachowiak.
-EOF
-    my $fileMine = writeTempFile("file", ".rej", $fileMineContent);
-    rename($fileMine, $fileNewer . ".rej");
-    $fileMine = $fileNewer . ".rej";
-
-    my $fileOlderContent = $fileNewerContent;
-    my $fileOlder = writeTempFile("file", ".orig", $fileOlderContent);
-    rename($fileOlder, $fileNewer . ".orig");
-    $fileOlder = $fileNewer . ".orig";
-
-    my $exitStatus = mergeChangeLogs($fileMine, $fileOlder, $fileNewer);
-
-    # mergeChangeLogs() should return 0 since the patch failed.
-    ok($exitStatus == 0, "$title: should return 0 for failure");
-
-    ok(readFile($fileMine) eq $fileMineContent, "$title: \$fileMine should be unchanged");
-    ok(readFile($fileOlder) eq $fileOlderContent, "$title: \$fileOlder should be unchanged");
-    ok(readFile($fileNewer) eq $fileNewerContent, "$title: \$fileNewer should be unchanged");
-
-    unlink($fileMine, $fileOlder, $fileNewer);
-}
-
-# --------------------------------------------------------------------------------
-
-{
-    # New test
-    my $title = "mergeChangeLogs: patch succeeds";
-
-    my $fileMineContent = <<'EOF';
-2010-01-29  Oliver Hunt  <oliver@apple.com>
-
-        Reviewed by Darin Adler.
-
-        JSC is failing to propagate anonymous slot count on some transitions
-
-2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-        Rubber-stamped by Maciej Stachowiak.
-
-        Fix the ARM build.
-EOF
-    my $fileMine = writeTempFile("fileMine", "", $fileMineContent);
-
-    my $fileOlderContent = <<'EOF';
-2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-        Rubber-stamped by Maciej Stachowiak.
-
-        Fix the ARM build.
-EOF
-    my $fileOlder = writeTempFile("fileOlder", "", $fileOlderContent);
-
-    my $fileNewerContent = <<'EOF';
-2010-01-29  Mark Rowe  <mrowe@apple.com>
-
-        Fix the Mac build.
-
-        Disable ENABLE_INDEXED_DATABASE since it is "completely non-functional".
-
-2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-        Rubber-stamped by Maciej Stachowiak.
-
-        Fix the ARM build.
-EOF
-    my $fileNewer = writeTempFile("fileNewer", "", $fileNewerContent);
-
-    my $exitStatus = mergeChangeLogs($fileMine, $fileOlder, $fileNewer);
-
-    # mergeChangeLogs() should return 1 since the patch succeeded.
-    ok($exitStatus == 1, "$title: should return 1 for success");
-
-    ok(readFile($fileMine) eq $fileMineContent, "$title: \$fileMine should be unchanged");
-    ok(readFile($fileOlder) eq $fileOlderContent, "$title: \$fileOlder should be unchanged");
-
-    my $expectedContent = <<'EOF';
-2010-01-29  Oliver Hunt  <oliver@apple.com>
-
-        Reviewed by Darin Adler.
-
-        JSC is failing to propagate anonymous slot count on some transitions
-
-EOF
-    $expectedContent .= $fileNewerContent;
-
-    ok(readFile($fileNewer) eq $expectedContent, "$title: \$fileNewer should be patched");
-
-    unlink($fileMine, $fileOlder, $fileNewer);
-}
-
-# --------------------------------------------------------------------------------
-
-{
-    # New test
-    my $title = "mergeChangeLogs: patch fails";
-
-    my $fileMineContent = <<'EOF';
-2010-01-29  Mark Rowe  <mrowe@apple.com>
-
-        Fix the Mac build.
-
-        Disable ENABLE_INDEXED_DATABASE since it is "completely non-functional".
-
-2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-        Rubber-stamped by Maciej Stachowiak.
-
-        Fix the ARM build.
-EOF
-    my $fileMine = writeTempFile("fileMine", "", $fileMineContent);
-
-    my $fileOlderContent = <<'EOF';
-2010-01-29  Mark Rowe  <mrowe@apple.com>
-
-        Fix the Mac build.
-
-        Disable ENABLE_INDEXED_DATABASE since it is "completely non-functional".
-
-2010-01-29  Oliver Hunt  <oliver@apple.com>
-
-        Reviewed by Darin Adler.
-
-        JSC is failing to propagate anonymous slot count on some transitions
-
-2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-        Rubber-stamped by Maciej Stachowiak.
-
-        Fix the ARM build.
-EOF
-    my $fileOlder = writeTempFile("fileOlder", "", $fileOlderContent);
-
-    my $fileNewerContent = <<'EOF';
-2010-01-29  Oliver Hunt  <oliver@apple.com>
-
-        Reviewed by Darin Adler.
-
-        JSC is failing to propagate anonymous slot count on some transitions
-
-2010-01-29  Simon Hausmann  <simon.hausmann@nokia.com>
-
-        Rubber-stamped by Maciej Stachowiak.
-
-        Fix the ARM build.
-EOF
-    my $fileNewer = writeTempFile("fileNewer", "", $fileNewerContent);
-
-    my $exitStatus = mergeChangeLogs($fileMine, $fileOlder, $fileNewer);
-
-    # mergeChangeLogs() should return a non-zero exit status since the patch failed.
-    ok($exitStatus == 0, "$title: return non-zero exit status for failure");
-
-    ok(readFile($fileMine) eq $fileMineContent, "$title: \$fileMine should be unchanged");
-    ok(readFile($fileOlder) eq $fileOlderContent, "$title: \$fileOlder should be unchanged");
-
-    # $fileNewer should still exist unchanged because the patch failed
-    ok(readFile($fileNewer) eq $fileNewerContent, "$title: \$fileNewer should be unchanged");
-
-    unlink($fileMine, $fileOlder, $fileNewer);
-}
-
-# --------------------------------------------------------------------------------
-