diff options
Diffstat (limited to 'Tools/Scripts/webkitperl/VCSUtils_unittest/fixChangeLogPatch.pl')
| -rw-r--r-- | Tools/Scripts/webkitperl/VCSUtils_unittest/fixChangeLogPatch.pl | 525 |
1 files changed, 0 insertions, 525 deletions
diff --git a/Tools/Scripts/webkitperl/VCSUtils_unittest/fixChangeLogPatch.pl b/Tools/Scripts/webkitperl/VCSUtils_unittest/fixChangeLogPatch.pl deleted file mode 100644 index 261592d8e..000000000 --- a/Tools/Scripts/webkitperl/VCSUtils_unittest/fixChangeLogPatch.pl +++ /dev/null @@ -1,525 +0,0 @@ -#!/usr/bin/perl -# -# Copyright (C) 2009, 2010 Chris Jerdonek (chris.jerdonek@gmail.com) -# Copyright (C) Research In Motion 2010. All rights reserved. -# -# 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 Google Inc. 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 VCSUtils::fixChangeLogPatch(). - -use strict; -use warnings; - -use Test::More; -use VCSUtils; - -# The source ChangeLog for these tests is the following: -# -# 2009-12-22 Alice <alice@email.address> -# -# Reviewed by Ray. -# -# Changed some code on 2009-12-22. -# -# * File: -# * File2: -# -# 2009-12-21 Alice <alice@email.address> -# -# Reviewed by Ray. -# -# Changed some code on 2009-12-21. -# -# * File: -# * File2: - -my @testCaseHashRefs = ( -{ # New test - diffName => "fixChangeLogPatch: [no change] In-place change.", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,5 +1,5 @@ - 2010-12-22 Bob <bob@email.address> - -- Reviewed by Sue. -+ Reviewed by Ray. - - Changed some code on 2010-12-22. -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,5 +1,5 @@ - 2010-12-22 Bob <bob@email.address> - -- Reviewed by Sue. -+ Reviewed by Ray. - - Changed some code on 2010-12-22. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: [no change] Remove first entry.", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,11 +1,3 @@ --2010-12-22 Bob <bob@email.address> -- -- Reviewed by Ray. -- -- Changed some code on 2010-12-22. -- -- * File: -- - 2010-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,11 +1,3 @@ --2010-12-22 Bob <bob@email.address> -- -- Reviewed by Ray. -- -- Changed some code on 2010-12-22. -- -- * File: -- - 2010-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: [no change] Remove entry in the middle.", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@@ -7,10 +7,6 @@ - - * File: - --2010-12-22 Bob <bob@email.address> -- -- Changed some code on 2010-12-22. -- - 2010-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@@ -7,10 +7,6 @@ - - * File: - --2010-12-22 Bob <bob@email.address> -- -- Changed some code on 2010-12-22. -- - 2010-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: [no change] Far apart changes (i.e. more than one chunk).", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -7,7 +7,7 @@ - - * File: - --2010-12-22 Bob <bob@email.address> -+2010-12-22 Bobby <bob@email.address> - - Changed some code on 2010-12-22. - -@@ -21,7 +21,7 @@ - - * File2: - --2010-12-21 Bob <bob@email.address> -+2010-12-21 Bobby <bob@email.address> - - Changed some code on 2010-12-21. -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -7,7 +7,7 @@ - - * File: - --2010-12-22 Bob <bob@email.address> -+2010-12-22 Bobby <bob@email.address> - - Changed some code on 2010-12-22. - -@@ -21,7 +21,7 @@ - - * File2: - --2010-12-21 Bob <bob@email.address> -+2010-12-21 Bobby <bob@email.address> - - Changed some code on 2010-12-21. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: [no change] First line is new line.", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,3 +1,11 @@ -+2009-12-22 Bob <bob@email.address> -+ -+ Reviewed by Ray. -+ -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ - 2009-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,3 +1,11 @@ -+2009-12-22 Bob <bob@email.address> -+ -+ Reviewed by Ray. -+ -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ - 2009-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: [no change] No date string.", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -6,6 +6,7 @@ - - * File: - * File2: -+ * File3: - - 2009-12-21 Alice <alice@email.address> - -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -6,6 +6,7 @@ - - * File: - * File2: -+ * File3: - - 2009-12-21 Alice <alice@email.address> - -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: New entry inserted in middle.", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -11,6 +11,14 @@ - - Reviewed by Ray. - -+ Changed some more code on 2009-12-21. -+ -+ * File: -+ -+2009-12-21 Alice <alice@email.address> -+ -+ Reviewed by Ray. -+ - Changed some code on 2009-12-21. - - * File: -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,3 +1,11 @@ -+2009-12-21 Alice <alice@email.address> -+ -+ Reviewed by Ray. -+ -+ Changed some more code on 2009-12-21. -+ -+ * File: -+ - 2009-12-21 Alice <alice@email.address> - - Reviewed by Ray. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: New entry inserted earlier in the file, but after an entry with the same author and date.", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -70,6 +70,14 @@ - - 2009-12-22 Alice <alice@email.address> - -+ Reviewed by Sue. -+ -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ -+2009-12-22 Alice <alice@email.address> -+ - Reviewed by Ray. - - Changed some code on 2009-12-22. -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,3 +1,11 @@ -+2009-12-22 Alice <alice@email.address> -+ -+ Reviewed by Sue. -+ -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ - 2009-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: Leading context includes first line.", - inputText => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,5 +1,13 @@ - 2009-12-22 Alice <alice@email.address> - -+ Reviewed by Sue. -+ -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ -+2009-12-22 Alice <alice@email.address> -+ - Reviewed by Ray. - - Changed some code on 2009-12-22. -END - expectedReturn => { - patch => <<'END', ---- ChangeLog -+++ ChangeLog -@@ -1,3 +1,11 @@ -+2009-12-22 Alice <alice@email.address> -+ -+ Reviewed by Sue. -+ -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ - 2009-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: Leading context does not include first line.", - inputText => <<'END', -@@ -2,6 +2,14 @@ - - Reviewed by Ray. - -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ -+2009-12-22 Alice <alice@email.address> -+ -+ Reviewed by Ray. -+ - Changed some code on 2009-12-22. - - * File: -END - expectedReturn => { - patch => <<'END', -@@ -1,3 +1,11 @@ -+2009-12-22 Alice <alice@email.address> -+ -+ Reviewed by Ray. -+ -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ - 2009-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: Non-consecutive line additions.", - -# This can occur, for example, if the new ChangeLog entry includes -# trailing white space in the first blank line but not the second. -# A diff command can then match the second blank line of the new -# ChangeLog entry with the first blank line of the old. -# The svn diff command with the default --diff-cmd has done this. - inputText => <<'END', -@@ -1,5 +1,11 @@ - 2009-12-22 Alice <alice@email.address> -+ <pretend-whitespace> -+ Reviewed by Ray. - -+ Changed some more code on 2009-12-22. -+ -+2009-12-22 Alice <alice@email.address> -+ - Reviewed by Ray. - - Changed some code on 2009-12-22. -END - expectedReturn => { - patch => <<'END', -@@ -1,3 +1,9 @@ -+2009-12-22 Alice <alice@email.address> -+ <pretend-whitespace> -+ Reviewed by Ray. -+ -+ Changed some more code on 2009-12-22. -+ - 2009-12-22 Alice <alice@email.address> - - Reviewed by Ray. -END - } -}, -{ # New test - diffName => "fixChangeLogPatch: Additional edits after new entry.", - inputText => <<'END', -@@ -2,10 +2,17 @@ - - Reviewed by Ray. - -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ -+2009-12-22 Alice <alice@email.address> -+ -+ Reviewed by Ray. -+ - Changed some code on 2009-12-22. - - * File: -- * File2: - - 2009-12-21 Alice <alice@email.address> - -END - expectedReturn => { - patch => <<'END', -@@ -1,11 +1,18 @@ -+2009-12-22 Alice <alice@email.address> -+ -+ Reviewed by Ray. -+ -+ Changed some more code on 2009-12-22. -+ -+ * File: -+ - 2009-12-22 Alice <alice@email.address> - - Reviewed by Ray. - - Changed some code on 2009-12-22. - - * File: -- * File2: - - 2009-12-21 Alice <alice@email.address> - -END - } -}, -); - -my $testCasesCount = @testCaseHashRefs; -plan(tests => $testCasesCount); # Total number of assertions. - -foreach my $testCase (@testCaseHashRefs) { - my $testNameStart = "fixChangeLogPatch(): $testCase->{diffName}: comparing"; - - my $got = VCSUtils::fixChangeLogPatch($testCase->{inputText}); - my $expectedReturn = $testCase->{expectedReturn}; - - is_deeply($got, $expectedReturn, "$testNameStart return value."); -} |