84c0530d5d3bdff3cb7d74e934de489976290e54
[mes.git] / scaffold / tests / 61-array.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of Mes.
6  *
7  * Mes is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * Mes is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 #include <libmes.h>
22
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26
27 char *env[] = {"foo", "bar", "baz", 0};
28
29 int
30 test (char **e)
31 {
32   int i = 0;
33
34   puts ("\n");
35   puts ("a[i] = i-1\n");
36   int a[3];
37   for (int i=0; i < 3; i++) a[i] = i-1;
38   for (int i=0; i < 3; i++) if (a[i] != i-1) return 1;
39
40   puts ("env [");
41   puts (itoa ((int)env));
42   puts ("]\n");
43
44   puts ("e [");
45   puts (itoa ((int)e));
46   puts ("]\n");
47
48   puts ("env [0] == \"foo\"\n");
49   if (strcmp (env[0], "foo")) return 2;
50
51   puts ("env [1] == \"bar\"\n");
52   if (strcmp (env[1], "bar")) return 3;
53
54   puts ("t: **p in *env[]\n");
55
56   char **pp = env;
57   while (*pp)
58     {
59       puts ("pp [");
60       puts (itoa ((int)pp));
61       puts ("]: ");
62       if (*pp) puts (*pp);
63       puts ("\n");
64       pp++;
65       i++;
66     }
67   if (i != 3) return i;
68
69   pp = env;
70   puts ("t: *pp++ == \"foo\"\n");
71   if (strcmp (*pp++, "foo")) return 4;
72
73   puts ("t: *pp++ == \"bar\"\n");
74   if (strcmp (*pp++, "bar")) return 5;
75
76   char *buf = "hello";
77   puts ("t: buf[0]\n");
78   if (buf[0] != 'h') return 6;
79
80   puts ("t: buf + 1\n");
81   if (*(buf+1) != 'e') return 7;
82
83   char **p = &buf;
84   puts ("t: **p\n");
85   if (**p != 'h') return 8;
86
87   puts ("t: *(p + 1)\n");
88   if (*(*p + 1) != 'e') return 9;
89
90   puts ("t: getenv ()");
91   if (!getenv ("PATH")) return 10;
92
93   puts ("t: setenv ()");
94   if (setenv ("61-array", "yes", 1)) return 11;
95
96   puts ("t: getenv2 ()");
97   if (strcmp (getenv ("61-array"), "yes")) return 12;
98
99   return 0;
100 }
101
102 int
103 main (int argc, char *argv[])
104 {
105   return test (env);
106 }