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::generatePatchCommand().

    32 

    33 use Test::Simple tests => 10;

    34 use VCSUtils;

    35 

    36 # New test

    37 $title = "generatePatchCommand: Undefined optional arguments.";

    38 

    39 my $argsHashRef;

    40 my ($patchCommand, $isForcing) = VCSUtils::generatePatchCommand($argsHashRef);

    41 

    42 ok($patchCommand eq "patch -p0", $title);

    43 ok($isForcing == 0, $title);

    44 

    45 # New test

    46 $title = "generatePatchCommand: Undefined options.";

    47 

    48 my $options;

    49 $argsHashRef = {options => $options};

    50 ($patchCommand, $isForcing) = VCSUtils::generatePatchCommand($argsHashRef);

    51 

    52 ok($patchCommand eq "patch -p0", $title);

    53 ok($isForcing == 0, $title);

    54 

    55 # New test

    56 $title = "generatePatchCommand: --force and no \"ensure force\".";

    57 

    58 $argsHashRef = {options => ["--force"]};

    59 ($patchCommand, $isForcing) = VCSUtils::generatePatchCommand($argsHashRef);

    60 

    61 ok($patchCommand eq "patch -p0 --force", $title);

    62 ok($isForcing == 1, $title);

    63 

    64 # New test

    65 $title = "generatePatchCommand: no --force and \"ensure force\".";

    66 

    67 $argsHashRef = {ensureForce => 1};

    68 ($patchCommand, $isForcing) = VCSUtils::generatePatchCommand($argsHashRef);

    69 

    70 ok($patchCommand eq "patch -p0 --force", $title);

    71 ok($isForcing == 1, $title);

    72 

    73 # New test

    74 $title = "generatePatchCommand: \"should reverse\".";

    75 

    76 $argsHashRef = {shouldReverse => 1};

    77 ($patchCommand, $isForcing) = VCSUtils::generatePatchCommand($argsHashRef);

    78 

    79 ok($patchCommand eq "patch -p0 --reverse", $title);

    80 

    81 # New test

    82 $title = "generatePatchCommand: --fuzz=3, --force.";

    83 

    84 $argsHashRef = {options => ["--fuzz=3", "--force"]};

    85 ($patchCommand, $isForcing) = VCSUtils::generatePatchCommand($argsHashRef);

    86 

    87 ok($patchCommand eq "patch -p0 --force --fuzz=3", $title);