1#!/bin/sh 2. "${srcdir=.}/init.sh"; path_prepend_ . ../src 3 4# Test of Tcl support: escape sequences. 5 6cat <<\EOF > xg-t-4.tcl 7puts [_ "Hello\u200e\u201cWorld\u201d"] 8puts [_ "x\u20y\x20z"] 9puts [_ "\xFF20"] 10EOF 11 12: ${XGETTEXT=xgettext} 13${XGETTEXT} --add-comments --no-location -k_ -o xg-t-4.tmp xg-t-4.tcl 2>xg-t-4.err 14test $? = 0 || { cat xg-t-4.err; Exit 1; } 15func_filter_POT_Creation_Date xg-t-4.tmp xg-t-4.pot 16 17cat <<\EOF > xg-t-4.ok 18# SOME DESCRIPTIVE TITLE. 19# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER 20# This file is distributed under the same license as the PACKAGE package. 21# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR. 22# 23#, fuzzy 24msgid "" 25msgstr "" 26"Project-Id-Version: PACKAGE VERSION\n" 27"Report-Msgid-Bugs-To: \n" 28"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n" 29"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n" 30"Language-Team: LANGUAGE <LL@li.org>\n" 31"Language: \n" 32"MIME-Version: 1.0\n" 33"Content-Type: text/plain; charset=UTF-8\n" 34"Content-Transfer-Encoding: 8bit\n" 35 36msgid "Hello“World”" 37msgstr "" 38 39msgid "x y z" 40msgstr "" 41 42msgid " " 43msgstr "" 44EOF 45 46: ${DIFF=diff} 47${DIFF} xg-t-4.ok xg-t-4.pot 48result=$? 49 50exit $result 51