File: pull_directory_not_empty.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 (38 lines) | stat: -rw-r--r-- 741 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
#!/usr/bin/env perl

# A test for pulling a patch to remove a directory when the local copy is not empty.
# Issue154

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

init_tmp_repo();

mkdir 'd';
darcs 'add d';
darcs 'record -a -m "Added directory d"';

darcs 'get ./ puller';
chdir 'puller';
touch 'd/moo';
darcs 'add d/moo';
chdir '../';

rm_rf 'd';
darcs 'record -a -m "Remove directory d"';
ok( (chdir 'puller'), "chdir puller");
my $out = echo_to_darcs "pull -a ../", 'y';
like($out, qr{
             backing\sup
             .*
             finished\spulling
             }imsx
    , "result is that locally directory gets backed up and pull succeeds");