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

# Issue244
# darcs changes should be able to pull up the history for a file 
#   using its moved and not-yet recorded new name");

# Also find the right path from the bugs directory. 
use lib ('lib/perl', '../tests/lib/perl');
use Test::More 'no_plan';
use Test::Darcs;
use Shell::Command;
use strict;
use warnings;

$ENV{EMAIL} = 'tester';

cleanup 'temp1';
ok(mkpath('temp1'), "temp1 created");
ok(chdir('temp1'), "chdir temp1");
darcs 'init';

touch 'b';
darcs 'add b';
darcs 'rec -am 11';
darcs 'mv b c';
like(darcs('changes c'), qr/11/, "changes should be able to show the history for a file moved and not-yet recorded using the new name");