• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1#!/bin/sh
2. "${srcdir=.}/init.sh"; path_prepend_ . ../src
3
4# Test Lisp support: --add-comments option.
5
6cat <<\EOF > xg-ls-2.lisp
7#| a |#
8#| b |# (setq string #| c |#
9#| d |#
10#| e |# (_ #| f |# "hello world" #| g |# ))
11EOF
12
13: ${XGETTEXT=xgettext}
14${XGETTEXT} --add-comments --omit-header --no-location --keyword=_ \
15  -d xg-ls-2.tmp xg-ls-2.lisp || Exit 1
16LC_ALL=C tr -d '\r' < xg-ls-2.tmp.po > xg-ls-2.po || Exit 1
17
18cat <<EOF > xg-ls-2.ok
19#. a
20#. b
21#. c
22#. d
23#. e
24#. f
25msgid "hello world"
26msgstr ""
27EOF
28
29: ${DIFF=diff}
30${DIFF} xg-ls-2.ok xg-ls-2.po
31result=$?
32
33exit $result
34