File: issue279.pl

package info (click to toggle)
darcs 2.0.2-3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 6,400 kB
  • ctags: 1,048
  • sloc: haskell: 24,937; perl: 9,736; sh: 3,369; ansic: 1,913; makefile: 17; xml: 14
file content (43 lines) | stat: -rw-r--r-- 943 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#!/usr/bin/env perl

# For issue279: a conflict case resulting in "bug in get_extra" with old format repos
#               and "Malformed patch bundle" with darcs-2 repos.         

use lib 'lib/perl', '../tests/lib/perl';
use Test::More 'no_plan';
use Shell::Command;
use Test::Darcs;
use Shell::Command;
use File::Slurp;
use strict;
use warnings;

init_tmp_repo('--darcs-2');

write_file 'f', '0';
darcs "add f";
darcs "record -am 00";

for my $r (qw(a b c d)) {
    darcs "put $r";
    chdir $r;
    write_file 'f', $r;
    darcs "record -am 'patch:$r'";
    chdir '..';
}

chdir 'd';
darcs "pull -a ../a";
darcs "pull -a ../b";
darcs "pull -a ../c";
chdir "../c";
darcs "pull -a ../a";
darcs "pull -a ../b";
write_file 'f', "rc";
darcs "record -a -m 'rc'";
chdir "../d";

my $out = darcs "pull -a ../c";
unlike($out,qr/no remote changes/i,"avoid no remote changes");
unlike($out,qr/bug in get_extra/,"avoid bug in get_extra");
#diag $out;