59d8db1b6e9b3933828583b447a48e94fd3fc935
[mes.git] / lib / tests / stdio / 90-fopen.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * GNU Mes --- Maxwell Equations of Software
3  * Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of GNU Mes.
6  *
7  * GNU 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  * GNU 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 GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 #include <mes/lib.h>
22
23 #include <fcntl.h>
24 #include <unistd.h>
25 #include <stdio.h>
26 #include <string.h>
27 #include <stdlib.h>
28
29 int
30 dump (char const *name, char const *contents)
31 {
32   unlink (name);
33   FILE *f = fopen (name, "w");
34   fwrite (contents, strlen (contents), 1, f);
35   fclose (f);
36 }
37
38 int
39 main ()
40 {
41   char *line = "The first line.\n";
42   char *contents = "The first line.\nThe second line.\nThe last line.\n";
43   char *end = "That's all folks!\n";
44
45   char *tmp = "foo";
46
47   dump (tmp, contents);
48
49   FILE *t = fopen (tmp, "r+");
50   if (t <= 0)
51     return 1;
52
53   char buf[80];
54   memset (buf, 0, sizeof (buf));
55   fread (buf, strlen (line), 1, t);
56   eputs ("buf=");
57   eputs (buf);
58   eputs ("\n");
59   if (strcmp (buf, line))
60     return 2;
61
62   fwrite (end, strlen (end), 1, t);
63
64   fseek (t, 0, SEEK_SET);
65   memset (buf, 0, sizeof (buf));
66   fread (buf, strlen (line), 1, t);
67   eputs ("buf=");
68   eputs (buf);
69   eputs ("\n");
70   if (strcmp (buf, line))
71     return 3;
72
73   tmp = "bar";
74   dump (tmp, contents);
75   t = fopen (tmp, "w+");
76   if (t <= 0)
77     return 4;
78
79   fwrite (end, strlen (end), 1, t);
80   fseek (t, 0, SEEK_SET);
81   memset (buf, 0, sizeof (buf));
82   fread (buf, strlen (end), 1, t);
83   eputs ("buf=");
84   eputs (buf);
85   eputs ("\n");
86   if (strcmp (buf, end))
87     return 5;
88
89   fwrite (end, strlen (end), 1, t);
90
91   fseek (t, 0, SEEK_SET);
92   memset (buf, 0, sizeof (buf));
93   fread (buf, strlen (end), 1, t);
94   if (strcmp (buf, end))
95     return 6;
96
97   tmp = "baz";
98   dump (tmp, contents);
99   t = fopen (tmp, "a+");
100   if (t <= 0)
101     return 7;
102
103   fwrite (end, strlen (end), 1, t);
104   fseek (t, 0, SEEK_SET);
105   memset (buf, 0, sizeof (buf));
106   fread (buf, strlen (line), 1, t);
107   eputs ("buf=");
108   eputs (buf);
109   eputs ("\n");
110   if (strcmp (buf, line))
111     return 8;
112
113   fwrite (end, strlen (end), 1, t);
114
115   fseek (t, 0, SEEK_SET);
116   fread (buf, strlen (line), 1, t);
117   eputs ("buf=");
118   eputs (buf);
119   eputs ("\n");
120   if (strcmp (buf, line))
121     return 9;
122
123   return 0;
124 }