git-mv to work with Perl 5.6
[git/jrn.git] / t / t7001-mv.sh
blob43d74c502e60ac55236fa6e36dcf429d38c3b01b
1 #!/bin/sh
3 test_description='git-mv in subdirs'
4 . ./test-lib.sh
6 test_expect_success \
7 'prepare reference tree' \
8 'mkdir path0 path1 &&
9 cp ../../COPYING path0/COPYING &&
10 git-add path0/COPYING &&
11 git-commit -m add -a'
13 test_expect_success \
14 'moving the file' \
15 'cd path0 && git-mv COPYING ../path1/COPYING'
17 # in path0 currently
18 test_expect_success \
19 'commiting the change' \
20 'cd .. && git-commit -m move -a'
22 test_expect_success \
23 'checking the commit' \
24 'git-diff-tree -r -M --name-status HEAD^ HEAD | \
25 grep -E "^R100.+path0/COPYING.+path1/COPYING"'
27 test_done