| #! /bin/sh |
| # Testing the implementation of strfmon(3). |
| # Copyright (C) 1996-2014 Free Software Foundation, Inc. |
| # This file is part of the GNU C Library. |
| # Contributed by Jochen Hein <jochen.hein@delphi.central.de>, 1997. |
| |
| # The GNU C Library is free software; you can redistribute it and/or |
| # modify it under the terms of the GNU Lesser General Public |
| # License as published by the Free Software Foundation; either |
| # version 2.1 of the License, or (at your option) any later version. |
| |
| # The GNU C Library is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| # Lesser General Public License for more details. |
| |
| # You should have received a copy of the GNU Lesser General Public |
| # License along with the GNU C Library; if not, see |
| # <http://www.gnu.org/licenses/>. |
| |
| set -e |
| |
| common_objpfx=$1 |
| run_program_prefix=$2 |
| test_program_prefix=$3 |
| datafile=$4 |
| |
| here=`pwd` |
| |
| lang=`sed -e '/^#/d' -e '/^$/d' -e '/^C /d' -e '/^tstfmon/d' -e 's/^\([^ ]*\).*/\1/' $datafile | sort | uniq` |
| |
| # Generate data files. |
| for cns in `cd ./tst-fmon-locales && ls tstfmon_*`; do |
| cn=tst-fmon-locales/$cns |
| fn=charmaps/ISO-8859-1 |
| I18NPATH=. GCONV_PATH=${common_objpfx}iconvdata \ |
| LOCPATH=${common_objpfx}localedata LC_ALL=C LANGUAGE=C \ |
| ${run_program_prefix} ${common_objpfx}locale/localedef \ |
| --quiet -i $cn -f $fn ${common_objpfx}localedata/$cns |
| done |
| |
| # Run the tests. |
| errcode=0 |
| # There's a TAB for IFS |
| while IFS=" " read locale format value expect; do |
| case "$locale" in '#'*) continue ;; esac |
| if [ -n "$format" ]; then |
| expect=`echo "$expect" | sed 's/^\"\(.*\)\"$/\1/'` |
| LOCPATH=${common_objpfx}localedata \ |
| GCONV_PATH=${common_objpfx}/iconvdata \ |
| ${test_program_prefix} ${common_objpfx}localedata/tst-fmon \ |
| "$locale" "$format" "$value" "$expect" < /dev/null || |
| errcode=$? |
| fi |
| done < $datafile |
| |
| exit $errcode |
| # Local Variables: |
| # mode:shell-script |
| # End: |