Remove all perl scripts from Tools/Scripts

Tools/Scripts/webkitperl/VCSUtils_unittest/parseSvnPropertyValue.pl

-#!/usr/bin/perl -w
-#
-# Copyright (C) Research in Motion Limited 2010. All Rights Reserved.
-# Copyright (C) 2010 Chris Jerdonek (chris.jerdonek@gmail.com)
-# Copyright (C) 2012 Daniel Bates (dbates@intudata.com)
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are
-# met:
-#
-#     * Redistributions of source code must retain the above copyright
-# notice, this list of conditions and the following disclaimer.
-#     * 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.
-#     * Neither the name of Apple Computer, Inc. ("Apple") nor the names of
-# its contributors may be used to endorse or promote products derived
-# from this software without specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND 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 THE COPYRIGHT
-# OWNER OR 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 parseSvnPropertyValue().
-
-use strict;
-use warnings;
-
-use Test::More;
-use VCSUtils;
-
-my @testCaseHashRefs = (
-{
-    # New test
-    diffName => "singe-line '+' change",
-    inputText => <<'END',
-   + *
-END
-    expectedReturn => ["*", undef],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "single-line '-' change",
-    inputText => <<'END',
-   - *
-END
-    expectedReturn => ["*", undef],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "'Merged' change",
-    inputText => <<'END',
-   Merged /trunk/Makefile:r33020
-END
-    expectedReturn => ["/trunk/Makefile:r33020", undef],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "'Reverse-merged' change",
-    inputText => <<'END',
-   Reverse-merged /trunk/Makefile:r33020
-END
-    expectedReturn => ["/trunk/Makefile:r33020", undef],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "single-line '-' change followed by empty line with Unix line endings",
-    inputText => <<'END',
-   - *
-
-END
-    expectedReturn => ["*", "\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "single-line '-' change followed by empty line with Windows line endings",
-    inputText => toWindowsLineEndings(<<'END',
-   - *
-
-END
-),
-    expectedReturn => ["*", "\r\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "single-line '-' change followed by the next property",
-    inputText => <<'END',
-   - *
-Deleted: svn:executable
-END
-    expectedReturn => ["*", "Deleted: svn:executable\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "multi-line '+' change and start of binary patch",
-    inputText => <<'END',
-   + A
-long sentence that spans
-multiple lines.
-
-Q1dTBx0AAAB42itg4GlgYJjGwMDDyODMxMDw34GBgQEAJPQDJA==
-END
-    expectedReturn => ["A\nlong sentence that spans\nmultiple lines.", "\n"],
-    expectedNextLine => "Q1dTBx0AAAB42itg4GlgYJjGwMDDyODMxMDw34GBgQEAJPQDJA==\n",
-},
-{
-    # New test
-    diffName => "multi-line '+' change and start of binary patch with Windows line endings",
-    inputText => toWindowsLineEndings(<<'END',
-   + A
-long sentence that spans
-multiple lines.
-
-Q1dTBx0AAAB42itg4GlgYJjGwMDDyODMxMDw34GBgQEAJPQDJA==
-END
-),
-    expectedReturn => ["A\r\nlong sentence that spans\r\nmultiple lines.", "\r\n"],
-    expectedNextLine => "Q1dTBx0AAAB42itg4GlgYJjGwMDDyODMxMDw34GBgQEAJPQDJA==\r\n",
-},
-{
-    # New test
-    diffName => "multi-line '-' change followed by '+' single-line change",
-    inputText => <<'END',
-   - A
-long sentence that spans
-multiple lines.
-   + A single-line.
-END
-    expectedReturn => ["A\nlong sentence that spans\nmultiple lines.", "   + A single-line.\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "multi-line '-' change followed by the next property",
-    inputText => <<'END',
-   - A
-long sentence that spans
-multiple lines.
-Added: svn:executable
-END
-    expectedReturn => ["A\nlong sentence that spans\nmultiple lines.", "Added: svn:executable\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "multi-line '-' change followed by '+' multi-line change",
-    inputText => <<'END',
-   - A
-long sentence that spans
-multiple lines.
-   + Another
-long sentence that spans
-multiple lines.
-END
-    expectedReturn => ["A\nlong sentence that spans\nmultiple lines.", "   + Another\n"],
-    expectedNextLine => "long sentence that spans\n",
-},
-{
-    # New test
-    diffName => "'Reverse-merged' change followed by 'Merge' change",
-    inputText => <<'END',
-   Reverse-merged /trunk/Makefile:r33020
-   Merged /trunk/Makefile:r41697
-END
-    expectedReturn => ["/trunk/Makefile:r33020", "   Merged /trunk/Makefile:r41697\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "'Merged' change followed by 'Merge' change",
-    inputText => <<'END',
-   Merged /trunk/Makefile:r33020
-   Merged /trunk/Makefile.shared:r58350
-END
-    expectedReturn => ["/trunk/Makefile:r33020", "   Merged /trunk/Makefile.shared:r58350\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "'Reverse-merged' change followed by 'Reverse-merged' change",
-    inputText => <<'END',
-   Reverse-merged /trunk/Makefile:r33020
-   Reverse-merged /trunk/Makefile.shared:r58350
-END
-    expectedReturn => ["/trunk/Makefile:r33020", "   Reverse-merged /trunk/Makefile.shared:r58350\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "'Reverse-merged' change followed by 'Reverse-merged' change followed by 'Merged' change",
-    inputText => <<'END',
-   Reverse-merged /trunk/Makefile:r33020
-   Reverse-merged /trunk/Makefile.shared:r58350
-   Merged /trunk/ChangeLog:r64190
-END
-    expectedReturn => ["/trunk/Makefile:r33020", "   Reverse-merged /trunk/Makefile.shared:r58350\n"],
-    expectedNextLine => "   Merged /trunk/ChangeLog:r64190\n",
-},
-##
-# Using SVN 1.7 syntax
-##
-{
-    # New test
-    diffName => "singe-line '+' change using SVN 1.7 syntax",
-    inputText => <<'END',
-+*
-\ No newline at end of property
-END
-    expectedReturn => ["*", "\\ No newline at end of property\n"],
-    expectedNextLine => undef,
-},
-{
-    # New test
-    diffName => "single-line '-' change using SVN 1.7 syntax",
-    inputText => <<'END',
--*
-\ No newline at end of property
-END
-    expectedReturn => ["*", "\\ No newline at end of property\n"],
-    expectedNextLine => undef,
-},
-);
-
-my $testCasesCount = @testCaseHashRefs;
-plan(tests => 2 * $testCasesCount); # Total number of assertions.
-
-foreach my $testCase (@testCaseHashRefs) {
-    my $testNameStart = "parseSvnPropertyValue(): $testCase->{diffName}: comparing";
-
-    my $fileHandle;
-    open($fileHandle, "<", \$testCase->{inputText});
-    my $line = <$fileHandle>;
-
-    my @got = VCSUtils::parseSvnPropertyValue($fileHandle, $line);
-    my $expectedReturn = $testCase->{expectedReturn};
-
-    is_deeply(\@got, $expectedReturn, "$testNameStart return value.");
-
-    my $gotNextLine = <$fileHandle>;
-    is($gotNextLine, $testCase->{expectedNextLine},  "$testNameStart next read line.");
-}