From c540ef6ea77eb2a314f73b039c7c5a67ff7fb624 Mon Sep 17 00:00:00 2001
From: Bruno Haible <bruno@clisp.org>
Date: Sat, 6 Jun 2009 13:28:50 +0000
Subject: [PATCH] Add test of // operator.

---
 gettext-tools/tests/ChangeLog       |  4 ++++
 gettext-tools/tests/xgettext-perl-1 | 12 ++++++++++++
 2 files changed, 16 insertions(+)

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index a27672b43..f76744a98 100644
--- 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 2b1fc2466..68e1f9f93 100755
--- 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}
-- 
2.47.3