diff options
Diffstat (limited to 'Tools/Scripts/webkitperl/VCSUtils_unittest/parseChunkRange.pl')
| -rw-r--r-- | Tools/Scripts/webkitperl/VCSUtils_unittest/parseChunkRange.pl | 237 |
1 files changed, 237 insertions, 0 deletions
diff --git a/Tools/Scripts/webkitperl/VCSUtils_unittest/parseChunkRange.pl b/Tools/Scripts/webkitperl/VCSUtils_unittest/parseChunkRange.pl new file mode 100644 index 000000000..cda5d2829 --- /dev/null +++ b/Tools/Scripts/webkitperl/VCSUtils_unittest/parseChunkRange.pl @@ -0,0 +1,237 @@ +#!/usr/bin/perl -w +# +# Copyright (C) 2011 Research In Motion Limited. 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 VCSUtils::parseChunkRange(). + +use strict; +use warnings; + +use Test::More; +use VCSUtils; + +my @testCaseHashRefs = ( +### +# Invalid and malformed chunk range +## +# FIXME: We should make this set of tests more comprehensive. +{ # New test + testName => "[invalid] Empty string", + inputText => "", + expectedReturn => [] +}, +{ # New test + testName => "[invalid] Bogus chunk range", + inputText => "@@ this is not valid @@", + expectedReturn => [] +}, +{ # New test + testName => "[invalid] Chunk range missing -/+ prefix", + inputText => "@@ 0,0 1,4 @@", + expectedReturn => [] +}, +{ # New test + testName => "[invalid] Chunk range missing commas", + inputText => "@@ -0 0 +1 4 @@", + expectedReturn => [] +}, +{ # New test + testName => "[invalid] Chunk range with swapped old and rew ranges", + inputText => "@@ +0,0 -1,4 @@", + expectedReturn => [] +}, +{ # New test + testName => "[invalid] Chunk range with leading junk", + inputText => "leading junk @@ -0,0 +1,4 @@", + expectedReturn => [] +}, +### +# Simple test cases +## +{ # New test + testName => "Line count is 0", + inputText => "@@ -0,0 +1,4 @@", + expectedReturn => [ +{ + startingLine => 0, + lineCount => 0, + newStartingLine => 1, + newLineCount => 4, +} +] +}, +{ # New test + testName => "Line count is 1", + inputText => "@@ -1 +1,4 @@", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 1, + newStartingLine => 1, + newLineCount => 4, +} +] +}, +{ # New test + testName => "Both original and new line count is 1", + inputText => "@@ -1 +1 @@", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 1, + newStartingLine => 1, + newLineCount => 1, +} +] +}, +{ # New test + testName => "Line count and new line count > 1", + inputText => "@@ -1,2 +1,4 @@", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 2, + newStartingLine => 1, + newLineCount => 4, +} +] +}, +{ # New test + testName => "New line count is 0", + inputText => "@@ -1,4 +0,0 @@", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 4, + newStartingLine => 0, + newLineCount => 0, +} +] +}, +{ # New test + testName => "New line count is 1", + inputText => "@@ -1,4 +1 @@", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 4, + newStartingLine => 1, + newLineCount => 1, +} +] +}, +### +# Chunk range followed by ending junk +## +{ # New test + testName => "Line count is 0 and chunk range has ending junk", + inputText => "@@ -0,0 +1,4 @@ foo()", + expectedReturn => [ +{ + startingLine => 0, + lineCount => 0, + newStartingLine => 1, + newLineCount => 4, +} +] +}, +{ # New test + testName => "Line count is 1 and chunk range has ending junk", + inputText => "@@ -1 +1,4 @@ foo()", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 1, + newStartingLine => 1, + newLineCount => 4, +} +] +}, +{ # New test + testName => "Both original and new line count is 1 and chunk range has ending junk", + inputText => "@@ -1 +1 @@ foo()", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 1, + newStartingLine => 1, + newLineCount => 1, +} +] +}, +{ # New test + testName => "Line count and new line count > 1 and chunk range has ending junk", + inputText => "@@ -1,2 +1,4 @@ foo()", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 2, + newStartingLine => 1, + newLineCount => 4, +} +] +}, +{ # New test + testName => "New line count is 0 and chunk range has ending junk", + inputText => "@@ -1,4 +0,0 @@ foo()", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 4, + newStartingLine => 0, + newLineCount => 0, +} +] +}, +{ # New test + testName => "New line count is 1 and chunk range has ending junk", + inputText => "@@ -1,4 +1 @@ foo()", + expectedReturn => [ +{ + startingLine => 1, + lineCount => 4, + newStartingLine => 1, + newLineCount => 1, +} +] +}, +); + +my $testCasesCount = @testCaseHashRefs; +plan(tests => $testCasesCount); + +foreach my $testCase (@testCaseHashRefs) { + my $testNameStart = "parseChunkRange(): $testCase->{testName}: comparing"; + + my @got = VCSUtils::parseChunkRange($testCase->{inputText}); + my $expectedReturn = $testCase->{expectedReturn}; + + is_deeply(\@got, $expectedReturn, "$testNameStart return value."); +} |