3 # Test of Tcl support: escape sequences.
6 trap 'rm -fr $tmpfiles' 1 2 3 15
8 tmpfiles="$tmpfiles xg-t-4.tcl"
9 cat <<\EOF > xg-t-4.tcl
10 puts [_ "Hello\u200e\u201cWorld\u201d"]
11 puts [_ "x\u20y\x20z"]
15 tmpfiles="$tmpfiles xg-t-4.err xg-t-4.tmp xg-t-4.pot"
16 : ${XGETTEXT=xgettext}
17 ${XGETTEXT} --add-comments --no-location -k_ -o xg-t-4.tmp xg-t-4.tcl 2>xg-t-4.err
18 test $? = 0 || { cat xg-t-4.err; rm -fr $tmpfiles; exit 1; }
19 # Don't simplify this to "grep ... < xg-t-4.tmp", otherwise OpenBSD 4.0 grep
20 # only outputs "Binary file (standard input) matches".
21 cat xg-t-4.tmp | grep -v 'POT-Creation-Date' | LC_ALL=C tr -d '\r' > xg-t-4.pot
23 tmpfiles="$tmpfiles xg-t-4.ok"
24 cat <<\EOF > xg-t-4.ok
25 # SOME DESCRIPTIVE TITLE.
26 # Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
27 # This file is distributed under the same license as the PACKAGE package.
28 # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
33 "Project-Id-Version: PACKAGE VERSION\n"
34 "Report-Msgid-Bugs-To: \n"
35 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
36 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
37 "Language-Team: LANGUAGE <LL@li.org>\n"
40 "Content-Type: text/plain; charset=UTF-8\n"
41 "Content-Transfer-Encoding: 8bit\n"
54 ${DIFF} xg-t-4.ok xg-t-4.pot