Remove all perl scripts from Tools/Scripts

Tools/Scripts/webkitperl/VCSUtils_unittest/prepareParsedPatch.pl

-#!/usr/bin/perl -w
-#
-# Copyright (C) 2010 Chris Jerdonek (cjerdonek@webkit.org)
-#
-# 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 prepareParsedPatch().
-
-use strict;
-use warnings;
-
-use Test::More;
-use VCSUtils;
-
-my $diffHashRef1 = { # not a copy, no source revision
-    copiedFromPath => undef,
-    indexPath => "indexPath1",
-    sourceRevision => undef,
-    svnConvertedText => "diff1",
-};
-my $diffHashRef2 = { # not a copy, has source revision
-    copiedFromPath => undef,
-    indexPath => "indexPath2",
-    sourceRevision => 20,
-    svnConvertedText => "diff2",
-};
-my $diffHashRef3 = { # a copy (copies always have source revision)
-    copiedFromPath => "sourcePath3",
-    indexPath => "indexPath2", # Deliberately choosing same as $diffHashRef2
-    sourceRevision => 3,
-    svnConvertedText => "diff3",
-};
-
-my @testCases = (
-{
-    # New test
-    testName => "zero diffs: empty array",
-    diffHashRefsInput => [],
-    expected => {
-        copyDiffHashRefs => [],
-        nonCopyDiffHashRefs => [],
-        sourceRevisionHash => {},
-    },
-},
-{
-    # New test
-    testName => "one diff: non-copy, no revision",
-    diffHashRefsInput => [$diffHashRef1],
-    expected => {
-        copyDiffHashRefs => [],
-        nonCopyDiffHashRefs => [$diffHashRef1],
-        sourceRevisionHash => {},
-    },
-},
-{
-    # New test
-    testName => "one diff: non-copy, has revision",
-    diffHashRefsInput => [$diffHashRef2],
-    expected => {
-        copyDiffHashRefs => [],
-        nonCopyDiffHashRefs => [$diffHashRef2],
-        sourceRevisionHash => {
-            "indexPath2" => 20,
-        }
-    },
-},
-{
-    # New test
-    testName => "one diff: copy (has revision)",
-    diffHashRefsInput => [$diffHashRef3],
-    expected => {
-        copyDiffHashRefs => [$diffHashRef3],
-        nonCopyDiffHashRefs => [],
-        sourceRevisionHash => {
-            "sourcePath3" => 3,
-        }
-    },
-},
-{
-    # New test
-    testName => "two diffs: two non-copies",
-    diffHashRefsInput => [$diffHashRef1, $diffHashRef2],
-    expected => {
-        copyDiffHashRefs => [],
-        nonCopyDiffHashRefs => [$diffHashRef1, $diffHashRef2],
-        sourceRevisionHash => {
-            "indexPath2" => 20,
-        }
-    },
-},
-{
-    # New test
-    testName => "two diffs: non-copy and copy",
-    diffHashRefsInput => [$diffHashRef2, $diffHashRef3],
-    expected => {
-        copyDiffHashRefs => [$diffHashRef3],
-        nonCopyDiffHashRefs => [$diffHashRef2],
-        sourceRevisionHash => {
-            "sourcePath3" => 3,
-            "indexPath2" => 20,
-        }
-    },
-},
-);
-
-my $testCasesCount = @testCases;
-plan(tests => $testCasesCount);
-
-foreach my $testCase (@testCases) {
-    my $testName = $testCase->{testName};
-    my @diffHashRefs = @{$testCase->{diffHashRefsInput}};
-    my $expected = $testCase->{expected};
-
-    my $got = prepareParsedPatch(0, @diffHashRefs);
-
-    is_deeply($got, $expected, $testName);
-}
-