Fix bugs during installation of libsndfile-ocaml.
[Faustine.git] / interpreter / lib / src / libsndfile-1.0.25 / tests / win32_test.c
1 /*
2 ** Copyright (C) 2001-2011 Erik de Castro Lopo <erikd@mega-nerd.com>
3 **
4 ** This program is free software; you can redistribute it and/or modify
5 ** it under the terms of the GNU General Public License as published by
6 ** the Free Software Foundation; either version 2 of the License, or
7 ** (at your option) any later version.
8 **
9 ** This program is distributed in the hope that it will be useful,
10 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 ** GNU General Public License for more details.
13 **
14 ** You should have received a copy of the GNU General Public License
15 ** along with this program; if not, write to the Free Software
16 ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 */
18
19 #include "sfconfig.h"
20 #include "sndfile.h"
21
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <assert.h>
25
26 #if HAVE_UNISTD_H
27 #include <unistd.h>
28 #endif
29
30 #if (HAVE_DECL_S_IRGRP == 0)
31 #include <sf_unistd.h>
32 #endif
33
34 #include <string.h>
35 #include <fcntl.h>
36 #include <errno.h>
37 #include <sys/types.h>
38 #include <sys/stat.h>
39
40 #define SIGNED_SIZEOF(x) ((int) sizeof (x))
41
42 /* EMX is OS/2. */
43 #if defined (__CYGWIN__) || defined (__EMX__)
44
45 #define LSEEK lseek
46 #define FSTAT fstat
47
48 typedef struct stat STATBUF ;
49 typedef off_t INT64 ;
50
51 static char dir_cmd [] = "ls -l" ;
52
53 #elif (defined (WIN32) || defined (_WIN32))
54
55 #define LSEEK _lseeki64
56 #define FSTAT _fstati64
57
58 typedef struct _stati64 STATBUF ;
59 typedef __int64 INT64 ;
60
61 static char dir_cmd [] = "dir" ;
62
63 #else
64
65 #define LSEEK lseek
66 #define FSTAT fstat
67
68 typedef struct stat STATBUF ;
69 typedef sf_count_t INT64 ;
70
71 #define O_BINARY 0
72 static char dir_cmd [] = "ls -l" ;
73
74 #endif
75
76 static void show_fstat_error (void) ;
77 static void show_lseek_error (void) ;
78 static void show_stat_fstat_error (void) ;
79 static void write_to_closed_file (void) ;
80
81 int
82 main (void)
83 {
84 puts ("\n\n\n\n"
85 "This program shows up errors in the Win32 implementation of\n"
86 "a couple of POSIX API functions on some versions of windoze.\n"
87 "It can also be compiled on Linux (which works correctly) and\n"
88 "other OSes just to provide a sanity check.\n"
89 ) ;
90
91 show_fstat_error () ;
92 show_lseek_error () ;
93 show_stat_fstat_error () ;
94 write_to_closed_file () ;
95
96 puts ("\n\n") ;
97
98 return 0 ;
99 } /* main */
100
101 static void
102 show_fstat_error (void)
103 { static const char *filename = "fstat.dat" ;
104 static char data [256] ;
105
106 STATBUF statbuf ;
107 int fd, mode, flags ;
108
109 if (sizeof (statbuf.st_size) != sizeof (INT64))
110 { printf ("\n\nLine %d: Error, sizeof (statbuf.st_size) != 8.\n\n", __LINE__) ;
111 return ;
112 } ;
113
114 puts ("\n64 bit fstat() test.\n--------------------") ;
115
116 printf ("0) Create a file, write %d bytes and close it.\n", SIGNED_SIZEOF (data)) ;
117 mode = O_WRONLY | O_CREAT | O_TRUNC | O_BINARY ;
118 flags = S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH ;
119 if ((fd = open (filename, mode, flags)) < 0)
120 { printf ("\n\nLine %d: open() failed : %s\n\n", __LINE__, strerror (errno)) ;
121 return ;
122 } ;
123 assert (write (fd, data, sizeof (data)) > 0) ;
124 close (fd) ;
125
126 printf ("1) Re-open file in read/write mode and write another %d bytes at the end.\n", SIGNED_SIZEOF (data)) ;
127 mode = O_RDWR | O_BINARY ;
128 flags = S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH ;
129 if ((fd = open (filename, mode, flags)) < 0)
130 { printf ("\n\nLine %d: open() failed : %s\n\n", __LINE__, strerror (errno)) ;
131 return ;
132 } ;
133 LSEEK (fd, 0, SEEK_END) ;
134 assert (write (fd, data, sizeof (data)) > 0) ;
135
136 printf ("2) Now use system (\"%s %s\") to show the file length.\n\n", dir_cmd, filename) ;
137
138 /* Would use snprintf, but thats not really available on windows. */
139 memset (data, 0, sizeof (data)) ;
140 strncpy (data, dir_cmd, sizeof (data) - 1) ;
141 strncat (data, " ", sizeof (data) - 1 - strlen (data)) ;
142 strncat (data, filename, sizeof (data) - 1 - strlen (data)) ;
143
144 assert (system (data) >= 0) ;
145 puts ("") ;
146
147 printf ("3) Now use fstat() to get the file length.\n") ;
148 if (FSTAT (fd, &statbuf) != 0)
149 { printf ("\n\nLine %d: fstat() returned error : %s\n", __LINE__, strerror (errno)) ;
150 return ;
151 } ;
152
153 printf ("4) According to fstat(), the file length is %ld, ", (long) statbuf.st_size) ;
154
155 close (fd) ;
156
157 if (statbuf.st_size != 2 * sizeof (data))
158 printf ("but thats just plain ***WRONG***.\n\n") ;
159 else
160 { printf ("which is correct.\n\n") ;
161 unlink (filename) ;
162 } ;
163
164 } /* show_fstat_error */
165
166 static void
167 show_lseek_error (void)
168 { static const char *filename = "fstat.dat" ;
169 static char data [256] ;
170
171 INT64 retval ;
172 int fd, mode, flags ;
173
174 puts ("\n64 bit lseek() test.\n--------------------") ;
175
176 printf ("0) Create a file, write %d bytes and close it.\n", SIGNED_SIZEOF (data)) ;
177 mode = O_WRONLY | O_CREAT | O_TRUNC | O_BINARY ;
178 flags = S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH ;
179 if ((fd = open (filename, mode, flags)) < 0)
180 { printf ("\n\nLine %d: open() failed : %s\n\n", __LINE__, strerror (errno)) ;
181 return ;
182 } ;
183 assert (write (fd, data, sizeof (data)) > 0) ;
184 close (fd) ;
185
186 printf ("1) Re-open file in read/write mode and write another %d bytes at the end.\n", SIGNED_SIZEOF (data)) ;
187 mode = O_RDWR | O_BINARY ;
188 flags = S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH ;
189 if ((fd = open (filename, mode, flags)) < 0)
190 { printf ("\n\nLine %d: open() failed : %s\n\n", __LINE__, strerror (errno)) ;
191 return ;
192 } ;
193
194 LSEEK (fd, 0, SEEK_END) ;
195 assert (write (fd, data, sizeof (data)) > 0) ;
196
197 printf ("2) Now use system (\"%s %s\") to show the file length.\n\n", dir_cmd, filename) ;
198
199 /* Would use snprintf, but thats not really available on windows. */
200 memset (data, 0, sizeof (data)) ;
201 strncpy (data, dir_cmd, sizeof (data) - 1) ;
202 strncat (data, " ", sizeof (data) - 1 - strlen (data)) ;
203 strncat (data, filename, sizeof (data) - 1 - strlen (data)) ;
204
205 assert (system (data) >= 0) ;
206 puts ("") ;
207
208 printf ("3) Now use lseek() to go to the end of the file.\n") ;
209 retval = LSEEK (fd, 0, SEEK_END) ;
210
211 printf ("4) We are now at position %ld, ", (long) retval) ;
212
213 close (fd) ;
214
215 if (retval != 2 * sizeof (data))
216 printf ("but thats just plain ***WRONG***.\n\n") ;
217 else
218 { printf ("which is correct.\n\n") ;
219 unlink (filename) ;
220 } ;
221
222 } /* show_lseek_error */
223
224 static void
225 show_stat_fstat_error (void)
226 { static const char *filename = "stat_fstat.dat" ;
227 static char data [256] ;
228
229 int fd, mode, flags ;
230 int stat_size, fstat_size ;
231 struct stat buf ;
232
233 /* Known to fail on WinXP. */
234 puts ("\nstat/fstat test.\n----------------") ;
235
236 printf ("0) Create a file and write %d bytes.\n", SIGNED_SIZEOF (data)) ;
237
238 mode = O_WRONLY | O_CREAT | O_TRUNC | O_BINARY ;
239 flags = S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH ;
240 if ((fd = open (filename, mode, flags)) < 0)
241 { printf ("\n\nLine %d: open() failed : %s\n\n", __LINE__, strerror (errno)) ;
242 return ;
243 } ;
244
245 assert (write (fd, data, sizeof (data)) > 0) ;
246
247 printf ("1) Now call stat and fstat on the file and retreive the file lengths.\n") ;
248
249 if (stat (filename, &buf) != 0)
250 { printf ("\n\nLine %d: stat() failed : %s\n\n", __LINE__, strerror (errno)) ;
251 goto error_exit ;
252 } ;
253 stat_size = buf.st_size ;
254
255 if (fstat (fd, &buf) != 0)
256 { printf ("\n\nLine %d: fstat() failed : %s\n\n", __LINE__, strerror (errno)) ;
257 goto error_exit ;
258 } ;
259 fstat_size = buf.st_size ;
260
261 printf ("2) Size returned by stat and fstat is %d and %d, ", stat_size, fstat_size) ;
262
263
264 if (stat_size == 0 || stat_size != fstat_size)
265 printf ("but thats just plain ***WRONG***.\n\n") ;
266 else
267 printf ("which is correct.\n\n") ;
268
269 error_exit :
270
271 close (fd) ;
272 unlink (filename) ;
273
274 return ;
275 } /* show_stat_fstat_error */
276
277
278 static void
279 write_to_closed_file (void)
280 { const char * filename = "closed_write_test.txt" ;
281 struct stat buf ;
282 FILE * file ;
283 int fd ;
284
285 puts ("\nWrite to closed file test.\n--------------------------") ;
286
287 printf ("0) First we open file for write using fopen().\n") ;
288 if ((file = fopen (filename, "w")) == NULL)
289 { printf ("\n\nLine %d: fopen() failed : %s\n\n", __LINE__, strerror (errno)) ;
290 return ;
291 } ;
292
293 printf ("1) Now we grab the file descriptor fileno().\n") ;
294 fd = fileno (file) ;
295
296 printf ("2) Write some text via the file descriptor.\n") ;
297 assert (write (fd, "a\n", 2) > 0) ;
298
299 printf ("3) Now we close the file using fclose().\n") ;
300 fclose (file) ;
301
302 stat (filename, &buf) ;
303 printf (" File size is %d bytes.\n", (int) buf.st_size) ;
304
305 printf ("4) Now write more data to the file descriptor which should fail.\n") ;
306 if (write (fd, "b\n", 2) < 0)
307 printf ("5) Good, write returned an error code as it should have.\n") ;
308 else
309 { printf ("5) Attempting to write to a closed file should have failed but didn't! *** WRONG ***\n") ;
310
311 stat (filename, &buf) ;
312 printf (" File size is %d bytes.\n", (int) buf.st_size) ;
313 } ;
314
315 unlink (filename) ;
316
317 return ;
318 } /* write_to_closed_file */