undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Avoid perl in t1300-repo-config

Browse Source 
It fixes the test on system where ActiveState Perl is used.

Signed-off-by: Alex Riesen <raa.lkml@gmail.com>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Alex Riesen 2007-06-27 14:40:41 +02:00 committed by Junio C Hamano
parent 7051c3b129
commit 2b9a50208f
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
t/t1300-repo-config.sh
View File

@ -529,25 +529,23 @@ cat > .git/config <<\EOF
EOF EOF
cat > expect <<\EOF cat > expect <<\EOF
Key: section.sub=section.val1 section.sub=section.val1
Value: foo=bar foo=barQsection.sub=section.val2
Key: section.sub=section.val2 foo
Value: foo barQsection.sub=section.val3
bar
Key: section.sub=section.val3
Value:
Key: section.sub=section.val4 Qsection.sub=section.val4
Value: Qsection.sub=section.val5Q
Key: section.sub=section.val5
EOF EOF
git config --null --list | perl -0ne 'chop;($key,$value)=split(/\n/,$_,2);print "Key: $key\n";print "Value: $value\n" if defined($value)' > result git config --null --list | tr '[\000]' 'Q' > result
echo >>result
test_expect_success '--null --list' 'cmp result expect' test_expect_success '--null --list' 'cmp result expect'
git config --null --get-regexp 'val[0-9]' | perl -0ne 'chop;($key,$value)=split(/\n/,$_,2);print "Key: $key\n";print "Value: $value\n" if defined($value)' > result git config --null --get-regexp 'val[0-9]' | tr '[\000]' 'Q' > result
echo >>result
test_expect_success '--null --get-regexp' 'cmp result expect' test_expect_success '--null --get-regexp' 'cmp result expect'