code.vuplus.com Git - vuplus_webkit/blob - Tools/Scripts/webkitperl/VCSUtils_unittest/parseSvnPropertyValue.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Copyright (C) Research in Motion Limited 2010. All Rights Reserved.
   4 # Copyright (C) 2010 Chris Jerdonek (chris.jerdonek@gmail.com)
   5 #
   6 # Redistribution and use in source and binary forms, with or without
   7 # modification, are permitted provided that the following conditions are
   8 # met:
   9 #
  10 #     * Redistributions of source code must retain the above copyright
  11 # notice, this list of conditions and the following disclaimer.
  12 #     * Redistributions in binary form must reproduce the above
  13 # copyright notice, this list of conditions and the following disclaimer
  14 # in the documentation and/or other materials provided with the
  15 # distribution.
  16 #     * Neither the name of Apple Computer, Inc. ("Apple") nor the names of
  17 # its contributors may be used to endorse or promote products derived
  18 # from this software without specific prior written permission.
  19 #
  20 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  21 # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
  22 # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
  23 # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
  24 # OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  25 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  26 # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  27 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  28 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  29 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  30 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  31
  32 # Unit tests of parseSvnPropertyValue().
  33
  34 use strict;
  35 use warnings;
  36
  37 use Test::More;
  38 use VCSUtils;
  39
  40 my @testCaseHashRefs = (
  41 {
  42     # New test
  43     diffName => "singe-line '+' change",
  44     inputText => <<'END',
  45    + *
  46 END
  47     expectedReturn => ["*", undef],
  48     expectedNextLine => undef,
  49 },
  50 {
  51     # New test
  52     diffName => "single-line '-' change",
  53     inputText => <<'END',
  54    - *
  55 END
  56     expectedReturn => ["*", undef],
  57     expectedNextLine => undef,
  58 },
  59 {
  60     # New test
  61     diffName => "'Merged' change",
  62     inputText => <<'END',
  63    Merged /trunk/Makefile:r33020
  64 END
  65     expectedReturn => ["/trunk/Makefile:r33020", undef],
  66     expectedNextLine => undef,
  67 },
  68 {
  69     # New test
  70     diffName => "'Reverse-merged' change",
  71     inputText => <<'END',
  72    Reverse-merged /trunk/Makefile:r33020
  73 END
  74     expectedReturn => ["/trunk/Makefile:r33020", undef],
  75     expectedNextLine => undef,
  76 },
  77 {
  78     # New test
  79     diffName => "single-line '-' change followed by empty line with Unix line endings",
  80     inputText => <<'END',
  81    - *
  82
  83 END
  84     expectedReturn => ["*", "\n"],
  85     expectedNextLine => undef,
  86 },
  87 {
  88     # New test
  89     diffName => "single-line '-' change followed by empty line with Windows line endings",
  90     inputText => toWindowsLineEndings(<<'END',
  91    - *
  92
  93 END
  94 ),
  95     expectedReturn => ["*", "\r\n"],
  96     expectedNextLine => undef,
  97 },
  98 {
  99     # New test
 100     diffName => "single-line '-' change followed by the next property",
 101     inputText => <<'END',
 102    - *
 103 Deleted: svn:executable
 104 END
 105     expectedReturn => ["*", "Deleted: svn:executable\n"],
 106     expectedNextLine => undef,
 107 },
 108 {
 109     # New test
 110     diffName => "multi-line '+' change and start of binary patch",
 111     inputText => <<'END',
 112    + A
 113 long sentence that spans
 114 multiple lines.
 115
 116 Q1dTBx0AAAB42itg4GlgYJjGwMDDyODMxMDw34GBgQEAJPQDJA==
 117 END
 118     expectedReturn => ["A\nlong sentence that spans\nmultiple lines.", "\n"],
 119     expectedNextLine => "Q1dTBx0AAAB42itg4GlgYJjGwMDDyODMxMDw34GBgQEAJPQDJA==\n",
 120 },
 121 {
 122     # New test
 123     diffName => "multi-line '+' change and start of binary patch with Windows line endings",
 124     inputText => toWindowsLineEndings(<<'END',
 125    + A
 126 long sentence that spans
 127 multiple lines.
 128
 129 Q1dTBx0AAAB42itg4GlgYJjGwMDDyODMxMDw34GBgQEAJPQDJA==
 130 END
 131 ),
 132     expectedReturn => ["A\r\nlong sentence that spans\r\nmultiple lines.", "\r\n"],
 133     expectedNextLine => "Q1dTBx0AAAB42itg4GlgYJjGwMDDyODMxMDw34GBgQEAJPQDJA==\r\n",
 134 },
 135 {
 136     # New test
 137     diffName => "multi-line '-' change followed by '+' single-line change",
 138     inputText => <<'END',
 139    - A
 140 long sentence that spans
 141 multiple lines.
 142    + A single-line.
 143 END
 144     expectedReturn => ["A\nlong sentence that spans\nmultiple lines.", "   + A single-line.\n"],
 145     expectedNextLine => undef,
 146 },
 147 {
 148     # New test
 149     diffName => "multi-line '-' change followed by the next property",
 150     inputText => <<'END',
 151    - A
 152 long sentence that spans
 153 multiple lines.
 154 Added: svn:executable
 155 END
 156     expectedReturn => ["A\nlong sentence that spans\nmultiple lines.", "Added: svn:executable\n"],
 157     expectedNextLine => undef,
 158 },
 159 {
 160     # New test
 161     diffName => "multi-line '-' change followed by '+' multi-line change",
 162     inputText => <<'END',
 163    - A
 164 long sentence that spans
 165 multiple lines.
 166    + Another
 167 long sentence that spans
 168 multiple lines.
 169 END
 170     expectedReturn => ["A\nlong sentence that spans\nmultiple lines.", "   + Another\n"],
 171     expectedNextLine => "long sentence that spans\n",
 172 },
 173 {
 174     # New test
 175     diffName => "'Reverse-merged' change followed by 'Merge' change",
 176     inputText => <<'END',
 177    Reverse-merged /trunk/Makefile:r33020
 178    Merged /trunk/Makefile:r41697
 179 END
 180     expectedReturn => ["/trunk/Makefile:r33020", "   Merged /trunk/Makefile:r41697\n"],
 181     expectedNextLine => undef,
 182 },
 183 {
 184     # New test
 185     diffName => "'Merged' change followed by 'Merge' change",
 186     inputText => <<'END',
 187    Merged /trunk/Makefile:r33020
 188    Merged /trunk/Makefile.shared:r58350
 189 END
 190     expectedReturn => ["/trunk/Makefile:r33020", "   Merged /trunk/Makefile.shared:r58350\n"],
 191     expectedNextLine => undef,
 192 },
 193 {
 194     # New test
 195     diffName => "'Reverse-merged' change followed by 'Reverse-merged' change",
 196     inputText => <<'END',
 197    Reverse-merged /trunk/Makefile:r33020
 198    Reverse-merged /trunk/Makefile.shared:r58350
 199 END
 200     expectedReturn => ["/trunk/Makefile:r33020", "   Reverse-merged /trunk/Makefile.shared:r58350\n"],
 201     expectedNextLine => undef,
 202 },
 203 {
 204     # New test
 205     diffName => "'Reverse-merged' change followed by 'Reverse-merged' change followed by 'Merged' change",
 206     inputText => <<'END',
 207    Reverse-merged /trunk/Makefile:r33020
 208    Reverse-merged /trunk/Makefile.shared:r58350
 209    Merged /trunk/ChangeLog:r64190
 210 END
 211     expectedReturn => ["/trunk/Makefile:r33020", "   Reverse-merged /trunk/Makefile.shared:r58350\n"],
 212     expectedNextLine => "   Merged /trunk/ChangeLog:r64190\n",
 213 },
 214 );
 215
 216 my $testCasesCount = @testCaseHashRefs;
 217 plan(tests => 2 * $testCasesCount); # Total number of assertions.
 218
 219 foreach my $testCase (@testCaseHashRefs) {
 220     my $testNameStart = "parseSvnPropertyValue(): $testCase->{diffName}: comparing";
 221
 222     my $fileHandle;
 223     open($fileHandle, "<", \$testCase->{inputText});
 224     my $line = <$fileHandle>;
 225
 226     my @got = VCSUtils::parseSvnPropertyValue($fileHandle, $line);
 227     my $expectedReturn = $testCase->{expectedReturn};
 228
 229     is_deeply(\@got, $expectedReturn, "$testNameStart return value.");
 230
 231     my $gotNextLine = <$fileHandle>;
 232     is($gotNextLine, $testCase->{expectedNextLine},  "$testNameStart next read line.");
 233 }