Integration test with guile.

diff --git a/gettext-tools/tests/lang-guile b/gettext-tools/tests/lang-guile
new file mode 100755 (executable)
index 0000000..171d9ca
--- /dev/null
+++ b/gettext-tools/tests/lang-guile
@@ -0,0 +1,117 @@
+#! /bin/sh
+
+# Test of gettext facilities in the guile implementation of Scheme.
+# Assumes an fr_FR locale is installed.
+# Assumes the following packages are installed: guile.
+
+tmpfiles=""
+trap 'rm -fr $tmpfiles' 1 2 3 15
+
+tmpfiles="$tmpfiles prog.scm"
+cat <<\EOF > prog.scm
+(use-modules (ice-9 format))
+
+(textdomain "prog")
+(bindtextdomain "prog" ".")
+
+(define n (list-ref (command-line) 1))
+
+(format #t "~A~%" (gettext "'Your command, please?', asked the waiter."))
+
+(format #t "~@?~%" (ngettext "a piece of cake" "~D pieces of cake" n) n)
+
+(format #t "~A~%" (format #f (gettext "~A is replaced by ~A.") "FF" "EUR"))
+EOF
+
+tmpfiles="$tmpfiles prog.pot"
+: ${XGETTEXT=xgettext}
+${XGETTEXT} -o prog.pot --omit-header --no-location prog.scm
+
+tmpfiles="$tmpfiles prog.ok"
+cat <<EOF > prog.ok
+msgid "'Your command, please?', asked the waiter."
+msgstr ""
+
+#, scheme-format
+msgid "a piece of cake"
+msgid_plural "~D pieces of cake"
+msgstr[0] ""
+msgstr[1] ""
+
+#, scheme-format
+msgid "~A is replaced by ~A."
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} prog.ok prog.pot || exit 1
+
+tmpfiles="$tmpfiles fr.po"
+cat <<\EOF > fr.po
+msgid ""
+msgstr ""
+"Content-Type: text/plain; charset=ISO-8859-1\n"
+"Plural-Forms: nplurals=2; plural=(n > 1);\n"
+
+msgid "'Your command, please?', asked the waiter."
+msgstr "«Votre commande, s'il vous plait», dit le garçon."
+
+# Les gateaux allemands sont les meilleurs du monde.
+#, scheme-format
+msgid "a piece of cake"
+msgid_plural "~D pieces of cake"
+msgstr[0] "un morceau de gateau"
+msgstr[1] "~D morceaux de gateau"
+
+# Reverse the arguments.
+#, scheme-format
+msgid "~A is replaced by ~A."
+msgstr "~1@*~A remplace ~0@*~A."
+EOF
+
+tmpfiles="$tmpfiles fr.po.new"
+: ${MSGMERGE=msgmerge}
+${MSGMERGE} -q -o fr.po.new fr.po prog.pot
+
+: ${DIFF=diff}
+${DIFF} fr.po fr.po.new || exit 1
+
+tmpfiles="$tmpfiles fr"
+test -d fr || mkdir fr
+test -d fr/LC_MESSAGES || mkdir fr/LC_MESSAGES
+
+: ${MSGFMT=msgfmt}
+${MSGFMT} -o fr/LC_MESSAGES/prog.mo fr.po
+
+# Test for presence of guile version 1.7 or newer.
+(guile --version) >/dev/null 2>/dev/null \
+  || { rm -fr $tmpfiles; exit 77; }
+case `guile --version | sed -e 1q | sed -e 's/^[^0-9]*//'` in
+  0.* | 1.[0-6] | 1.[0-6].* )
+    rm -fr $tmpfiles; exit 77;;
+esac
+
+# Test whether the fr_FR locale is installed.
+: ${LOCALE_FR=fr_FR}
+LC_ALL=$LOCALE_FR ./testlocale
+case $? in
+  0) ;;
+  77) rm -fr $tmpfiles; exit 77;;
+  *) exit 1;;
+esac
+
+tmpfiles="$tmpfiles prog.ok prog.out"
+: ${DIFF=diff}
+cat <<\EOF > prog.ok
+«Votre commande, s'il vous plait», dit le garçon.
+2 morceaux de gateau
+EUR remplace FF.
+EOF
+
+: ${LOCALE_FR=fr_FR}
+LANGUAGE= LC_ALL=$LOCALE_FR guile -s prog.scm 2 > prog.out || exit 1
+${DIFF} prog.ok prog.out || exit 1
+
+rm -fr $tmpfiles
+
+exit 0