Home | History | Annotate | Download | only in VCSUtils_unittest 
      1 #!/usr/bin/perl -w
      2 #
      3 # Copyright (C) 2010 Chris Jerdonek (chris.jerdonek (at] gmail.com)
      4 #
      5 # Redistribution and use in source and binary forms, with or without
      6 # modification, are permitted provided that the following conditions
      7 # are met:
      8 # 1.  Redistributions of source code must retain the above copyright
      9 #     notice, this list of conditions and the following disclaimer.
     10 # 2.  Redistributions in binary form must reproduce the above copyright
     11 #     notice, this list of conditions and the following disclaimer in the
     12 #     documentation and/or other materials provided with the distribution.
     13 #
     14 # THIS SOFTWARE IS PROVIDED BY APPLE INC. AND ITS CONTRIBUTORS ``AS IS'' AND ANY
     15 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
     16 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
     17 # DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY
     18 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
     19 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
     20 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
     21 # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
     22 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
     23 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
     24 
     25 # Unit tests of parseDiffHeader().
     26 
     27 use strict;
     28 use warnings;
     29 
     30 use Test::More;
     31 use VCSUtils;
     32 
     33 my @diffHashRefKeys = ( # The hash reference keys to check per diff.
     34     "copiedFromPath",
     35     "indexPath",
     36     "sourceRevision",
     37     "svnConvertedText",
     38 );
     39 
     40 # New test
     41 my $testNameStart = "parsePatch(): [SVN: Rename] ";
     42 my $patch = <<'END',
     43 Index: Makefile
     44 ===================================================================
     45 --- Makefile	(revision 53131)
     46 +++ Makefile	(working copy)
     47 @@ -1,1 +0,0 @@
     48 -MODULES = JavaScriptCore JavaScriptGlue WebCore WebKit WebKitTools
     49 Index: Makefile_new
     50 ===================================================================
     51 --- Makefile_new	(revision 53131)	(from Makefile:53131)
     52 +++ Makefile_new	(working copy)
     53 @@ -0,0 +1,1 @@
     54 +MODULES = JavaScriptCore JavaScriptGlue WebCore WebKit WebKitTools
     55 END
     56 
     57 my @expectedDiffHashRefs = (
     58 {
     59     svnConvertedText => <<'END',
     60 Index: Makefile
     61 ===================================================================
     62 --- Makefile	(revision 53131)
     63 +++ Makefile	(working copy)
     64 @@ -1,1 +0,0 @@
     65 -MODULES = JavaScriptCore JavaScriptGlue WebCore WebKit WebKitTools
     66 END
     67     copiedFromPath => undef,
     68     indexPath => "Makefile",
     69     sourceRevision => "53131",
     70 },
     71 {
     72     copiedFromPath => "Makefile",
     73     indexPath => "Makefile_new",
     74     sourceRevision => "53131",
     75 },
     76 );
     77 
     78 plan(tests => @expectedDiffHashRefs * @diffHashRefKeys);
     79 
     80 my $fileHandle;
     81 open($fileHandle, "<", \$patch);
     82 
     83 my @gotDiffHashRefs = parsePatch($fileHandle);
     84 
     85 my $i = 0;
     86 foreach my $expectedDiffHashRef (@expectedDiffHashRefs) {
     87 
     88     my $gotDiffHashRef = $gotDiffHashRefs[$i++];
     89 
     90     foreach my $diffHashRefKey (@diffHashRefKeys) {
     91         my $testName = "${testNameStart}[diff $i] key=\"$diffHashRefKey\"";
     92         is($gotDiffHashRef->{$diffHashRefKey}, $expectedDiffHashRef->{$diffHashRefKey}, $testName);
     93     }
     94 }
     95