1: /* Testing the implementation of strfmon(3).
    2:    Copyright (C) 1996, 1997, 2000, 2003, 2004 Free Software Foundation, Inc.
    3:    This file is part of the GNU C Library.
    4:    Contributed by Jochen Hein <jochen.hein@delphi.central.de>, 1997.
    5: 
    6:    The GNU C Library is free software; you can redistribute it and/or
    7:    modify it under the terms of the GNU Lesser General Public
    8:    License as published by the Free Software Foundation; either
    9:    version 2.1 of the License, or (at your option) any later version.
   10: 
   11:    The GNU C Library is distributed in the hope that it will be useful,
   12:    but WITHOUT ANY WARRANTY; without even the implied warranty of
   13:    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   14:    Lesser General Public License for more details.
   15: 
   16:    You should have received a copy of the GNU Lesser General Public
   17:    License along with the GNU C Library; if not, write to the Free
   18:    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   19:    02111-1307 USA.  */
   20: 
   21: #include <stdio.h>
   22: #include <locale.h>
   23: #include <monetary.h>
   24: #include <string.h>
   25: #include <stdlib.h>
   26: 
   27: /*
   28:   test-strfmon gets called with three parameters:
   29:    - the locale
   30:    - the format-string to be used
   31:    - the actual number to be formatted
   32:    - the expected string
   33:    If the test passes, test-strfmon terminates with returncode 0,
   34:    otherwise with 1
   35: */
   36: #define EXIT_SUCCESS 0
   37: #define EXIT_FAILURE 1
   38: #define EXIT_SETLOCALE 2
   39: #define EXIT_STRFMON 3
   40: 
   41: int
   42: main (int argc, char *argv[])
   43: {
   44:   char *s = malloc (201);
   45: 
   46:   if (setlocale (LC_MONETARY, argv[1]) == NULL)
   47:     {
   48:       fprintf (stderr, "setlocale(LC_MONETARY, \"%s\"): %m\n", argv[1]);
   49:       exit (EXIT_SETLOCALE);
   50:     }
   51: 
   52:   if (strfmon (s, 200, argv[2], (double) atof (argv[3])) == -1)
   53:     {
   54:       perror ("strfmon");
   55:       exit (EXIT_STRFMON);
   56:     }
   57: 
   58:   if (strcmp (s, argv[4]) != 0)
   59:     {
   60:       printf ("\
   61: Locale: \"%s\" Format: \"%s\" Value: \"%s\" Received: \"%s\" Expected: \"%s\" => %s\n",
   62:               argv[1], argv[2], argv[3], s, argv[4],
   63:               strcmp (s, argv[4]) != 0 ? "false" : "correct");
   64:       exit (EXIT_FAILURE);
   65:     }
   66: 
   67:   return EXIT_SUCCESS;
   68: }