t0202-gettext-perl.sh 538 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/bin/sh
#
# Copyright (c) 2010 Ævar Arnfjörð Bjarmason
#

test_description='Perl gettext interface (Git::I18N)'

. ./lib-gettext.sh

if ! test_have_prereq PERL; then
	skip_all='skipping perl interface tests, perl not available'
	test_done
fi

15
perl -MTest::More -e 0 2>/dev/null || {
16 17 18 19 20 21 22 23 24
	skip_all="Perl Test::More unavailable, skipping test"
	test_done
}

# The external test will outputs its own plan
test_external_has_tap=1

test_external_without_stderr \
    'Perl Git::I18N API' \
25
    perl "$TEST_DIRECTORY"/t0202/test.pl
26 27

test_done