summaryrefslogtreecommitdiff
path: root/gettext-tools/tests/xgettext-lua-1
diff options
context:
space:
mode:
Diffstat (limited to 'gettext-tools/tests/xgettext-lua-1')
-rwxr-xr-xgettext-tools/tests/xgettext-lua-180
1 files changed, 80 insertions, 0 deletions
diff --git a/gettext-tools/tests/xgettext-lua-1 b/gettext-tools/tests/xgettext-lua-1
new file mode 100755
index 0000000..6a764c9
--- /dev/null
+++ b/gettext-tools/tests/xgettext-lua-1
@@ -0,0 +1,80 @@
+#!/bin/sh
+. "${srcdir=.}/init.sh"; path_prepend_ . ../src
+
+# Test Lua support
+
+cat <<\EOF > xg-lu-1.lua
+print(_("This is a test string."))
+print(_('And another one.'))
+print(_("Don't be afraid to extract this one."))
+print(_('I don\'t bite!'))
+print(_("I said: \"This is a test.\""))
+print(_('He said: "You\'re right!"'))
+print(_([[I like brackets.]]))
+print(_([===[Brackets are awesome!]===]))
+print(_([===[==[Even nested brackets]==]===]))
+print(_([===[Or even unmached number of '=' signs]==]===]))
+print(_(hmm["nope"]))
+print({_"yep"})
+print(_["nope"])
+print(_("\097"))
+print(_("\x3F\z
+\x2a"))
+print(_("abc" .. "def"))
+print(speed / 1000 .. 'Mbps')
+EOF
+
+: ${XGETTEXT=xgettext}
+${XGETTEXT} --omit-header --no-location --add-comments=TRANSLATORS: \
+ -d xg-lu-1.tmp xg-lu-1.lua || exit 1
+LC_ALL=C tr -d '\r' < xg-lu-1.tmp.po > xg-lu-1.po || exit 1
+
+cat <<EOF > xg-lu-1.ok
+msgid "This is a test string."
+msgstr ""
+
+msgid "And another one."
+msgstr ""
+
+msgid "Don't be afraid to extract this one."
+msgstr ""
+
+msgid "I don't bite!"
+msgstr ""
+
+msgid "I said: \"This is a test.\""
+msgstr ""
+
+msgid "He said: \"You're right!\""
+msgstr ""
+
+msgid "I like brackets."
+msgstr ""
+
+msgid "Brackets are awesome!"
+msgstr ""
+
+msgid "==[Even nested brackets]=="
+msgstr ""
+
+msgid "Or even unmached number of '=' signs]=="
+msgstr ""
+
+msgid "yep"
+msgstr ""
+
+msgid "a"
+msgstr ""
+
+msgid "?*"
+msgstr ""
+
+msgid "abcdef"
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-lu-1.ok xg-lu-1.po
+result=$?
+
+exit $result