diff options
Diffstat (limited to 'Tools/Scripts/webkitperl/VCSUtils_unittest/prepareParsedPatch.pl')
-rw-r--r-- | Tools/Scripts/webkitperl/VCSUtils_unittest/prepareParsedPatch.pl | 136 |
1 files changed, 0 insertions, 136 deletions
diff --git a/Tools/Scripts/webkitperl/VCSUtils_unittest/prepareParsedPatch.pl b/Tools/Scripts/webkitperl/VCSUtils_unittest/prepareParsedPatch.pl deleted file mode 100644 index a7ae80775..000000000 --- a/Tools/Scripts/webkitperl/VCSUtils_unittest/prepareParsedPatch.pl +++ /dev/null @@ -1,136 +0,0 @@ -#!/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); -} - |