t3404: use write_script
[git] / t / t0202-gettext-perl.sh
1 #!/bin/sh
2 #
3 # Copyright (c) 2010 Ævar Arnfjörð Bjarmason
4 #
5
6 test_description='Perl gettext interface (Git::I18N)'
7
8 . ./lib-gettext.sh
9
10 if ! test_have_prereq PERL; then
11         skip_all='skipping perl interface tests, perl not available'
12         test_done
13 fi
14
15 perl -MTest::More -e 0 2>/dev/null || {
16         skip_all="Perl Test::More unavailable, skipping test"
17         test_done
18 }
19
20 # The external test will outputs its own plan
21 test_external_has_tap=1
22
23 test_external_without_stderr \
24     'Perl Git::I18N API' \
25     perl "$TEST_DIRECTORY"/t0202/test.pl
26
27 test_done