Test of extraction with contexts from Java source.

diff --git a/gettext-tools/tests/xgettext-java-7 b/gettext-tools/tests/xgettext-java-7
new file mode 100755 (executable)
index 0000000..49e92fc
--- /dev/null
+++ b/gettext-tools/tests/xgettext-java-7
@@ -0,0 +1,38 @@
+#! /bin/sh
+
+# Test C support: extraction of contexts.
+
+tmpfiles=""
+trap 'rm -fr $tmpfiles' 1 2 3 15
+
+tmpfiles="$tmpfiles xg-j-7.java"
+cat <<\EOF > xg-j-7.java
+import gnu.gettext.GettextResourceBundle;
+System.out.println(GettextResourceBundle.gettext("help"));
+System.out.println(GettextResourceBundle.pgettext("Help", "about"));
+EOF
+
+tmpfiles="$tmpfiles xg-j-7.tmp.po xg-j-7.po"
+: ${XGETTEXT=xgettext}
+${XGETTEXT} --omit-header --no-location -d xg-j-7.tmp xg-j-7.java
+test $? = 0 || { rm -fr $tmpfiles; exit 1; }
+tr -d '\r' < xg-j-7.tmp.po > xg-j-7.po
+test $? = 0 || { rm -fr $tmpfiles; exit 1; }
+
+tmpfiles="$tmpfiles xg-j-7.ok"
+cat <<EOF > xg-j-7.ok
+msgid "help"
+msgstr ""
+
+msgctxt "Help"
+msgid "about"
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-j-7.ok xg-j-7.po
+result=$?
+
+rm -fr $tmpfiles
+
+exit $result