Update.
[glibc.git] / localedata / tst-fmon.c
blobf9ef24ac6aeb022066648a85deae38ad4ab811a7
1 /* Testing the implementation of strfmon(3).
2 Copyright (C) 1996, 1997, 2000 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.
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public License as
8 published by the Free Software Foundation; either version 2 of the
9 License, or (at your option) any later version.
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 Library General Public License for more details.
16 You should have received a copy of the GNU Library General Public
17 License along with the GNU C Library; see the file COPYING.LIB. If
18 not, write to the Free Software Foundation, Inc.,
19 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
21 #include <stdio.h>
22 #include <locale.h>
23 #include <monetary.h>
24 #include <string.h>
25 #include <stdlib.h>
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
36 #define EXIT_SUCCESS 0
37 #define EXIT_FAILURE 1
38 #define EXIT_SETLOCALE 2
39 #define EXIT_STRFMON 3
41 int
42 main (int argc, char *argv[])
44 char *s = malloc (201);
45 double monval;
47 if (setlocale (LC_MONETARY, argv[1]) == NULL)
49 perror ("setlocale");
50 exit (EXIT_SETLOCALE);
52 /* This is locale-dependent! see setlocale(3) for details */
53 monval = strtod (argv[3], NULL);
55 if (strfmon (s, 200, argv[2], (double) atof (argv[3])) == -1)
57 perror ("strfmon");
58 exit (EXIT_STRFMON);
61 if (strcmp (s, argv[4]) != 0)
63 printf ("\
64 locale: \"%s\", format: \"%s\", expected: \"%s\", got: \"%s\" => %s\n",
65 argv[1], argv[2], argv[4], s,
66 strcmp (s, argv[4]) != 0 ? "false" : "correct");
67 exit (EXIT_FAILURE);
70 exit (EXIT_SUCCESS);