summaryrefslogtreecommitdiffstats
path: root/WebKitTools/Scripts/webkitperl/VCSUtils_unittest/parseSvnPropertyValue.pl
diff options
context:
space:
mode:
Diffstat (limited to 'WebKitTools/Scripts/webkitperl/VCSUtils_unittest/parseSvnPropertyValue.pl')
-rw-r--r--WebKitTools/Scripts/webkitperl/VCSUtils_unittest/parseSvnPropertyValue.pl233
1 files changed, 0 insertions, 233 deletions
diff --git a/WebKitTools/Scripts/webkitperl/VCSUtils_unittest/parseSvnPropertyValue.pl b/WebKitTools/Scripts/webkitperl/VCSUtils_unittest/parseSvnPropertyValue.pl
deleted file mode 100644
index 2de8ae3..0000000
--- a/WebKitTools/Scripts/webkitperl/VCSUtils_unittest/parseSvnPropertyValue.pl
+++ /dev/null
@@ -1,233 +0,0 @@
-#!/usr/bin/perl -w
-#
-# Copyright (C) Research in Motion Limited 2010. All Rights Reserved.
-# Copyright (C) 2010 Chris Jerdonek (chris.jerdonek@gmail.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",
-},
-);
-
-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.");
-}