tests/setpref.pl

   1 #!/usr/bin/env perl
   2
   3 # Some tests for 'darcs whatsnew '
   4
   5 use lib 'lib/perl';
   6 use Test::More 'no_plan';
   7 use Shell::Command;
   8 use Test::Darcs;
   9 use strict;
  10
  11 init_tmp_repo();
  12
  13 my $testname = "issue70 and RT #349 - setpref should coalesce changes";
  14 darcs 'setpref predist apple';
  15 darcs 'setpref predist banana';
  16 darcs 'setpref predist clementine';
  17 darcs 'record -a  -m manamana';
  18
  19 unlike ( darcs('changes --verbose'), qr/apple/, $testname );
  20 unlike ( darcs('changes --verbose'), qr/banana/, $testname );
  21 like ( darcs('changes --verbose'), qr/clementine/, $testname );
  22
  23 mkpath 'temp1';
  24 chdir 'temp1';
  25 darcs 'init';
  26
  27 # not sure what i'm going for here - if coalescing happens strictly
  28 # before commuting, no problem, but what if patches are commuted
  29 # before coalescing?
  30 $testname = "setpref should coalesce changes (nastier?)";
  31 darcs 'setpref predist apple';
  32 darcs 'setpref predist banana';
  33 darcs 'setpref predist apple';
  34 darcs 'setpref predist clementine';
  35 darcs 'setpref predist banana';
  36 darcs 'record -a  -m manamana';
  37
  38 unlike ( darcs('changes --verbose'), qr/apple/, $testname );
  39 unlike ( darcs('changes --verbose'), qr/clementine/, $testname );
  40 like ( darcs('changes --verbose'), qr/banana/, $testname );