builtin-mailinfo.c: check error status from rewind and ftruncate
[git/spearce.git] / t / t9700-perl-git.sh
blob4eb7d3f7f042f896106f208a7f8bb91925352b2a
1 #!/bin/sh
3 # Copyright (c) 2008 Lea Wiemann
6 test_description='perl interface (Git.pm)'
7 . ./test-lib.sh
9 if ! test_have_prereq PERL; then
10 say 'skipping perl interface tests, perl not available'
11 test_done
14 perl -MTest::More -e 0 2>/dev/null || {
15 say "Perl Test::More unavailable, skipping test"
16 test_done
19 # set up test repository
21 test_expect_success \
22 'set up test repository' \
23 'echo "test file 1" > file1 &&
24 echo "test file 2" > file2 &&
25 mkdir directory1 &&
26 echo "in directory1" >> directory1/file &&
27 mkdir directory2 &&
28 echo "in directory2" >> directory2/file &&
29 git add . &&
30 git commit -m "first commit" &&
32 echo "new file in subdir 2" > directory2/file2 &&
33 git add . &&
34 git commit -m "commit in directory2" &&
36 echo "changed file 1" > file1 &&
37 git commit -a -m "second commit" &&
39 git config --add color.test.slot1 green &&
40 git config --add test.string value &&
41 git config --add test.dupstring value1 &&
42 git config --add test.dupstring value2 &&
43 git config --add test.booltrue true &&
44 git config --add test.boolfalse no &&
45 git config --add test.boolother other &&
46 git config --add test.int 2k
49 test_external_without_stderr \
50 'Perl API' \
51 perl "$TEST_DIRECTORY"/t9700/test.pl
53 test_done