b304c9b4f0939de4df9f857ed06da6756f9a68a7
[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="); eputs (buf); eputs ("\n");
57   if (strcmp (buf, line))
58     return 2;
59
60   fwrite (end, strlen (end), 1, t);
61
62   fseek (t, 0, SEEK_SET);
63   memset (buf, 0, sizeof (buf));
64   fread (buf, strlen (line), 1, t);
65   eputs ("buf="); eputs (buf); eputs ("\n");
66   if (strcmp (buf, line))
67     return 3;
68
69   tmp = "bar";
70   dump (tmp, contents);
71   t = fopen (tmp, "w+");
72   if (t <= 0)
73     return 4;
74
75   fwrite (end, strlen (end), 1, t);
76   fseek (t, 0, SEEK_SET);
77   memset (buf, 0, sizeof (buf));
78   fread (buf, strlen (end), 1, t);
79   eputs ("buf="); eputs (buf); eputs ("\n");
80   if (strcmp (buf, end))
81     return 5;
82
83   fwrite (end, strlen (end), 1, t);
84
85   fseek (t, 0, SEEK_SET);
86   memset (buf, 0, sizeof (buf));
87   fread (buf, strlen (end), 1, t);
88   if (strcmp (buf, end))
89     return 6;
90
91   tmp = "baz";
92   dump (tmp, contents);
93   t = fopen (tmp, "a+");
94   if (t <= 0)
95     return 7;
96
97   fwrite (end, strlen (end), 1, t);
98   fseek (t, 0, SEEK_SET);
99   memset (buf, 0, sizeof (buf));
100   fread (buf, strlen (line), 1, t);
101   eputs ("buf="); eputs (buf); eputs ("\n");
102   if (strcmp (buf, line))
103     return 8;
104
105   fwrite (end, strlen (end), 1, t);
106
107   fseek (t, 0, SEEK_SET);
108   fread (buf, strlen (line), 1, t);
109   eputs ("buf="); eputs (buf); eputs ("\n");
110   if (strcmp (buf, line))
111     return 9;
112
113   return 0;
114 }