From: Bruno Haible <bruno@clisp.org>
Date: Sat, 6 Jun 2009 13:28:50 +0000 (+0000)
Subject: Add test of // operator.
X-Git-Tag: v0.18~181
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c540ef6ea77eb2a314f73b039c7c5a67ff7fb624;p=thirdparty%2Fgettext.git

Add test of // operator.
---

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}