Clean up ChunkedUpdateDrawingAreaProxy
[WebKit-https.git] / WebKitTools / Scripts / webkitperl / VCSUtils_unittest / parsePatch.pl
1 #!/usr/bin/perl -w
2 #
3 # Copyright (C) 2010 Chris Jerdonek (chris.jerdonek@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 }