Clean up ChunkedUpdateDrawingAreaProxy
[WebKit-https.git] / Tools / Scripts / webkitperl / VCSUtils_unittest / runPatchCommand.pl
1 #!/usr/bin/perl
2 #
3 # Copyright (C) 2009, 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 are
7 # met:
8
9 #     * Redistributions of source code must retain the above copyright
10 # notice, this list of conditions and the following disclaimer.
11 #     * Redistributions in binary form must reproduce the above
12 # copyright notice, this list of conditions and the following disclaimer
13 # in the documentation and/or other materials provided with the
14 # distribution.
15 #     * Neither the name of Google Inc. nor the names of its
16 # contributors may be used to endorse or promote products derived from
17 # this software without specific prior written permission.
18
19 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
20 # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
21 # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
22 # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
23 # OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
24 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
25 # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
26 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
27 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
28 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
29 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30
31 # Unit tests of VCSUtils::runPatchCommand().
32
33 use Test::Simple tests => 4;
34 use VCSUtils;
35
36 # New test
37 $title = "runPatchCommand: Unsuccessful patch, forcing.";
38
39 # Since $patch has no "Index:" path, passing this to runPatchCommand
40 # should not affect any files.
41 my $patch = <<'END';
42 Garbage patch contents
43 END
44
45 # We call via callSilently() to avoid output like the following to STDERR:
46 # patch: **** Only garbage was found in the patch input.
47 $argsHashRef = {ensureForce => 1};
48 $exitStatus = callSilently(\&runPatchCommand, $patch, ".", "file_to_patch.txt", $argsHashRef);
49
50 ok($exitStatus != 0, $title);
51
52 # New test
53 $title = "runPatchCommand: New file, --dry-run.";
54
55 # This file should not exist after the tests, but we take care with the
56 # file name and contents just in case.
57 my $fileToPatch = "temp_OK_TO_ERASE__README_FOR_MORE.txt";
58 $patch = <<END;
59 Index: $fileToPatch
60 ===================================================================
61 --- $fileToPatch        (revision 0)
62 +++ $fileToPatch        (revision 0)
63 @@ -0,0 +1,5 @@
64 +This is a test file for WebKitTools/Scripts/VCSUtils_unittest.pl.
65 +This file should not have gotten created on your system.
66 +If it did, some unit tests don't seem to be working quite right:
67 +It would be great if you could file a bug report. Thanks!
68 +---------------------------------------------------------------------
69 END
70
71 # --dry-run prevents creating any files.
72 # --silent suppresses the success message to STDOUT.
73 $argsHashRef = {options => ["--dry-run", "--silent"]};
74 $exitStatus = runPatchCommand($patch, ".", $fileToPatch, $argsHashRef);
75
76 ok($exitStatus == 0, $title);
77
78 # New test
79 $title = "runPatchCommand: New file: \"$fileToPatch\".";
80
81 $argsHashRef = {options => ["--silent"]};
82 $exitStatus = runPatchCommand($patch, ".", $fileToPatch, $argsHashRef);
83
84 ok($exitStatus == 0, $title);
85
86 # New test
87 $title = "runPatchCommand: Reverse new file (clean up previous).";
88
89 $argsHashRef = {shouldReverse => 1,
90                 options => ["--silent", "--remove-empty-files"]}; # To clean up.
91 $exitStatus = runPatchCommand($patch, ".", $fileToPatch, $argsHashRef);
92 ok($exitStatus == 0, $title);