Add test of // operator.

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index a27672b4379f11b2ecd33f685c87e51f367995ce..f76744a987dd728f5d00bcb863536b2be4dd5e1d 100644 (file)
--- a/gettext-tools/tests/ChangeLog
+++ b/gettext-tools/tests/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-06  Bruno Haible  <bruno@clisp.org>
+
+       * xgettext-perl-1: Add test of // operator.
+
 2009-05-29  Bruno Haible  <bruno@clisp.org>
 
        * msgfmt-10: Update after msgfmt's error message changed.

diff --git a/gettext-tools/tests/xgettext-perl-1 b/gettext-tools/tests/xgettext-perl-1
index 2b1fc2466ba4ae72e5eaaa75b21d12c148168eb1..68e1f9f9347da94b33c9974b69cc7fc11a45a403 100755 (executable)
--- a/gettext-tools/tests/xgettext-perl-1
+++ b/gettext-tools/tests/xgettext-perl-1
@@ -144,6 +144,10 @@ sub testFunc($\$;*@) { }
 If you have gettext()'d foo bar test3'...
 =cut
 
+gettext "Before slash-slash";
+print $foo // 'undef';
+gettext "After slash-slash";
+
 __END__
 gettext "Discarded!";
 EOF
@@ -319,6 +323,14 @@ msgstr ""
 #, perl-format, no-perl-brace-format
 msgid "Left as an %exercise to {maintainer}."
 msgstr ""
+
+#: xg-pl-1.pl:138
+msgid "Before slash-slash"
+msgstr ""
+
+#: xg-pl-1.pl:140
+msgid "After slash-slash"
+msgstr ""
 EOF
 
 : ${DIFF=diff}