Sweden-Number/dlls/msvcrt/tests/file.c

2748 lines
95 KiB
C

/*
* Unit test suite for file functions
*
* Copyright 2002 Bill Currie
* Copyright 2005 Paul Rupe
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "wine/test.h"
#include <stdarg.h>
#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <share.h>
#include <sys/stat.h>
#include <io.h>
#include <direct.h>
#include <windef.h>
#include <winbase.h>
#include <winnls.h>
#include <winreg.h>
#include <process.h>
#include <errno.h>
#include <locale.h>
#define MSVCRT_FD_BLOCK_SIZE 32
typedef struct {
HANDLE handle;
unsigned char wxflag;
char lookahead[3];
int exflag;
CRITICAL_SECTION crit;
} ioinfo;
static ioinfo **__pioinfo;
static HANDLE proc_handles[2];
static int (__cdecl *p_fopen_s)(FILE**, const char*, const char*);
static int (__cdecl *p__wfopen_s)(FILE**, const wchar_t*, const wchar_t*);
static errno_t (__cdecl *p__get_fmode)(int*);
static errno_t (__cdecl *p__set_fmode)(int);
static const char* get_base_name(const char *path)
{
const char *ret = path+strlen(path)-1;
while(ret >= path) {
if(*ret=='\\' || *ret=='/')
break;
ret--;
}
return ret+1;
}
static void init(void)
{
HMODULE hmod = GetModuleHandleA("msvcrt.dll");
setlocale(LC_CTYPE, "C");
p_fopen_s = (void*)GetProcAddress(hmod, "fopen_s");
p__wfopen_s = (void*)GetProcAddress(hmod, "_wfopen_s");
__pioinfo = (void*)GetProcAddress(hmod, "__pioinfo");
p__get_fmode = (void*)GetProcAddress(hmod, "_get_fmode");
p__set_fmode = (void*)GetProcAddress(hmod, "_set_fmode");
}
static void test_filbuf( void )
{
FILE *fp;
int c;
fpos_t pos;
fp = fopen("filbuf.tst", "wb");
fwrite("\n\n\n\n", 1, 4, fp);
fclose(fp);
fp = fopen("filbuf.tst", "rt");
c = _filbuf(fp);
ok(c == '\n', "read wrong byte\n");
/* See bug 16970 for why we care about _filbuf.
* ftell returns screwy values on files with lots
* of bare LFs in ascii mode because it assumes
* that ascii files contain only CRLFs, removes
* the CR's early in _filbuf, and adjusts the return
* value of ftell to compensate.
* native _filbuf will read the whole file, then consume and return
* the first one. That leaves fp->_fd at offset 4, and fp->_ptr
* pointing to a buffer of three bare LFs, so
* ftell will return 4 - 3 - 3 = -2.
*/
ok(ftell(fp) == -2, "ascii crlf removal does not match native\n");
ok(fgetpos(fp, &pos) == 0, "fgetpos fail\n");
ok(pos == -2, "ftell does not match fgetpos\n");
fclose(fp);
unlink("filbuf.tst");
}
static void test_fdopen( void )
{
static const char buffer[] = {0,1,2,3,4,5,6,7,8,9};
char ibuf[10];
int fd;
FILE *file;
fd = open ("fdopen.tst", O_WRONLY | O_CREAT | O_BINARY, _S_IREAD |_S_IWRITE);
write (fd, buffer, sizeof (buffer));
close (fd);
fd = open ("fdopen.tst", O_RDONLY | O_BINARY);
lseek (fd, 5, SEEK_SET);
file = fdopen (fd, "rb");
ok (fread (ibuf, 1, sizeof (buffer), file) == 5, "read wrong byte count\n");
ok (memcmp (ibuf, buffer + 5, 5) == 0, "read wrong bytes\n");
fclose (file);
unlink ("fdopen.tst");
}
static void test_fileops( void )
{
static const char outbuffer[] = "0,1,2,3,4,5,6,7,8,9";
char buffer[256];
WCHAR wbuffer[256];
int fd;
FILE *file;
fpos_t pos;
int i, c, bufmode;
static const int bufmodes[] = {_IOFBF,_IONBF};
fd = open ("fdopen.tst", O_WRONLY | O_CREAT | O_BINARY, _S_IREAD |_S_IWRITE);
write (fd, outbuffer, sizeof (outbuffer));
close (fd);
for (bufmode=0; bufmode < ARRAY_SIZE(bufmodes); bufmode++)
{
fd = open ("fdopen.tst", O_RDONLY | O_BINARY);
file = fdopen (fd, "rb");
setvbuf(file,NULL,bufmodes[bufmode],2048);
if(bufmodes[bufmode] == _IOFBF)
ok(file->_bufsiz == 2048, "file->_bufsiz = %d\n", file->_bufsiz);
ok(file->_base != NULL, "file->_base = NULL\n");
ok(strlen(outbuffer) == (sizeof(outbuffer)-1),"strlen/sizeof error for bufmode=%x\n", bufmodes[bufmode]);
ok(fgets(buffer,sizeof(buffer),file) !=0,"fgets failed unexpected for bufmode=%x\n", bufmodes[bufmode]);
ok(fgets(buffer,sizeof(buffer),file) ==0,"fgets didn't signal EOF for bufmode=%x\n", bufmodes[bufmode]);
ok(feof(file) !=0,"feof doesn't signal EOF for bufmode=%x\n", bufmodes[bufmode]);
rewind(file);
ok(fgets(buffer,strlen(outbuffer),file) !=0,"fgets failed unexpected for bufmode=%x\n", bufmodes[bufmode]);
ok(lstrlenA(buffer) == lstrlenA(outbuffer) -1,"fgets didn't read right size for bufmode=%x\n", bufmodes[bufmode]);
ok(fgets(buffer,sizeof(outbuffer),file) !=0,"fgets failed unexpected for bufmode=%x\n", bufmodes[bufmode]);
ok(strlen(buffer) == 1,"fgets dropped chars for bufmode=%x\n", bufmodes[bufmode]);
ok(buffer[0] == outbuffer[strlen(outbuffer)-1],"fgets exchanged chars for bufmode=%x\n", bufmodes[bufmode]);
rewind(file);
for (i = 0; i < sizeof(outbuffer); i++)
{
ok(fgetc(file) == outbuffer[i], "fgetc returned wrong data for bufmode=%x\n", bufmodes[bufmode]);
}
ok((c = fgetc(file)) == EOF, "getc did not return EOF for bufmode=%x\n", bufmodes[bufmode]);
ok(feof(file), "feof did not return EOF for bufmode=%x\n", bufmodes[bufmode]);
ok(ungetc(c, file) == EOF, "ungetc(EOF) did not return EOF for bufmode=%x\n", bufmodes[bufmode]);
ok(feof(file), "feof after ungetc(EOF) did not return EOF for bufmode=%x\n", bufmodes[bufmode]);
ok(fgetc(file) == EOF, "getc did not return EOF for bufmode=%x\n", bufmodes[bufmode]);
c = outbuffer[sizeof(outbuffer) - 1];
ok(ungetc(c, file) == c, "ungetc did not return its input for bufmode=%x\n", bufmodes[bufmode]);
ok(!feof(file), "feof after ungetc returned EOF for bufmode=%x\n", bufmodes[bufmode]);
ok((c = fgetc(file)) != EOF, "getc after ungetc returned EOF for bufmode=%x\n", bufmodes[bufmode]);
ok(c == outbuffer[sizeof(outbuffer) - 1],
"getc did not return ungetc'd data for bufmode=%x\n", bufmodes[bufmode]);
ok(!feof(file), "feof after getc returned EOF prematurely for bufmode=%x\n", bufmodes[bufmode]);
ok(fgetc(file) == EOF, "getc did not return EOF for bufmode=%x\n", bufmodes[bufmode]);
ok(feof(file), "feof after getc did not return EOF for bufmode=%x\n", bufmodes[bufmode]);
rewind(file);
ok(fgetpos(file,&pos) == 0, "fgetpos failed unexpected for bufmode=%x\n", bufmodes[bufmode]);
ok(pos == 0, "Unexpected result of fgetpos %s for bufmode=%x\n", wine_dbgstr_longlong(pos), bufmodes[bufmode]);
pos = sizeof (outbuffer);
ok(fsetpos(file, &pos) == 0, "fsetpos failed unexpected for bufmode=%x\n", bufmodes[bufmode]);
ok(fgetpos(file,&pos) == 0, "fgetpos failed unexpected for bufmode=%x\n", bufmodes[bufmode]);
ok(pos == sizeof (outbuffer), "Unexpected result of fgetpos %s for bufmode=%x\n", wine_dbgstr_longlong(pos), bufmodes[bufmode]);
fclose (file);
}
fd = open ("fdopen.tst", O_RDONLY | O_TEXT);
file = fdopen (fd, "rt"); /* open in TEXT mode */
ok(fgetws(wbuffer,ARRAY_SIZE(wbuffer),file) !=0,"fgetws failed unexpected\n");
ok(fgetws(wbuffer,ARRAY_SIZE(wbuffer),file) ==0,"fgetws didn't signal EOF\n");
ok(feof(file) !=0,"feof doesn't signal EOF\n");
rewind(file);
ok(fgetws(wbuffer,strlen(outbuffer),file) !=0,"fgetws failed unexpected\n");
ok(lstrlenW(wbuffer) == (lstrlenA(outbuffer) -1),"fgetws didn't read right size\n");
ok(fgetws(wbuffer,ARRAY_SIZE(outbuffer),file) !=0,"fgets failed unexpected\n");
ok(lstrlenW(wbuffer) == 1,"fgets dropped chars\n");
fclose (file);
file = fopen("fdopen.tst", "rb");
ok( file != NULL, "fopen failed\n");
/* sizeof(buffer) > content of file */
ok(fread(buffer, sizeof(buffer), 1, file) == 0, "fread test failed\n");
/* feof should be set now */
ok(feof(file), "feof after fread failed\n");
fclose (file);
unlink ("fdopen.tst");
}
#define IOMODE (ao?"ascii mode":"binary mode")
static void test_readmode( BOOL ascii_mode )
{
static const char outbuffer[] = "0,1,2,3,4,5,6,7,8,9\r\n\r\nA,B,C,D,E\r\nX,Y,Z";
static const char padbuffer[] = "ghjghjghjghj";
static const char nlbuffer[] = "\r\n";
static char buffer[8192];
const char *optr;
int fd;
FILE *file;
const int *ip;
int i, j, m, ao, pl;
unsigned int fp;
LONG l;
fd = open ("fdopen.tst", O_WRONLY | O_CREAT | O_BINARY, _S_IREAD |_S_IWRITE);
/* an internal buffer of BUFSIZ is maintained, so make a file big
* enough to test operations that cross the buffer boundary
*/
j = (2*BUFSIZ-4)/strlen(padbuffer);
for (i=0; i<j; i++)
write (fd, padbuffer, strlen(padbuffer));
j = (2*BUFSIZ-4)%strlen(padbuffer);
for (i=0; i<j; i++)
write (fd, &padbuffer[i], 1);
write (fd, nlbuffer, strlen(nlbuffer));
write (fd, outbuffer, sizeof (outbuffer));
close (fd);
if (ascii_mode) {
/* Open file in ascii mode */
fd = open ("fdopen.tst", O_RDONLY);
file = fdopen (fd, "r");
ao = -1; /* on offset to account for carriage returns */
}
else {
fd = open ("fdopen.tst", O_RDONLY | O_BINARY);
file = fdopen (fd, "rb");
ao = 0;
}
/* first is a test of fgets, ftell, fseek */
ok(ftell(file) == 0,"Did not start at beginning of file in %s\n", IOMODE);
ok(fgets(buffer,2*BUFSIZ+256,file) !=0,"padding line fgets failed unexpected in %s\n", IOMODE);
l = ftell(file);
pl = 2*BUFSIZ-2;
ok(l == pl,"padding line ftell got %d should be %d in %s\n", l, pl, IOMODE);
ok(lstrlenA(buffer) == pl+ao,"padding line fgets got size %d should be %d in %s\n",
lstrlenA(buffer), pl+ao, IOMODE);
for (fp=0; fp<strlen(outbuffer); fp++)
if (outbuffer[fp] == '\n') break;
fp++;
ok(fgets(buffer,256,file) !=0,"line 1 fgets failed unexpected in %s\n", IOMODE);
l = ftell(file);
ok(l == pl+fp,"line 1 ftell got %d should be %d in %s\n", l, pl+fp, IOMODE);
ok(lstrlenA(buffer) == fp+ao,"line 1 fgets got size %d should be %d in %s\n",
lstrlenA(buffer), fp+ao, IOMODE);
/* test a seek back across the buffer boundary */
l = pl;
ok(fseek(file,l,SEEK_SET)==0,"seek failure in %s\n", IOMODE);
l = ftell(file);
ok(l == pl,"ftell after seek got %d should be %d in %s\n", l, pl, IOMODE);
ok(fgets(buffer,256,file) !=0,"second read of line 1 fgets failed unexpected in %s\n", IOMODE);
l = ftell(file);
ok(l == pl+fp,"second read of line 1 ftell got %d should be %d in %s\n", l, pl+fp, IOMODE);
ok(lstrlenA(buffer) == fp+ao,"second read of line 1 fgets got size %d should be %d in %s\n",
lstrlenA(buffer), fp+ao, IOMODE);
ok(fgets(buffer,256,file) !=0,"line 2 fgets failed unexpected in %s\n", IOMODE);
fp += 2;
l = ftell(file);
ok(l == pl+fp,"line 2 ftell got %d should be %d in %s\n", l, pl+fp, IOMODE);
ok(lstrlenA(buffer) == 2+ao,"line 2 fgets got size %d should be %d in %s\n",
lstrlenA(buffer), 2+ao, IOMODE);
/* test fread across buffer boundary */
rewind(file);
ok(ftell(file) == 0,"Did not start at beginning of file in %s\n", IOMODE);
ok(fgets(buffer,BUFSIZ-6,file) !=0,"padding line fgets failed unexpected in %s\n", IOMODE);
j=strlen(outbuffer);
i=fread(buffer,1,BUFSIZ+strlen(outbuffer),file);
ok(i==BUFSIZ+j,"fread failed, expected %d got %d in %s\n", BUFSIZ+j, i, IOMODE);
l = ftell(file);
ok(l == pl+j-(ao*4)-5,"ftell after fread got %d should be %d in %s\n", l, pl+j-(ao*4)-5, IOMODE);
for (m=0; m<3; m++)
ok(buffer[m]==padbuffer[m+(BUFSIZ-4)%strlen(padbuffer)],"expected %c got %c\n", padbuffer[m], buffer[m]);
m+=BUFSIZ+2+ao;
optr = outbuffer;
for (; m<i; m++) {
ok(buffer[m]==*optr,"char %d expected %c got %c in %s\n", m, *optr, buffer[m], IOMODE);
optr++;
if (ao && (*optr == '\r'))
optr++;
}
/* fread should return the requested number of bytes if available */
rewind(file);
ok(ftell(file) == 0,"Did not start at beginning of file in %s\n", IOMODE);
ok(fgets(buffer,BUFSIZ-6,file) !=0,"padding line fgets failed unexpected in %s\n", IOMODE);
j = fp+10;
i=fread(buffer,1,j,file);
ok(i==j,"fread failed, expected %d got %d in %s\n", j, i, IOMODE);
/* test fread eof */
ok(fseek(file,0,SEEK_END)==0,"seek failure in %s\n", IOMODE);
ok(feof(file)==0,"feof failure in %s\n", IOMODE);
ok(fread(buffer,1,1,file)==0,"fread failure in %s\n", IOMODE);
ok(feof(file)!=0,"feof failure in %s\n", IOMODE);
ok(fseek(file,-3,SEEK_CUR)==0,"seek failure in %s\n", IOMODE);
ok(feof(file)==0,"feof failure in %s\n", IOMODE);
ok(fread(buffer,2,1,file)==1,"fread failed in %s\n", IOMODE);
ok(feof(file)==0,"feof failure in %s\n", IOMODE);
ok(fread(buffer,2,1,file)==0,"fread failure in %s\n",IOMODE);
ok(feof(file)!=0,"feof failure in %s\n", IOMODE);
/* test some additional functions */
rewind(file);
ok(ftell(file) == 0,"Did not start at beginning of file in %s\n", IOMODE);
ok(fgets(buffer,2*BUFSIZ+256,file) !=0,"padding line fgets failed unexpected in %s\n", IOMODE);
i = _getw(file);
ip = (const int *)outbuffer;
ok(i == *ip,"_getw failed, expected %08x got %08x in %s\n", *ip, i, IOMODE);
for (fp=0; fp<strlen(outbuffer); fp++)
if (outbuffer[fp] == '\n') break;
fp++;
/* this will cause the next _getw to cross carriage return characters */
ok(fgets(buffer,fp-6,file) !=0,"line 1 fgets failed unexpected in %s\n", IOMODE);
for (i=0, j=0; i<6; i++) {
if (ao==0 || outbuffer[fp-3+i] != '\r')
buffer[j++] = outbuffer[fp-3+i];
}
i = _getw(file);
ip = (int *)buffer;
ok(i == *ip,"_getw failed, expected %08x got %08x in %s\n", *ip, i, IOMODE);
fclose (file);
unlink ("fdopen.tst");
/* test INTERNAL_BUFSIZ read containing 0x1a character (^Z) */
fd = open("fdopen.tst", O_WRONLY | O_CREAT | O_BINARY, _S_IREAD |_S_IWRITE);
ok(fd != -1, "open failed\n");
memset(buffer, 'a', sizeof(buffer));
buffer[1] = 0x1a;
ok(write(fd, buffer, sizeof(buffer)) == sizeof(buffer), "write failed\n");
ok(close(fd) != -1, "close failed\n");
fd = open("fdopen.tst", O_RDONLY);
ok(fd != -1, "open failed\n");
file = fdopen(fd, ascii_mode ? "r" : "rb");
ok(file != NULL, "fdopen failed\n");
memset(buffer, 0, sizeof(buffer));
i = fread(buffer, 4096, 1, file);
ok(!i, "fread succeeded\n");
ok(file->_bufsiz == 4096, "file->_bufsiz = %d\n", file->_bufsiz);
for(i=0; i<4096; i++)
if(buffer[i] != (i==1 ? 0x1a : 'a')) break;
ok(i==4096, "buffer[%d] = %d\n", i, buffer[i]);
fclose(file);
unlink("fdopen.tst");
}
static void test_asciimode(void)
{
FILE *fp;
char buf[64];
int c, i, j;
/* Simple test of CR CR LF handling. Test both fgets and fread code paths, they're different! */
fp = fopen("ascii.tst", "wb");
fputs("\r\r\n", fp);
fclose(fp);
fp = fopen("ascii.tst", "rt");
ok(fgets(buf, sizeof(buf), fp) != NULL, "fgets\n");
ok(0 == strcmp(buf, "\r\n"), "CR CR LF not read as CR LF\n");
rewind(fp);
ok((fread(buf, 1, sizeof(buf), fp) == 2) && (0 == strcmp(buf, "\r\n")), "CR CR LF not read as CR LF\n");
fclose(fp);
unlink("ascii.tst");
/* Simple test of foo ^Z [more than one block] bar handling */
fp = fopen("ascii.tst", "wb");
fputs("foo\032", fp); /* foo, logical EOF, ... */
fseek(fp, 65536L, SEEK_SET); /* ... more than MSVCRT_BUFSIZ, ... */
fputs("bar", fp); /* ... bar */
fclose(fp);
fp = fopen("ascii.tst", "rt");
ok(fgets(buf, sizeof(buf), fp) != NULL, "fgets foo\n");
ok(0 == strcmp(buf, "foo"), "foo ^Z not read as foo by fgets\n");
ok(fgets(buf, sizeof(buf), fp) == NULL, "fgets after logical EOF\n");
rewind(fp);
ok((fread(buf, 1, sizeof(buf), fp) == 3) && (0 == strcmp(buf, "foo")), "foo ^Z not read as foo by fread\n");
ok((fread(buf, 1, sizeof(buf), fp) == 0), "fread after logical EOF\n");
fclose(fp);
/* Show ASCII mode handling*/
fp= fopen("ascii.tst","wb");
fputs("0\r\n1\r\n2\r\n3\r\n4\r\n5\r\n6\r\n7\r\n8\r\n9\r\n", fp);
fclose(fp);
fp = fopen("ascii.tst", "r");
c= fgetc(fp);
ok(c == '0', "fgetc failed, expected '0', got '%c'\n", c);
c= fgetc(fp);
ok(c == '\n', "fgetc failed, expected '\\n', got '%c'\n", c);
fseek(fp,0,SEEK_CUR);
for(i=1; i<10; i++) {
ok((j = ftell(fp)) == i*3, "ftell fails in TEXT mode\n");
fseek(fp,0,SEEK_CUR);
ok((c = fgetc(fp)) == '0'+ i, "fgetc after fseek failed in line %d\n", i);
c= fgetc(fp);
ok(c == '\n', "fgetc failed, expected '\\n', got '%c'\n", c);
}
/* Show that fseek doesn't skip \\r !*/
rewind(fp);
c= fgetc(fp);
ok(c == '0', "fgetc failed, expected '0', got '%c'\n", c);
fseek(fp, 2 ,SEEK_CUR);
for(i=1; i<10; i++) {
ok((c = fgetc(fp)) == '0'+ i, "fgetc after fseek with pos Offset failed in line %d\n", i);
fseek(fp, 2 ,SEEK_CUR);
}
fseek(fp, 9*3 ,SEEK_SET);
c = fgetc(fp);
ok(c == '9', "fgetc failed, expected '9', got '%c'\n", c);
fseek(fp, -4 ,SEEK_CUR);
for(i= 8; i>=0; i--) {
ok((c = fgetc(fp)) == '0'+ i, "fgetc after fseek with neg Offset failed in line %d\n", i);
fseek(fp, -4 ,SEEK_CUR);
}
/* Show what happens if fseek positions filepointer on \\r */
fclose(fp);
fp = fopen("ascii.tst", "r");
fseek(fp, 3 ,SEEK_SET);
ok((c = fgetc(fp)) == '1', "fgetc fails to read next char when positioned on \\r\n");
fclose(fp);
unlink("ascii.tst");
}
static void test_asciimode2(void)
{
/* Error sequence from one app was getchar followed by small fread
* with one \r removed had last byte of buffer filled with
* next byte of *unbuffered* data rather than next byte from buffer
* Test case is a short string of one byte followed by a newline
* followed by filler to fill out the sector, then a sector of
* some different byte.
*/
FILE *fp;
char ibuf[4];
int i;
static const char obuf[] =
"00\n"
"000000000000000000000000000000000000000000000000000000000000000000000000000000\n"
"000000000000000000000000000000000000000000000000000000000000000000000000000000\n"
"000000000000000000000000000000000000000000000000000000000000000000000000000000\n"
"000000000000000000000000000000000000000000000000000000000000000000000000000000\n"
"000000000000000000000000000000000000000000000000000000000000000000000000000000\n"
"000000000000000000000000000000000000000000000000000000000000000000000000000000\n"
"000000000000000000\n"
"1111111111111111111";
fp = fopen("ascii2.tst", "wt");
fwrite(obuf, 1, sizeof(obuf), fp);
fclose(fp);
fp = fopen("ascii2.tst", "rt");
ok(getc(fp) == '0', "first char not 0\n");
memset(ibuf, 0, sizeof(ibuf));
i = fread(ibuf, 1, sizeof(ibuf), fp);
ok(i == sizeof(ibuf), "fread i %d != sizeof(ibuf)\n", i);
ok(0 == strncmp(ibuf, obuf+1, sizeof(ibuf)), "ibuf != obuf\n");
fclose(fp);
unlink("ascii2.tst");
}
static void test_filemodeT(void)
{
char DATA [] = {26, 't', 'e', 's' ,'t'};
char DATA2 [100];
char temppath[MAX_PATH];
char tempfile[MAX_PATH];
FILE* f;
size_t bytesWritten;
size_t bytesRead;
WIN32_FIND_DATAA findData;
HANDLE h;
GetTempPathA(MAX_PATH, temppath);
GetTempFileNameA(temppath, "", 0, tempfile);
f = fopen(tempfile, "w+bDT");
bytesWritten = fwrite(DATA, 1, sizeof(DATA), f);
rewind(f);
bytesRead = fread(DATA2, 1, sizeof(DATA2), f);
fclose(f);
ok (bytesRead == bytesWritten && bytesRead == sizeof(DATA),
"fopen file mode 'T' wrongly interpreted as 't'\n" );
h = FindFirstFileA(tempfile, &findData);
ok (h == INVALID_HANDLE_VALUE, "file wasn't deleted when closed.\n" );
if (h != INVALID_HANDLE_VALUE) FindClose(h);
}
static WCHAR* AtoW( const char* p )
{
WCHAR* buffer;
DWORD len = MultiByteToWideChar( CP_ACP, 0, p, -1, NULL, 0 );
buffer = malloc( len * sizeof(WCHAR) );
MultiByteToWideChar( CP_ACP, 0, p, -1, buffer, len );
return buffer;
}
/* Test reading in text mode when the 512'th character read is \r*/
static void test_readboundary(void)
{
FILE *fp;
char buf[513], rbuf[513];
int i, j;
for (i = 0; i < 511; i++)
{
j = (i%('~' - ' ')+ ' ');
buf[i] = j;
}
buf[511] = '\n';
buf[512] =0;
fp = fopen("boundary.tst", "wt");
fwrite(buf, 512,1,fp);
fclose(fp);
fp = fopen("boundary.tst", "rt");
for(i=0; i<512; i++)
{
fseek(fp,0 , SEEK_CUR);
rbuf[i] = fgetc(fp);
}
rbuf[512] =0;
fclose(fp);
unlink("boundary.tst");
ok(strcmp(buf, rbuf) == 0,"CRLF on buffer boundary failure\n");
}
static void test_fgetc( void )
{
char* tempf;
FILE *tempfh;
int ich=0xe0, ret;
tempf=_tempnam(".","wne");
tempfh = fopen(tempf,"w+");
fputc(ich, tempfh);
fputc(ich, tempfh);
rewind(tempfh);
ret = fgetc(tempfh);
ok(ich == ret, "First fgetc expected %x got %x\n", ich, ret);
ret = fgetc(tempfh);
ok(ich == ret, "Second fgetc expected %x got %x\n", ich, ret);
fclose(tempfh);
tempfh = fopen(tempf,"wt");
fputc('\n', tempfh);
fclose(tempfh);
tempfh = fopen(tempf,"wt");
setbuf(tempfh, NULL);
ret = fgetc(tempfh);
ok(ret == -1, "Unbuffered fgetc in text mode must failed on \\r\\n\n");
fclose(tempfh);
unlink(tempf);
free(tempf);
}
static void test_fputc( void )
{
char* tempf;
FILE *tempfh;
int ret;
tempf=_tempnam(".","wne");
tempfh = fopen(tempf,"wb");
ret = fputc(0,tempfh);
ok(0 == ret, "fputc(0,tempfh) expected %x got %x\n", 0, ret);
ret = fputc(0xff,tempfh);
ok(0xff == ret, "fputc(0xff,tempfh) expected %x got %x\n", 0xff, ret);
ret = fputc(0xffffffff,tempfh);
ok(0xff == ret, "fputc(0xffffffff,tempfh) expected %x got %x\n", 0xff, ret);
fclose(tempfh);
tempfh = fopen(tempf,"rb");
ret = fputc(0,tempfh);
ok(EOF == ret, "fputc(0,tempfh) on r/o file expected %x got %x\n", EOF, ret);
fclose(tempfh);
unlink(tempf);
free(tempf);
}
static void test_flsbuf( void )
{
char* tempf;
FILE *tempfh;
int c;
int ret;
int bufmode;
static const int bufmodes[] = {_IOFBF,_IONBF};
tempf=_tempnam(".","wne");
for (bufmode=0; bufmode < ARRAY_SIZE(bufmodes); bufmode++)
{
tempfh = fopen(tempf,"wb");
setvbuf(tempfh,NULL,bufmodes[bufmode],2048);
ret = _flsbuf(0,tempfh);
ok(0 == ret, "_flsbuf(0,tempfh) with bufmode %x expected %x got %x\n",
bufmodes[bufmode], 0, ret);
ret = _flsbuf(0xff,tempfh);
ok(0xff == ret, "_flsbuf(0xff,tempfh) with bufmode %x expected %x got %x\n",
bufmodes[bufmode], 0xff, ret);
ret = _flsbuf(0xffffffff,tempfh);
ok(0xff == ret, "_flsbuf(0xffffffff,tempfh) with bufmode %x expected %x got %x\n",
bufmodes[bufmode], 0xff, ret);
if(tempfh->_base) {
fputc('x', tempfh);
tempfh->_cnt = -1;
tempfh->_base[1] = 'a';
ret = _flsbuf(0xab,tempfh);
ok(ret == 0xab, "_flsbuf(0xab,tempfh) with bufmode %x expected 0xab got %x\n",
bufmodes[bufmode], ret);
ok(tempfh->_base[1] == 'a', "tempfh->_base[1] should not be changed (%d)\n",
tempfh->_base[1]);
}
fclose(tempfh);
}
tempfh = fopen(tempf,"rb");
ret = _flsbuf(0,tempfh);
ok(EOF == ret, "_flsbuf(0,tempfh) on r/o file expected %x got %x\n", EOF, ret);
fclose(tempfh);
/* See bug 17123, exposed by WinAVR's make */
tempfh = fopen(tempf,"w");
ok(tempfh->_cnt == 0, "_cnt on freshly opened file was %d\n", tempfh->_cnt);
setbuf(tempfh, NULL);
ok(tempfh->_cnt == 0, "_cnt on unbuffered file was %d\n", tempfh->_cnt);
ok(tempfh->_bufsiz == 2, "_bufsiz = %d\n", tempfh->_bufsiz);
/* Inlined putchar sets _cnt to -1. Native seems to ignore the value... */
tempfh->_cnt = 1234;
ret = _flsbuf('Q',tempfh);
ok('Q' == ret, "_flsbuf('Q',tempfh) expected %x got %x\n", 'Q', ret);
/* ... and reset it to zero */
ok(tempfh->_cnt == 0, "after unbuf _flsbuf, _cnt was %d\n", tempfh->_cnt);
fclose(tempfh);
/* And just for grins, make sure the file is correct */
tempfh = fopen(tempf,"r");
c = fgetc(tempfh);
ok(c == 'Q', "first byte should be 'Q'\n");
c = fgetc(tempfh);
ok(c == EOF, "there should only be one byte\n");
fclose(tempfh);
unlink(tempf);
free(tempf);
}
static void test_fflush( void )
{
static const char obuf[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=";
char buf1[16], buf2[24];
char *tempf;
FILE *tempfh;
int ret, fd;
tempf=_tempnam(".","wne");
/* Prepare the file. */
tempfh = fopen(tempf,"wb");
ok(tempfh != NULL, "Can't open test file.\n");
fwrite(obuf, 1, sizeof(obuf), tempfh);
fclose(tempfh);
/* Open the file for input. */
tempfh = fopen(tempf,"rb");
ok(tempfh != NULL, "Can't open test file.\n");
fread(buf1, 1, sizeof(buf1), tempfh);
/* Using fflush() on input stream is undefined in ANSI.
* But MSDN says that it clears input buffer. */
_lseek(_fileno(tempfh), 0, SEEK_SET);
ret = fflush(tempfh);
ok(ret == 0, "expected 0, got %d\n", ret);
memset(buf2, '?', sizeof(buf2));
fread(buf2, 1, sizeof(buf2), tempfh);
ok(memcmp(buf1, buf2, sizeof(buf1)) == 0, "Got unexpected data (%c)\n", buf2[0]);
/* fflush(NULL) doesn't clear input buffer. */
_lseek(_fileno(tempfh), 0, SEEK_SET);
ret = fflush(NULL);
ok(ret == 0, "expected 0, got %d\n", ret);
memset(buf2, '?', sizeof(buf2));
fread(buf2, 1, sizeof(buf2), tempfh);
ok(memcmp(buf1, buf2, sizeof(buf1)) != 0, "Got unexpected data (%c)\n", buf2[0]);
/* _flushall() clears input buffer. */
_lseek(_fileno(tempfh), 0, SEEK_SET);
ret = _flushall();
ok(ret >= 0, "unexpected ret %d\n", ret);
memset(buf2, '?', sizeof(buf2));
fread(buf2, 1, sizeof(buf2), tempfh);
ok(memcmp(buf1, buf2, sizeof(buf1)) == 0, "Got unexpected data (%c)\n", buf2[0]);
fclose(tempfh);
unlink(tempf);
/* test flush failure */
tempfh = fopen(tempf,"wb");
ok(tempfh != NULL, "Can't open test file.\n");
fwrite(obuf, 1, sizeof(obuf), tempfh);
fd = tempfh->_file;
tempfh->_file = -1;
ok(tempfh->_ptr - tempfh->_base, "buffer is empty\n");
ret = fflush(tempfh);
ok(ret == EOF, "expected EOF, got %d\n", ret);
ok(!(tempfh->_ptr - tempfh->_base), "buffer should be empty\n");
ok(!tempfh->_cnt, "tempfh->_cnt = %d\n", tempfh->_cnt);
tempfh->_file = fd;
fclose(tempfh);
unlink(tempf);
free(tempf);
}
static void test_fgetwc( void )
{
#define LLEN 512
char* tempf;
FILE *tempfh;
static const char mytext[]= "This is test_fgetwc\r\n";
WCHAR wtextW[BUFSIZ+LLEN+1];
WCHAR *mytextW = NULL, *aptr, *wptr;
BOOL diff_found = FALSE;
int j;
unsigned int i;
LONG l;
tempf=_tempnam(".","wne");
tempfh = fopen(tempf,"wb");
j = 'a';
/* pad to almost the length of the internal buffer */
for (i=0; i<BUFSIZ-4; i++)
fputc(j,tempfh);
j = '\r';
fputc(j,tempfh);
j = '\n';
fputc(j,tempfh);
fputs(mytext,tempfh);
fclose(tempfh);
/* in text mode, getws/c expects multibyte characters */
/*currently Wine only supports plain ascii, and that is all that is tested here */
tempfh = fopen(tempf,"rt"); /* open in TEXT mode */
fgetws(wtextW,LLEN,tempfh);
l=ftell(tempfh);
ok(l==BUFSIZ-2, "ftell expected %d got %d\n", BUFSIZ-2, l);
fgetws(wtextW,LLEN,tempfh);
l=ftell(tempfh);
ok(l==BUFSIZ-2+strlen(mytext), "ftell expected %d got %d\n", BUFSIZ-2+lstrlenA(mytext), l);
mytextW = AtoW (mytext);
aptr = mytextW;
wptr = wtextW;
for (i=0; i<strlen(mytext)-2; i++, aptr++, wptr++)
{
diff_found |= (*aptr != *wptr);
}
ok(!(diff_found), "fgetwc difference found in TEXT mode\n");
ok(*wptr == '\n', "Carriage return was not skipped\n");
fclose(tempfh);
unlink(tempf);
tempfh = fopen(tempf,"wb");
j = 'a';
/* pad to almost the length of the internal buffer. Use an odd number of bytes
to test that we can read wchars that are split across the internal buffer
boundary */
for (i=0; i<BUFSIZ-3-strlen(mytext)*sizeof(WCHAR); i++)
fputc(j,tempfh);
j = '\r';
fputwc(j,tempfh);
j = '\n';
fputwc(j,tempfh);
fputws(wtextW,tempfh);
fputws(wtextW,tempfh);
fclose(tempfh);
/* in binary mode, getws/c expects wide characters */
tempfh = fopen(tempf,"rb"); /* open in BINARY mode */
j=(BUFSIZ-2)/sizeof(WCHAR)-strlen(mytext);
fgetws(wtextW,j,tempfh);
l=ftell(tempfh);
j=(j-1)*sizeof(WCHAR);
ok(l==j, "ftell expected %d got %d\n", j, l);
i=fgetc(tempfh);
ok(i=='a', "fgetc expected %d got %d\n", 0x61, i);
l=ftell(tempfh);
j++;
ok(l==j, "ftell expected %d got %d\n", j, l);
fgetws(wtextW,3,tempfh);
ok(wtextW[0]=='\r',"expected carriage return got %04hx\n", wtextW[0]);
ok(wtextW[1]=='\n',"expected newline got %04hx\n", wtextW[1]);
l=ftell(tempfh);
j += 4;
ok(l==j, "ftell expected %d got %d\n", j, l);
for(i=0; i<strlen(mytext); i++)
wtextW[i] = 0;
/* the first time we get the string, it should be entirely within the local buffer */
fgetws(wtextW,LLEN,tempfh);
l=ftell(tempfh);
j += (strlen(mytext)-1)*sizeof(WCHAR);
ok(l==j, "ftell expected %d got %d\n", j, l);
diff_found = FALSE;
aptr = mytextW;
wptr = wtextW;
for (i=0; i<strlen(mytext)-2; i++, aptr++, wptr++)
{
ok(*aptr == *wptr, "Char %d expected %04hx got %04hx\n", i, *aptr, *wptr);
diff_found |= (*aptr != *wptr);
}
ok(!(diff_found), "fgetwc difference found in BINARY mode\n");
ok(*wptr == '\n', "Should get newline\n");
for(i=0; i<strlen(mytext); i++)
wtextW[i] = 0;
/* the second time we get the string, it should cross the local buffer boundary.
One of the wchars should be split across the boundary */
fgetws(wtextW,LLEN,tempfh);
diff_found = FALSE;
aptr = mytextW;
wptr = wtextW;
for (i=0; i<strlen(mytext)-2; i++, aptr++, wptr++)
{
ok(*aptr == *wptr, "Char %d expected %04hx got %04hx\n", i, *aptr, *wptr);
diff_found |= (*aptr != *wptr);
}
ok(!(diff_found), "fgetwc difference found in BINARY mode\n");
ok(*wptr == '\n', "Should get newline\n");
free(mytextW);
fclose(tempfh);
unlink(tempf);
free(tempf);
}
static void test_fgetwc_locale(const char* text, const char* locale, int codepage)
{
char temppath[MAX_PATH], tempfile[MAX_PATH];
FILE *tempfh;
static const WCHAR wchar_text[] = { 0xfeff, 0xff1f, '!' };
WCHAR wtextW[BUFSIZ];
int ret = 0, i;
wint_t ch;
if (!setlocale(LC_CTYPE, locale))
{
win_skip("%s locale not available\n", locale);
return;
}
GetTempPathA(MAX_PATH, temppath);
GetTempFileNameA(temppath, "", 0, tempfile);
tempfh = fopen(tempfile, "wb");
ok(tempfh != NULL, "can't open tempfile\n");
fwrite(text, 1, strlen(text), tempfh);
fclose(tempfh);
if (codepage != 0)
{
/* mbstowcs rejects invalid multibyte sequence,
so we use MultiByteToWideChar here. */
ret = MultiByteToWideChar(codepage, 0, text, -1, wtextW, ARRAY_SIZE(wtextW));
ok(ret > 0, "MultiByteToWideChar failed\n");
}
else
{
/* C locale */
const char *p;
for (p = text; *p != '\0'; p++)
wtextW[ret++] = (unsigned char)*p;
wtextW[ret++] = 0;
}
tempfh = fopen(tempfile, "rt");
ok(tempfh != NULL, "can't open tempfile\n");
for (i = 0; i < ret-1; i++)
{
ch = fgetwc(tempfh);
ok(ch == wtextW[i], "got %04hx, expected %04hx (cp%d[%d])\n", ch, wtextW[i], codepage, i);
}
ch = fgetwc(tempfh);
ok(ch == WEOF, "got %04hx, expected WEOF (cp%d)\n", ch, codepage);
fclose(tempfh);
tempfh = fopen(tempfile, "wb");
ok(tempfh != NULL, "can't open tempfile\n");
fwrite(wchar_text, 1, sizeof(wchar_text), tempfh);
fclose(tempfh);
tempfh = fopen(tempfile, "rb");
ok(tempfh != NULL, "can't open tempfile\n");
for (i = 0; i < ARRAY_SIZE(wchar_text); i++)
{
ch = fgetwc(tempfh);
ok(ch == wchar_text[i], "got %04hx, expected %04x (cp%d[%d])\n", ch, wchar_text[i], codepage, i);
}
ch = fgetwc(tempfh);
ok(ch == WEOF, "got %04hx, expected WEOF (cp%d)\n", ch, codepage);
fclose(tempfh);
unlink(tempfile);
}
static void test_fgetwc_unicode(void)
{
char temppath[MAX_PATH], tempfile[MAX_PATH];
FILE *tempfh;
static const WCHAR wchar_text[] = { 0xfeff, 0xff1f, '!' };
char utf8_text[BUFSIZ];
int ret, i;
wint_t ch;
GetTempPathA(MAX_PATH, temppath);
GetTempFileNameA(temppath, "", 0, tempfile);
if (!p_fopen_s)
{
win_skip("fopen_s not available\n");
return;
}
tempfh = fopen(tempfile, "wb");
ok(tempfh != NULL, "can't open tempfile\n");
fwrite(wchar_text, 1, sizeof(wchar_text), tempfh);
fclose(tempfh);
tempfh = fopen(tempfile, "rt,ccs=unicode");
ok(tempfh != NULL, "can't open tempfile\n");
for (i = 1; i < ARRAY_SIZE(wchar_text); i++)
{
ch = fgetwc(tempfh);
ok(ch == wchar_text[i],
"got %04hx, expected %04x (unicode[%d])\n", ch, wchar_text[i], i-1);
}
ch = fgetwc(tempfh);
ok(ch == WEOF, "got %04hx, expected WEOF (unicode)\n", ch);
fclose(tempfh);
tempfh = fopen(tempfile, "r,ccs=utf-8");
ok(tempfh != NULL, "can't open tempfile\n");
for (i = 1; i < ARRAY_SIZE(wchar_text); i++)
{
ch = fgetwc(tempfh);
ok(ch == wchar_text[i],
"got %04hx, expected %04x (unicode[%d])\n", ch, wchar_text[i], i-1);
}
ch = fgetwc(tempfh);
ok(ch == WEOF, "got %04hx, expected WEOF (unicode)\n", ch);
fclose(tempfh);
tempfh = fopen(tempfile, "a,ccs=utf-16le");
ok(tempfh != NULL, "can't open tempfile\n");
ch = fputwc('a', tempfh);
ok(ch == 'a', "fputwc returned %x\n", ch);
fclose(tempfh);
tempfh = fopen(tempfile, "a+,ccs=utf-8");
ok(tempfh != NULL, "can't open tempfile\n");
for (i = 1; i < ARRAY_SIZE(wchar_text); i++)
{
ch = fgetwc(tempfh);
ok(ch == wchar_text[i],
"got %04hx, expected %04x (unicode[%d])\n", ch, wchar_text[i], i-1);
}
ch = fgetwc(tempfh);
ok(ch == 'a', "got %04x, expected 'a'\n", ch);
ch = fgetwc(tempfh);
ok(ch == WEOF, "got %04hx, expected WEOF (unicode)\n", ch);
fclose(tempfh);
tempfh = fopen(tempfile, "wb");
ok(tempfh != NULL, "can't open tempfile\n");
ret = WideCharToMultiByte(CP_UTF8, 0, wchar_text, ARRAY_SIZE(wchar_text),
utf8_text, sizeof(utf8_text), NULL, NULL);
ok(ret > 0, "utf-8 conversion failed\n");
fwrite(utf8_text, sizeof(char), ret, tempfh);
fclose(tempfh);
tempfh = fopen(tempfile, "rt, ccs=UTF-8");
ok(tempfh != NULL, "can't open tempfile\n");
for (i = 1; i < ARRAY_SIZE(wchar_text); i++)
{
ch = fgetwc(tempfh);
ok(ch == wchar_text[i],
"got %04hx, expected %04x (utf8[%d])\n", ch, wchar_text[i], i-1);
}
ch = fgetwc(tempfh);
ok(ch == WEOF, "got %04hx, expected WEOF (utf8)\n", ch);
fclose(tempfh);
tempfh = fopen(tempfile, "wb");
ok(tempfh != NULL, "can't open tempfile\n");
fwrite(wchar_text+1, 1, sizeof(wchar_text)-1, tempfh);
fclose(tempfh);
tempfh = fopen(tempfile, "rt,ccs=utf-16le");
ok(tempfh != NULL, "can't open tempfile\n");
for (i = 1; i < ARRAY_SIZE(wchar_text); i++)
{
ch = fgetwc(tempfh);
ok(ch == wchar_text[i],
"got %04hx, expected %04x (unicode[%d])\n", ch, wchar_text[i], i-1);
}
ch = fgetwc(tempfh);
ok(ch == WEOF, "got %04hx, expected WEOF (unicode)\n", ch);
fclose(tempfh);
unlink(temppath);
}
static void test_fputwc(void)
{
char temppath[MAX_PATH];
char tempfile[MAX_PATH];
FILE *f;
char buf[1024];
int ret;
GetTempPathA(MAX_PATH, temppath);
GetTempFileNameA(temppath, "", 0, tempfile);
f = fopen(tempfile, "w");
ret = fputwc('a', f);
ok(ret == 'a', "fputwc returned %x, expected 'a'\n", ret);
ret = fputwc('\n', f);
ok(ret == '\n', "fputwc returned %x, expected '\\n'\n", ret);
fclose(f);
f = fopen(tempfile, "rb");
ret = fread(buf, 1, sizeof(buf), f);
ok(ret == 3, "fread returned %d, expected 3\n", ret);
ok(!memcmp(buf, "a\r\n", 3), "incorrect file data\n");
fclose(f);
if(p_fopen_s) {
f = fopen(tempfile, "w,ccs=unicode");
ret = fputwc('a', f);
ok(ret == 'a', "fputwc returned %x, expected 'a'\n", ret);
ret = fputwc('\n', f);
ok(ret == '\n', "fputwc returned %x, expected '\\n'\n", ret);
fclose(f);
f = fopen(tempfile, "rb");
ret = fread(buf, 1, sizeof(buf), f);
ok(ret == 8, "fread returned %d, expected 8\n", ret);
ok(!memcmp(buf, "\xff\xfe\x61\x00\r\x00\n\x00", 8), "incorrect file data\n");
fclose(f);
f = fopen(tempfile, "w,ccs=utf-8");
ret = fputwc('a', f);
ok(ret == 'a', "fputwc returned %x, expected 'a'\n", ret);
ret = fputwc('\n', f);
ok(ret == '\n', "fputwc returned %x, expected '\\n'\n", ret);
fclose(f);
f = fopen(tempfile, "rb");
ret = fread(buf, 1, sizeof(buf), f);
ok(ret == 6, "fread returned %d, expected 6\n", ret);
ok(!memcmp(buf, "\xef\xbb\xbf\x61\r\n", 6), "incorrect file data\n");
fclose(f);
}else {
win_skip("fputwc tests on unicode files\n");
}
_unlink(tempfile);
}
static void test_ctrlz( void )
{
char* tempf;
FILE *tempfh;
static const char mytext[]= "This is test_ctrlz";
char buffer[256];
int i, j;
LONG l;
tempf=_tempnam(".","wne");
tempfh = fopen(tempf,"wb");
fputs(mytext,tempfh);
j = 0x1a; /* a ctrl-z character signals EOF in text mode */
fputc(j,tempfh);
j = '\r';
fputc(j,tempfh);
j = '\n';
fputc(j,tempfh);
j = 'a';
fputc(j,tempfh);
fclose(tempfh);
tempfh = fopen(tempf,"rt"); /* open in TEXT mode */
ok(fgets(buffer,256,tempfh) != 0,"fgets failed unexpected\n");
i=strlen(buffer);
j=strlen(mytext);
ok(i==j, "returned string length expected %d got %d\n", j, i);
j+=4; /* ftell should indicate the true end of file */
l=ftell(tempfh);
ok(l==j, "ftell expected %d got %d\n", j, l);
ok(feof(tempfh), "did not get EOF\n");
fclose(tempfh);
tempfh = fopen(tempf,"rb"); /* open in BINARY mode */
ok(fgets(buffer,256,tempfh) != 0,"fgets failed unexpected\n");
i=strlen(buffer);
j=strlen(mytext)+3; /* should get through newline */
ok(i==j, "returned string length expected %d got %d\n", j, i);
l=ftell(tempfh);
ok(l==j, "ftell expected %d got %d\n", j, l);
ok(fgets(buffer,256,tempfh) != 0,"fgets failed unexpected\n");
i=strlen(buffer);
ok(i==1, "returned string length expected %d got %d\n", 1, i);
ok(feof(tempfh), "did not get EOF\n");
fclose(tempfh);
unlink(tempf);
free(tempf);
}
static void test_file_put_get( void )
{
char* tempf;
FILE *tempfh;
static const char mytext[]= "This is a test_file_put_get\n";
static const char dostext[]= "This is a test_file_put_get\r\n";
char btext[LLEN];
WCHAR wtextW[LLEN+1];
WCHAR *mytextW = NULL, *aptr, *wptr;
BOOL diff_found = FALSE;
unsigned int i;
tempf=_tempnam(".","wne");
tempfh = fopen(tempf,"wt"); /* open in TEXT mode */
fputs(mytext,tempfh);
fclose(tempfh);
tempfh = fopen(tempf,"rb"); /* open in TEXT mode */
fgets(btext,LLEN,tempfh);
ok( strlen(mytext) + 1 == strlen(btext),"TEXT/BINARY mode not handled for write\n");
ok( btext[strlen(mytext)-1] == '\r', "CR not written\n");
fclose(tempfh);
tempfh = fopen(tempf,"wb"); /* open in BINARY mode */
fputs(dostext,tempfh);
fclose(tempfh);
tempfh = fopen(tempf,"rt"); /* open in TEXT mode */
fgets(btext,LLEN,tempfh);
ok(strcmp(btext, mytext) == 0,"_O_TEXT read doesn't strip CR\n");
fclose(tempfh);
tempfh = fopen(tempf,"rb"); /* open in TEXT mode */
fgets(btext,LLEN,tempfh);
ok(strcmp(btext, dostext) == 0,"_O_BINARY read doesn't preserve CR\n");
fclose(tempfh);
tempfh = fopen(tempf,"rt"); /* open in TEXT mode */
fgetws(wtextW,LLEN,tempfh);
mytextW = AtoW (mytext);
aptr = mytextW;
wptr = wtextW;
for (i=0; i<strlen(mytext); i++, aptr++, wptr++)
{
diff_found |= (*aptr != *wptr);
}
ok(!(diff_found), "fgetwc doesn't strip CR in TEXT mode\n");
free(mytextW);
fclose(tempfh);
unlink(tempf);
free(tempf);
}
static void test_file_write_read( void )
{
char* tempf;
int tempfd;
static const char mytext[]= "This is test_file_write_read\nsecond line\n";
static const char dostext[]= "This is test_file_write_read\r\nsecond line\r\n";
char btext[LLEN];
int ret, i;
tempf=_tempnam(".","wne");
tempfd = _open(tempf,_O_CREAT|_O_TRUNC|_O_BINARY|_O_RDWR,
_S_IREAD | _S_IWRITE);
ok( tempfd != -1,
"Can't open '%s': %d\n", tempf, errno); /* open in BINARY mode */
ok(_write(tempfd,dostext,strlen(dostext)) == lstrlenA(dostext),
"_write _O_BINARY bad return value\n");
_close(tempfd);
i = lstrlenA(mytext);
tempfd = _open(tempf,_O_RDONLY|_O_BINARY,0); /* open in BINARY mode */
ok(_read(tempfd,btext,i) == i,
"_read _O_BINARY got bad length\n");
ok( memcmp(dostext,btext,i) == 0,
"problems with _O_BINARY _write / _read\n");
_close(tempfd);
tempfd = _open(tempf,_O_RDONLY|_O_TEXT); /* open in TEXT mode */
ok(_read(tempfd,btext,i) == i-1,
"_read _O_TEXT got bad length\n");
ok( memcmp(mytext,btext,i-1) == 0,
"problems with _O_BINARY _write / _O_TEXT _read\n");
_close(tempfd);
tempfd = _open(tempf,_O_CREAT|_O_TRUNC|_O_TEXT|_O_RDWR,
_S_IREAD | _S_IWRITE);
ok( tempfd != -1,
"Can't open '%s': %d\n", tempf, errno); /* open in TEXT mode */
ok(_write(tempfd,mytext,strlen(mytext)) == lstrlenA(mytext),
"_write _O_TEXT bad return value\n");
_close(tempfd);
tempfd = _open(tempf,_O_RDONLY|_O_BINARY,0); /* open in BINARY mode */
ok(_read(tempfd,btext,LLEN) == lstrlenA(dostext),
"_read _O_BINARY got bad length\n");
ok( memcmp(dostext,btext,strlen(dostext)) == 0,
"problems with _O_TEXT _write / _O_BINARY _read\n");
ok( btext[strlen(dostext)-2] == '\r', "CR not written or read\n");
_close(tempfd);
tempfd = _open(tempf,_O_RDONLY|_O_TEXT); /* open in TEXT mode */
ok(_read(tempfd,btext,LLEN) == lstrlenA(mytext),
"_read _O_TEXT got bad length\n");
ok( memcmp(mytext,btext,strlen(mytext)) == 0,
"problems with _O_TEXT _write / _read\n");
_close(tempfd);
memset(btext, 0, LLEN);
tempfd = _open(tempf,_O_APPEND|_O_RDWR); /* open for APPEND in default mode */
ok(tell(tempfd) == 0, "bad position %lu expecting 0\n", tell(tempfd));
ok(_read(tempfd,btext,LLEN) == lstrlenA(mytext), "_read _O_APPEND got bad length\n");
ok( memcmp(mytext,btext,strlen(mytext)) == 0, "problems with _O_APPEND _read\n");
_close(tempfd);
/* Test reading only \n or \r */
tempfd = _open(tempf,_O_RDONLY|_O_TEXT); /* open in TEXT mode */
_lseek(tempfd, -1, FILE_END);
ret = _read(tempfd,btext,LLEN);
ok(ret == 1 && *btext == '\n', "_read expected 1 got bad length: %d\n", ret);
_lseek(tempfd, -2, FILE_END);
ret = _read(tempfd,btext,LLEN);
ok(ret == 1 && *btext == '\n', "_read expected '\\n' got bad length: %d\n", ret);
_lseek(tempfd, -2, FILE_END);
ret = _read(tempfd,btext,1);
ok(ret == 1 && *btext == '\n', "_read returned %d, buf: %d\n", ret, *btext);
ret = read(tempfd,btext,1);
ok(ret == 0, "_read returned %d, expected 0\n", ret);
_lseek(tempfd, -3, FILE_END);
ret = _read(tempfd,btext,1);
ok(ret == 1 && *btext == 'e', "_read expected 'e' got \"%.*s\" bad length: %d\n", ret, btext, ret);
ok(tell(tempfd) == 41, "bad position %lu expecting 41\n", tell(tempfd));
_lseek(tempfd, -3, FILE_END);
ret = _read(tempfd,btext,2);
ok(ret == 1 && *btext == 'e', "_read expected 'e' got \"%.*s\" bad length: %d\n", ret, btext, ret);
ok(tell(tempfd) == 42, "bad position %lu expecting 42\n", tell(tempfd));
_lseek(tempfd, -3, FILE_END);
ret = _read(tempfd,btext,3);
ok(ret == 2 && *btext == 'e', "_read expected 'e' got \"%.*s\" bad length: %d\n", ret, btext, ret);
ok(tell(tempfd) == 43, "bad position %lu expecting 43\n", tell(tempfd));
_close(tempfd);
ret = unlink(tempf);
ok( ret == 0 ,"Can't unlink '%s': %d\n", tempf, errno);
free(tempf);
tempf=_tempnam(".","wne");
tempfd = _open(tempf, _O_CREAT|_O_TRUNC|_O_BINARY|_O_RDWR, _S_IWRITE);
ok( tempfd != -1,
"Can't open '%s': %d\n", tempf, errno); /* open in BINARY mode */
ok(_write(tempfd,dostext,strlen(dostext)) == lstrlenA(dostext),
"_write _O_BINARY bad return value\n");
_close(tempfd);
tempfd = _open(tempf,_O_RDONLY|_O_BINARY,0); /* open in BINARY mode */
ok(_read(tempfd,btext,LLEN) == lstrlenA(dostext),
"_read _O_BINARY got bad length\n");
ok( memcmp(dostext,btext,strlen(dostext)) == 0,
"problems with _O_BINARY _write / _read\n");
ok( btext[strlen(dostext)-2] == '\r', "CR not written or read\n");
_close(tempfd);
tempfd = _open(tempf,_O_RDONLY|_O_TEXT); /* open in TEXT mode */
ok(_read(tempfd,btext,LLEN) == lstrlenA(mytext),
"_read _O_TEXT got bad length\n");
ok( memcmp(mytext,btext,strlen(mytext)) == 0,
"problems with _O_BINARY _write / _O_TEXT _read\n");
_close(tempfd);
/* test _read with single bytes. CR should be skipped and LF pulled in */
tempfd = _open(tempf,_O_RDONLY|_O_TEXT); /* open in TEXT mode */
for (i=0; i<strlen(mytext); i++) /* */
{
_read(tempfd,btext, 1);
ok(btext[0] == mytext[i],"_read failed at pos %d 0x%02x vs 0x%02x\n", i, btext[0], mytext[i]);
}
while (_read(tempfd,btext, 1));
_close(tempfd);
/* test _read in buffered mode. Last CR should be skipped but LF not pulled in */
tempfd = _open(tempf,_O_RDONLY|_O_TEXT); /* open in TEXT mode */
i = _read(tempfd,btext, strlen(mytext));
ok(i == strlen(mytext)-1, "_read_i %d\n", i);
_close(tempfd);
/* test read/write in unicode mode */
if(p_fopen_s)
{
tempfd = _open(tempf, _O_CREAT|_O_TRUNC|_O_WRONLY|_O_WTEXT, _S_IWRITE);
ok(tempfd != -1, "_open failed with error: %d\n", errno);
ret = _write(tempfd, "a", 1);
ok(ret == -1, "_write returned %d, expected -1\n", ret);
ret = _write(tempfd, "a\x00\n\x00\xff\xff", 6);
ok(ret == 6, "_write returned %d, expected 6\n", ret);
_close(tempfd);
tempfd = _open(tempf, _O_RDONLY|_O_BINARY, 0);
ok(tempfd != -1, "_open failed with error: %d\n", errno);
ret = _read(tempfd, btext, sizeof(btext));
ok(ret == 10, "_read returned %d, expected 10\n", ret);
ok(!memcmp(btext, "\xff\xfe\x61\x00\r\x00\n\x00\xff\xff", 10), "btext is incorrect\n");
_close(tempfd);
tempfd = _open(tempf, _O_RDONLY|_O_WTEXT, 0);
ok(tempfd != -1, "_open failed with error: %d\n", errno);
errno = 0xdeadbeef;
ret = _read(tempfd, btext, 3);
ok(ret == -1, "_read returned %d, expected -1\n", ret);
ok(errno == 22, "errno = %d\n", errno);
ret = _read(tempfd, btext, sizeof(btext));
ok(ret == 6, "_read returned %d, expected 6\n", ret);
ok(!memcmp(btext, "\x61\x00\n\x00\xff\xff", 6), "btext is incorrect\n");
_close(tempfd);
tempfd = _open(tempf, _O_CREAT|_O_TRUNC|_O_WRONLY|_O_U8TEXT, _S_IWRITE);
ok(tempfd != -1, "_open failed with error: %d\n", errno);
errno = 0xdeadbeef;
ret = _write(tempfd, "a", 1);
ok(ret == -1, "_write returned %d, expected -1\n", ret);
ok(errno == 22, "errno = %d\n", errno);
ret = _write(tempfd, "a\x00\n\x00\x62\x00", 6);
ok(ret == 6, "_write returned %d, expected 6\n", ret);
_close(tempfd);
tempfd = _open(tempf, _O_RDONLY|_O_BINARY, 0);
ok(tempfd != -1, "_open failed with error: %d\n", errno);
ret = _read(tempfd, btext, sizeof(btext));
ok(ret == 7, "_read returned %d, expected 7\n", ret);
ok(!memcmp(btext, "\xef\xbb\xbf\x61\r\n\x62", 7), "btext is incorrect\n");
_close(tempfd);
tempfd = _open(tempf, _O_RDONLY|_O_WTEXT, 0);
ok(tempfd != -1, "_open failed with error: %d\n", errno);
ret = _read(tempfd, btext, sizeof(btext));
ok(ret == 6, "_read returned %d, expected 6\n", ret);
ok(!memcmp(btext, "\x61\x00\n\x00\x62\x00", 6), "btext is incorrect\n");
/* when buffer is small read sometimes fails in native implementation */
lseek(tempfd, 3 /* skip bom */, SEEK_SET);
ret = _read(tempfd, btext, 4);
todo_wine ok(ret == -1, "_read returned %d, expected -1\n", ret);
lseek(tempfd, 6, SEEK_SET);
ret = _read(tempfd, btext, 2);
ok(ret == 2, "_read returned %d, expected 2\n", ret);
ok(!memcmp(btext, "\x62\x00", 2), "btext is incorrect\n");
_close(tempfd);
tempfd = _open(tempf, _O_CREAT|_O_TRUNC|_O_WRONLY|_O_BINARY, _S_IWRITE);
ok(tempfd != -1, "_open failed with error: %d\n", errno);
ret = _write(tempfd, "\xef\xbb\xbf\x61\xc4\x85\x62\xc5\xbc\r\r\n", 12);
ok(ret == 12, "_write returned %d, expected 9\n", ret);
_close(tempfd);
tempfd = _open(tempf, _O_RDONLY|_O_WTEXT, 0);
ok(tempfd != -1, "_open failed with error: %d\n", errno);
ret = _read(tempfd, btext, sizeof(btext));
ok(ret == 12, "_read returned %d, expected 12\n", ret);
ok(!memcmp(btext, "\x61\x00\x05\x01\x62\x00\x7c\x01\x0d\x00\x0a\x00", 12), "btext is incorrect\n");
/* test invalid utf8 sequence */
lseek(tempfd, 5, SEEK_SET);
ret = _read(tempfd, btext, sizeof(btext));
ok(ret == 10, "_read returned %d, expected 10\n", ret);
/* invalid char should be replaced by U+FFFD in MultiByteToWideChar */
ok(!memcmp(btext, "\xfd\xff", 2), "invalid UTF8 character was not replaced by U+FFFD\n");
ok(!memcmp(btext+ret-8, "\x62\x00\x7c\x01\x0d\x00\x0a\x00", 8), "btext is incorrect\n");
_close(tempfd);
}
else
{
win_skip("unicode mode tests on file\n");
}
ret =_chmod (tempf, _S_IREAD | _S_IWRITE);
ok( ret == 0,
"Can't chmod '%s' to read-write: %d\n", tempf, errno);
ret = unlink(tempf);
ok( ret == 0 ,"Can't unlink '%s': %d\n", tempf, errno);
free(tempf);
}
static void test_file_inherit_child(const char* fd_s)
{
int fd = atoi(fd_s);
char buffer[32];
int ret;
ret =write(fd, "Success", 8);
ok( ret == 8, "Couldn't write in child process on %d (%s)\n", fd, strerror(errno));
lseek(fd, 0, SEEK_SET);
ok(read(fd, buffer, sizeof (buffer)) == 8, "Couldn't read back the data\n");
ok(memcmp(buffer, "Success", 8) == 0, "Couldn't read back the data\n");
}
static void test_file_inherit_child_no(const char* fd_s)
{
int fd = atoi(fd_s);
int ret;
ret = write(fd, "Success", 8);
ok( ret == -1 && errno == EBADF,
"Wrong write result in child process on %d (%s)\n", fd, strerror(errno));
}
static void create_io_inherit_block( STARTUPINFOA *startup, unsigned int count, const HANDLE *handles )
{
static BYTE block[1024];
BYTE *wxflag_ptr;
HANDLE *handle_ptr;
unsigned int i;
startup->lpReserved2 = block;
startup->cbReserved2 = sizeof(unsigned) + (sizeof(char) + sizeof(HANDLE)) * count;
wxflag_ptr = block + sizeof(unsigned);
handle_ptr = (HANDLE *)(wxflag_ptr + count);
*(unsigned*)block = count;
for (i = 0; i < count; i++)
{
wxflag_ptr[i] = 0x81;
handle_ptr[i] = handles[i];
}
}
static const char *read_file( HANDLE file )
{
static char buffer[128];
DWORD ret;
SetFilePointer( file, 0, NULL, FILE_BEGIN );
if (!ReadFile( file, buffer, sizeof(buffer) - 1, &ret, NULL)) ret = 0;
buffer[ret] = 0;
return buffer;
}
static void test_stdout_handle( STARTUPINFOA *startup, char *cmdline, HANDLE hstdout, BOOL expect_stdout,
const char *descr )
{
const char *data;
HANDLE hErrorFile;
SECURITY_ATTRIBUTES sa;
PROCESS_INFORMATION proc;
/* make file handle inheritable */
sa.nLength = sizeof(sa);
sa.lpSecurityDescriptor = NULL;
sa.bInheritHandle = TRUE;
hErrorFile = CreateFileA( "fdopen.err", GENERIC_READ|GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE, &sa, CREATE_ALWAYS, 0, NULL );
startup->dwFlags = STARTF_USESTDHANDLES;
startup->hStdInput = GetStdHandle( STD_INPUT_HANDLE );
startup->hStdOutput = hErrorFile;
startup->hStdError = GetStdHandle( STD_ERROR_HANDLE );
CreateProcessA( NULL, cmdline, NULL, NULL, TRUE,
CREATE_DEFAULT_ERROR_MODE | NORMAL_PRIORITY_CLASS, NULL, NULL, startup, &proc );
wait_child_process( proc.hProcess );
data = read_file( hErrorFile );
if (expect_stdout)
ok( strcmp( data, "Success" ), "%s: Error file shouldn't contain data\n", descr );
else
ok( !strcmp( data, "Success" ), "%s: Wrong error data (%s)\n", descr, data );
if (hstdout)
{
data = read_file( hstdout );
if (expect_stdout)
ok( !strcmp( data, "Success" ), "%s: Wrong stdout data (%s)\n", descr, data );
else
ok( strcmp( data, "Success" ), "%s: Stdout file shouldn't contain data\n", descr );
}
CloseHandle( hErrorFile );
DeleteFileA( "fdopen.err" );
}
static void test_file_inherit( const char* selfname )
{
int fd;
const char* arg_v[5];
char buffer[16];
char cmdline[MAX_PATH];
STARTUPINFOA startup;
SECURITY_ATTRIBUTES sa;
HANDLE handles[3];
fd = open ("fdopen.tst", O_CREAT | O_RDWR | O_BINARY, _S_IREAD |_S_IWRITE);
ok(fd != -1, "Couldn't create test file\n");
arg_v[0] = get_base_name(selfname);
arg_v[1] = "file";
arg_v[2] = "inherit";
arg_v[3] = buffer; sprintf(buffer, "%d", fd);
arg_v[4] = 0;
_spawnvp(_P_WAIT, selfname, arg_v);
ok(tell(fd) == 8, "bad position %lu expecting 8\n", tell(fd));
lseek(fd, 0, SEEK_SET);
ok(read(fd, buffer, sizeof (buffer)) == 8 && memcmp(buffer, "Success", 8) == 0, "Couldn't read back the data\n");
close (fd);
ok(unlink("fdopen.tst") == 0, "Couldn't unlink\n");
fd = open ("fdopen.tst", O_CREAT | O_RDWR | O_BINARY | O_NOINHERIT, _S_IREAD |_S_IWRITE);
ok(fd != -1, "Couldn't create test file\n");
arg_v[1] = "file";
arg_v[2] = "inherit_no";
arg_v[3] = buffer; sprintf(buffer, "%d", fd);
arg_v[4] = 0;
_spawnvp(_P_WAIT, selfname, arg_v);
ok(tell(fd) == 0, "bad position %lu expecting 0\n", tell(fd));
ok(read(fd, buffer, sizeof (buffer)) == 0, "Found unexpected data (%s)\n", buffer);
close (fd);
ok(unlink("fdopen.tst") == 0, "Couldn't unlink\n");
/* make file handle inheritable */
sa.nLength = sizeof(sa);
sa.lpSecurityDescriptor = NULL;
sa.bInheritHandle = TRUE;
sprintf(cmdline, "%s file inherit 1", selfname);
/* init an empty Reserved2, which should not be recognized as inherit-block */
ZeroMemory(&startup, sizeof(startup));
startup.cb = sizeof(startup);
create_io_inherit_block( &startup, 0, NULL );
test_stdout_handle( &startup, cmdline, 0, FALSE, "empty block" );
/* test with valid inheritblock */
handles[0] = GetStdHandle( STD_INPUT_HANDLE );
handles[1] = CreateFileA( "fdopen.tst", GENERIC_READ|GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE, &sa, CREATE_ALWAYS, 0, NULL );
handles[2] = GetStdHandle( STD_ERROR_HANDLE );
create_io_inherit_block( &startup, 3, handles );
test_stdout_handle( &startup, cmdline, handles[1], TRUE, "valid block" );
CloseHandle( handles[1] );
DeleteFileA("fdopen.tst");
/* test inherit block starting with unsigned zero */
handles[1] = CreateFileA( "fdopen.tst", GENERIC_READ|GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE, &sa, CREATE_ALWAYS, 0, NULL );
create_io_inherit_block( &startup, 3, handles );
*(unsigned int *)startup.lpReserved2 = 0;
test_stdout_handle( &startup, cmdline, handles[1], FALSE, "zero count block" );
CloseHandle( handles[1] );
DeleteFileA("fdopen.tst");
/* test inherit block with smaller size */
handles[1] = CreateFileA( "fdopen.tst", GENERIC_READ|GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE, &sa, CREATE_ALWAYS, 0, NULL );
create_io_inherit_block( &startup, 3, handles );
startup.cbReserved2 -= 3;
test_stdout_handle( &startup, cmdline, handles[1], TRUE, "small size block" );
CloseHandle( handles[1] );
DeleteFileA("fdopen.tst");
/* test inherit block with even smaller size */
handles[1] = CreateFileA( "fdopen.tst", GENERIC_READ|GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE, &sa, CREATE_ALWAYS, 0, NULL );
create_io_inherit_block( &startup, 3, handles );
startup.cbReserved2 = sizeof(unsigned int) + sizeof(HANDLE) + sizeof(char);
test_stdout_handle( &startup, cmdline, handles[1], FALSE, "smaller size block" );
CloseHandle( handles[1] );
DeleteFileA("fdopen.tst");
/* test inherit block with larger size */
handles[1] = CreateFileA( "fdopen.tst", GENERIC_READ|GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE, &sa, CREATE_ALWAYS, 0, NULL );
create_io_inherit_block( &startup, 3, handles );
startup.cbReserved2 += 7;
test_stdout_handle( &startup, cmdline, handles[1], TRUE, "large size block" );
CloseHandle( handles[1] );
DeleteFileA("fdopen.tst");
}
static void test_invalid_stdin_child( void )
{
HANDLE handle;
ioinfo *info;
int ret;
char c;
errno = 0xdeadbeef;
handle = (HANDLE)_get_osfhandle(STDIN_FILENO);
ok(handle == (HANDLE)-2, "handle = %p\n", handle);
ok(errno == 0xdeadbeef, "errno = %d\n", errno);
info = &__pioinfo[STDIN_FILENO/MSVCRT_FD_BLOCK_SIZE][STDIN_FILENO%MSVCRT_FD_BLOCK_SIZE];
ok(info->handle == (HANDLE)-2, "info->handle = %p\n", info->handle);
ok(info->wxflag == 0xc1, "info->wxflag = %x\n", info->wxflag);
ok(stdin->_file == -2, "stdin->_file = %d\n", stdin->_file);
errno = 0xdeadbeef;
ret = fread(&c, 1, 1, stdin);
ok(!ret, "fread(stdin) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = read(-2, &c, 1);
ok(ret == -1, "read(-2) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = read(STDIN_FILENO, &c, 1);
ok(ret == -1, "read(STDIN_FILENO) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = _flsbuf('a', stdin);
ok(ret == EOF, "_flsbuf(stdin) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = fwrite(&c, 1, 1, stdin);
ok(!ret, "fwrite(stdin) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = write(-2, &c, 1);
ok(ret == -1, "write(-2) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = write(STDIN_FILENO, &c, 1);
ok(ret == -1, "write(STDIN_FILENO) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = fclose(stdin);
ok(ret == -1, "fclose(stdin) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = close(-2);
ok(ret == -1, "close(-2) returned %d\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = close(STDIN_FILENO);
ok(ret==-1 || !ret, "close(STDIN_FILENO) returned %d\n", ret);
ok((ret==-1 && errno==EBADF) || (!ret && errno==0xdeadbeef), "errno = %d\n", errno);
}
static void test_invalid_stdin( const char* selfname )
{
char cmdline[MAX_PATH];
PROCESS_INFORMATION proc;
SECURITY_ATTRIBUTES sa;
STARTUPINFOA startup;
HKEY key;
LONG ret;
if(!p_fopen_s) {
/* Behaviour of the dll has changed in newer version */
win_skip("skipping invalid stdin tests\n");
return;
}
ret = RegOpenCurrentUser(KEY_READ, &key);
ok(!ret, "RegOpenCurrentUser failed: %x\n", ret);
sa.nLength = sizeof(sa);
sa.lpSecurityDescriptor = NULL;
sa.bInheritHandle = TRUE;
memset(&startup, 0, sizeof(startup));
startup.cb = sizeof(startup);
startup.dwFlags = STARTF_USESTDHANDLES;
startup.hStdInput = key;
startup.hStdOutput = GetStdHandle(STD_OUTPUT_HANDLE);
startup.hStdError = GetStdHandle(STD_ERROR_HANDLE);
sprintf(cmdline, "%s file stdin", selfname);
CreateProcessA(NULL, cmdline, NULL, NULL, TRUE,
CREATE_DEFAULT_ERROR_MODE|NORMAL_PRIORITY_CLASS, NULL, NULL, &startup, &proc);
wait_child_process(proc.hProcess);
ret = RegCloseKey(key);
ok(!ret, "RegCloseKey failed: %x\n", ret);
}
static void test_tmpnam( void )
{
char name[MAX_PATH] = "abc";
char *res;
res = tmpnam(NULL);
ok(res != NULL, "tmpnam returned NULL\n");
ok(res[0] == '\\', "first character is not a backslash\n");
ok(strchr(res+1, '\\') == 0, "file not in the root directory\n");
ok(res[strlen(res)-1] == '.', "first call - last character is not a dot\n");
res = tmpnam(name);
ok(res != NULL, "tmpnam returned NULL\n");
ok(res == name, "supplied buffer was not used\n");
ok(res[0] == '\\', "first character is not a backslash\n");
ok(strchr(res+1, '\\') == 0, "file not in the root directory\n");
ok(res[strlen(res)-1] != '.', "second call - last character is a dot\n");
}
static void test_chsize( void )
{
int fd;
LONG cur, pos, count;
char temptext[] = "012345678";
char *tempfile = _tempnam( ".", "tst" );
ok( tempfile != NULL, "Couldn't create test file: %s\n", tempfile );
fd = _open( tempfile, _O_CREAT|_O_TRUNC|_O_RDWR, _S_IREAD|_S_IWRITE );
ok( fd > 0, "Couldn't open test file\n" );
count = _write( fd, temptext, sizeof(temptext) );
ok( count > 0, "Couldn't write to test file\n" );
/* get current file pointer */
cur = _lseek( fd, 0, SEEK_CUR );
/* make the file smaller */
ok( _chsize( fd, sizeof(temptext) / 2 ) == 0, "_chsize() failed\n" );
pos = _lseek( fd, 0, SEEK_CUR );
ok( cur == pos, "File pointer changed from: %d to: %d\n", cur, pos );
ok( _filelength( fd ) == sizeof(temptext) / 2, "Wrong file size\n" );
/* enlarge the file */
ok( _chsize( fd, sizeof(temptext) * 2 ) == 0, "_chsize() failed\n" );
pos = _lseek( fd, 0, SEEK_CUR );
ok( cur == pos, "File pointer changed from: %d to: %d\n", cur, pos );
ok( _filelength( fd ) == sizeof(temptext) * 2, "Wrong file size\n" );
_close( fd );
_unlink( tempfile );
free( tempfile );
}
static void test_fopen_fclose_fcloseall( void )
{
char fname1[] = "empty1";
char fname2[] = "empty2";
char fname3[] = "empty3";
FILE *stream1, *stream2, *stream3, *stream4;
int ret, numclosed;
/* testing fopen() */
stream1 = fopen(fname1, "w+");
ok(stream1 != NULL, "The file '%s' was not opened\n", fname1);
stream2 = fopen(fname2, "w ");
ok(stream2 != NULL, "The file '%s' was not opened\n", fname2 );
_unlink(fname3);
stream3 = fopen(fname3, "r");
ok(stream3 == NULL, "The file '%s' shouldn't exist before\n", fname3 );
stream3 = fopen(fname3, "w+");
ok(stream3 != NULL, "The file '%s' should be opened now\n", fname3 );
errno = 0xfaceabad;
stream4 = fopen("", "w+");
ok(stream4 == NULL && (errno == EINVAL || errno == ENOENT),
"filename is empty, errno = %d (expected 2 or 22)\n", errno);
errno = 0xfaceabad;
stream4 = fopen(NULL, "w+");
ok(stream4 == NULL && (errno == EINVAL || errno == ENOENT),
"filename is NULL, errno = %d (expected 2 or 22)\n", errno);
/* testing fclose() */
ret = fclose(stream2);
ok(ret == 0, "The file '%s' was not closed\n", fname2);
ret = fclose(stream3);
ok(ret == 0, "The file '%s' was not closed\n", fname3);
errno = 0xdeadbeef;
ret = fclose(stream2);
ok(ret == EOF, "Closing file '%s' returned %d\n", fname2, ret);
ok(errno == 0xdeadbeef, "errno = %d\n", errno);
ret = fclose(stream3);
ok(ret == EOF, "Closing file '%s' returned %d\n", fname3, ret);
ok(errno == 0xdeadbeef, "errno = %d\n", errno);
/* testing fcloseall() */
numclosed = _fcloseall();
/* fname1 should be closed here */
ok(numclosed == 1, "Number of files closed by fcloseall(): %u\n", numclosed);
numclosed = _fcloseall();
ok(numclosed == 0, "Number of files closed by fcloseall(): %u\n", numclosed);
ok(_unlink(fname1) == 0, "Couldn't unlink file named '%s'\n", fname1);
ok(_unlink(fname2) == 0, "Couldn't unlink file named '%s'\n", fname2);
ok(_unlink(fname3) == 0, "Couldn't unlink file named '%s'\n", fname3);
}
static void test_fopen_s( void )
{
const char name[] = "empty1";
char buff[16];
unsigned char *ubuff = (unsigned char*)buff;
FILE *file, *file2;
int ret;
int len;
if (!p_fopen_s)
{
win_skip("Skipping fopen_s test\n");
return;
}
/* testing fopen_s */
ret = p_fopen_s(&file, name, "w");
ok(ret == 0, "fopen_s failed with %d\n", ret);
ok(file != 0, "fopen_s failed to return value\n");
fwrite(name, sizeof(name), 1, file);
ret = fclose(file);
ok(ret != EOF, "File failed to close\n");
file = fopen(name, "r");
ok(file != 0, "fopen failed\n");
len = fread(buff, 1, sizeof(name), file);
ok(len == sizeof(name), "File length is %d\n", len);
buff[sizeof(name)] = '\0';
ok(strcmp(name, buff) == 0, "File content mismatch! Got %s, expected %s\n", buff, name);
ret = fclose(file);
ok(ret != EOF, "File failed to close\n");
ret = p_fopen_s(&file, name, "w, ccs=UNIcode");
ok(ret == 0, "fopen_s failed with %d\n", ret);
ret = fwrite("a", 1, 2, file);
ok(ret == 2, "fwrite returned %d\n", ret);
fclose(file);
ret = p_fopen_s(&file, name, "r");
ok(ret == 0, "fopen_s failed with %d\n", ret);
len = fread(buff, 1, 2, file);
ok(len == 2, "len = %d\n", len);
ok(ubuff[0]==0xff && ubuff[1]==0xfe, "buff[0]=%02x, buff[1]=%02x\n",
ubuff[0], ubuff[1]);
fclose(file);
ret = p_fopen_s(&file, name, "r,ccs=unicode");
ok(ret == 0, "fopen_s failed with %d\n", ret);
len = fread(buff, 1, 2, file);
ok(len == 2, "len = %d\n", len);
ok(ubuff[0]=='a' && ubuff[1]==0, "buff[0]=%02x, buff[1]=%02x\n",
ubuff[0], ubuff[1]);
fclose(file);
ret = p_fopen_s(&file, name, "r,ccs=utf-16le");
ok(ret == 0, "fopen_s failed with %d\n", ret);
len = fread(buff, 1, 2, file);
ok(len == 2, "len = %d\n", len);
ok(ubuff[0]=='a' && ubuff[1]==0, "buff[0]=%02x, buff[1]=%02x\n",
ubuff[0], ubuff[1]);
fclose(file);
ret = p_fopen_s(&file, name, "r,ccs=utf-8");
ok(ret == 0, "fopen_s failed with %d\n", ret);
len = fread(buff, 1, 2, file);
ok(len == 2, "len = %d\n", len);
ok(ubuff[0]=='a' && ubuff[1]==0, "buff[0]=%02x, buff[1]=%02x\n",
ubuff[0], ubuff[1]);
fclose(file);
ret = p_fopen_s(&file, name, "w,ccs=utf-16le");
ok(ret == 0, "fopen_s failed with %d\n", ret);
fclose(file);
ret = p_fopen_s(&file, name, "r");
ok(ret == 0, "fopen_s failed with %d\n", ret);
len = fread(buff, 1, 3, file);
ok(len == 2, "len = %d\n", len);
ok(ubuff[0]==0xff && ubuff[1]==0xfe, "buff[0]=%02x, buff[1]=%02x\n",
ubuff[0], ubuff[1]);
fclose(file);
ret = p_fopen_s(&file, name, "w,ccs=utf-8");
ok(ret == 0, "fopen_s failed with %d\n", ret);
fclose(file);
ret = p_fopen_s(&file, name, "r");
ok(ret == 0, "fopen_s failed with %d\n", ret);
len = fread(buff, 1, 4, file);
ok(len == 3, "len = %d\n", len);
ok(ubuff[0]==0xef && ubuff[1]==0xbb && ubuff[2]==0xbf,
"buff[0]=%02x, buff[1]=%02x, buff[2]=%02x\n",
ubuff[0], ubuff[1], ubuff[2]);
fclose(file);
/* test initial FILE values */
memset(file, 0xfe, sizeof(*file));
file->_flag = 0;
ret = p_fopen_s(&file2, name, "r");
ok(!ret, "fopen_s failed with %d\n", ret);
ok(file == file2, "file != file2 %p %p\n", file, file2);
ok(!file->_ptr, "file->_ptr != NULL\n");
ok(!file->_cnt, "file->_cnt != 0\n");
ok(!file->_base, "file->_base != NULL\n");
ok(file->_flag == 1, "file->_flag = %x\n", file->_flag);
ok(file->_file, "file->_file == 0\n");
ok(file->_charbuf == 0xfefefefe, "file->_charbuf = %x\n", file->_charbuf);
ok(file->_bufsiz == 0xfefefefe, "file->_bufsiz = %x\n", file->_bufsiz);
ok(!file->_tmpfname, "file->_tmpfname != NULL\n");
fclose(file2);
ok(_unlink(name) == 0, "Couldn't unlink file named '%s'\n", name);
}
static void test__wfopen_s( void )
{
const char name[] = "empty1";
char buff[16];
FILE *file;
int ret;
int len;
if (!p__wfopen_s)
{
win_skip("Skipping _wfopen_s test\n");
return;
}
/* testing _wfopen_s */
ret = p__wfopen_s(&file, L"empty1", L"w");
ok(ret == 0, "_wfopen_s failed with %d\n", ret);
ok(file != 0, "_wfopen_s failed to return value\n");
fwrite(name, sizeof(name), 1, file);
ret = fclose(file);
ok(ret != EOF, "File failed to close\n");
file = fopen(name, "r");
ok(file != 0, "fopen failed\n");
len = fread(buff, 1, sizeof(name), file);
ok(len == sizeof(name), "File length is %d\n", len);
buff[sizeof(name)] = '\0';
ok(strcmp(name, buff) == 0, "File content mismatch! Got %s, expected %s\n", buff, name);
ret = fclose(file);
ok(ret != EOF, "File failed to close\n");
ok(_unlink(name) == 0, "Couldn't unlink file named '%s'\n", name);
}
static void test_setmode(void)
{
const char name[] = "empty1";
int fd, ret;
if(!p_fopen_s) {
win_skip("unicode file modes are not available, skipping setmode tests\n");
return;
}
errno = 0xdeadbeef;
ret = _setmode(-2, 0);
ok(ret == -1, "_setmode returned %x, expected -1\n", ret);
ok(errno == EINVAL, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = _setmode(-2, _O_TEXT);
ok(ret == -1, "_setmode returned %x, expected -1\n", ret);
ok(errno == EBADF, "errno = %d\n", errno);
fd = _open(name, _O_CREAT|_O_WRONLY, _S_IWRITE);
ok(fd != -1, "failed to open file\n");
errno = 0xdeadbeef;
ret = _setmode(fd, 0xffffffff);
ok(ret == -1, "_setmode returned %x, expected -1\n", ret);
ok(errno == EINVAL, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = _setmode(fd, 0);
ok(ret == -1, "_setmode returned %x, expected -1\n", ret);
ok(errno == EINVAL, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = _setmode(fd, _O_BINARY|_O_TEXT);
ok(ret == -1, "_setmode returned %x, expected -1\n", ret);
ok(errno == EINVAL, "errno = %d\n", errno);
errno = 0xdeadbeef;
ret = _setmode(fd, _O_WTEXT|_O_U16TEXT);
ok(ret == -1, "_setmode returned %x, expected -1\n", ret);
ok(errno == EINVAL, "errno = %d\n", errno);
ret = _setmode(fd, _O_BINARY);
ok(ret == _O_TEXT, "_setmode returned %x, expected _O_TEXT\n", ret);
ret = _setmode(fd, _O_WTEXT);
ok(ret == _O_BINARY, "_setmode returned %x, expected _O_BINARY\n", ret);
ret = _setmode(fd, _O_TEXT);
ok(ret == _O_WTEXT, "_setmode returned %x, expected _O_WTEXT\n", ret);
ret = _setmode(fd, _O_U16TEXT);
ok(ret == _O_TEXT, "_setmode returned %x, expected _O_TEXT\n", ret);
ret = _setmode(fd, _O_U8TEXT);
ok(ret == _O_WTEXT, "_setmode returned %x, expected _O_WTEXT\n", ret);
ret = _setmode(fd, _O_TEXT);
ok(ret == _O_WTEXT, "_setmode returned %x, expected _O_WTEXT\n", ret);
_close(fd);
_unlink(name);
}
static void test_get_osfhandle(void)
{
int fd;
char fname[] = "t_get_osfhanle";
DWORD bytes_written;
HANDLE handle;
fd = _sopen(fname, _O_CREAT|_O_RDWR, _SH_DENYRW, _S_IREAD | _S_IWRITE);
handle = (HANDLE)_get_osfhandle(fd);
WriteFile(handle, "bar", 3, &bytes_written, NULL);
_close(fd);
fd = _open(fname, _O_RDONLY, 0);
ok(fd != -1, "Couldn't open '%s' after _get_osfhandle()\n", fname);
_close(fd);
_unlink(fname);
errno = 0xdeadbeef;
handle = (HANDLE)_get_osfhandle(fd);
ok(handle == INVALID_HANDLE_VALUE, "_get_osfhandle returned %p\n", handle);
ok(errno == EBADF, "errno = %d\n", errno);
}
static void test_setmaxstdio(void)
{
ok(2048 == _setmaxstdio(2048),"_setmaxstdio returned %d instead of 2048\n",_setmaxstdio(2048));
ok(-1 == _setmaxstdio(2049),"_setmaxstdio returned %d instead of -1\n",_setmaxstdio(2049));
}
static void test_stat(void)
{
int fd;
int pipes[2];
int ret;
struct stat buf;
/* Tests for a file */
fd = open("stat.tst", O_WRONLY | O_CREAT | O_BINARY, _S_IREAD |_S_IWRITE);
if (fd >= 0)
{
ret = fstat(fd, &buf);
ok(!ret, "fstat failed: errno=%d\n", errno);
ok((buf.st_mode & _S_IFMT) == _S_IFREG, "bad format = %06o\n", buf.st_mode);
ok((buf.st_mode & 0777) == 0666, "bad st_mode = %06o\n", buf.st_mode);
ok(buf.st_dev == 0, "st_dev is %d, expected 0\n", buf.st_dev);
ok(buf.st_dev == buf.st_rdev, "st_dev (%d) and st_rdev (%d) differ\n", buf.st_dev, buf.st_rdev);
ok(buf.st_nlink == 1, "st_nlink is %d, expected 1\n", buf.st_nlink);
ok(buf.st_size == 0, "st_size is %d, expected 0\n", buf.st_size);
ret = stat("stat.tst", &buf);
ok(!ret, "stat failed: errno=%d\n", errno);
ok((buf.st_mode & _S_IFMT) == _S_IFREG, "bad format = %06o\n", buf.st_mode);
ok((buf.st_mode & 0777) == 0666, "bad st_mode = %06o\n", buf.st_mode);
ok(buf.st_dev == buf.st_rdev, "st_dev (%d) and st_rdev (%d) differ\n", buf.st_dev, buf.st_rdev);
ok(buf.st_nlink == 1, "st_nlink is %d, expected 1\n", buf.st_nlink);
ok(buf.st_size == 0, "st_size is %d, expected 0\n", buf.st_size);
errno = 0xdeadbeef;
ret = stat("stat.tst\\", &buf);
ok(ret == -1, "stat returned %d\n", ret);
ok(errno == ENOENT, "errno = %d\n", errno);
close(fd);
remove("stat.tst");
}
else
skip("open failed with errno %d\n", errno);
/* Tests for a char device */
if (_dup2(0, 10) == 0)
{
ret = fstat(10, &buf);
ok(!ret, "fstat(stdin) failed: errno=%d\n", errno);
if ((buf.st_mode & _S_IFMT) == _S_IFCHR)
{
ok(buf.st_mode == _S_IFCHR, "bad st_mode=%06o\n", buf.st_mode);
ok(buf.st_dev == 10, "st_dev is %d, expected 10\n", buf.st_dev);
ok(buf.st_rdev == 10, "st_rdev is %d, expected 10\n", buf.st_rdev);
ok(buf.st_nlink == 1, "st_nlink is %d, expected 1\n", buf.st_nlink);
}
else
skip("stdin is not a char device? st_mode=%06o\n", buf.st_mode);
close(10);
}
else
skip("_dup2 failed with errno %d\n", errno);
/* Tests for pipes */
if (_pipe(pipes, 1024, O_BINARY) == 0)
{
ret = fstat(pipes[0], &buf);
ok(!ret, "fstat(pipe) failed: errno=%d\n", errno);
ok(buf.st_mode == _S_IFIFO, "bad st_mode=%06o\n", buf.st_mode);
ok(buf.st_dev == pipes[0], "st_dev is %d, expected %d\n", buf.st_dev, pipes[0]);
ok(buf.st_rdev == pipes[0], "st_rdev is %d, expected %d\n", buf.st_rdev, pipes[0]);
ok(buf.st_nlink == 1, "st_nlink is %d, expected 1\n", buf.st_nlink);
close(pipes[0]);
close(pipes[1]);
}
else
skip("pipe failed with errno %d\n", errno);
/* Tests for directory */
if(mkdir("stat.tst") == 0)
{
ret = stat("stat.tst ", &buf);
ok(!ret, "stat(directory) failed: errno=%d\n", errno);
ok((buf.st_mode & _S_IFMT) == _S_IFDIR, "bad format = %06o\n", buf.st_mode);
ok((buf.st_mode & 0777) == 0777, "bad st_mode = %06o\n", buf.st_mode);
ok(buf.st_dev == buf.st_rdev, "st_dev (%d) and st_rdev (%d) differ\n", buf.st_dev, buf.st_rdev);
ok(buf.st_nlink == 1, "st_nlink is %d, expected 1\n", buf.st_nlink);
errno = 0xdeadbeef;
ret = stat("stat.tst\\ ", &buf);
ok(ret == -1, "stat returned %d\n", ret);
ok(errno == ENOENT, "errno = %d\n", errno);
rmdir( "stat.tst" );
}
else
skip("mkdir failed with errno %d\n", errno);
errno = 0xdeadbeef;
ret = stat("c:", &buf);
ok(ret == -1, "stat returned %d\n", ret);
ok(errno == ENOENT, "errno = %d\n", errno);
ret = stat("c:/", &buf);
ok(!ret, "stat returned %d\n", ret);
ok(buf.st_dev == 2, "st_dev = %d\n", buf.st_dev);
ok(buf.st_rdev == 2, "st_rdev = %d\n", buf.st_rdev);
}
static const char* pipe_string="Hello world";
/* How many messages to transfer over the pipe */
#define N_TEST_MESSAGES 3
static void test_pipes_child(int argc, char** args)
{
int fd;
int nwritten;
int i;
if (argc < 5)
{
ok(0, "not enough parameters: %d\n", argc);
return;
}
fd=atoi(args[3]);
i=close(fd);
ok(!i, "unable to close %d: %d\n", fd, errno);
fd=atoi(args[4]);
for (i=0; i<N_TEST_MESSAGES; i++) {
nwritten=write(fd, pipe_string, strlen(pipe_string));
ok(nwritten == strlen(pipe_string), "i %d, expected to write '%s' wrote %d\n", i, pipe_string, nwritten);
/* let other process wake up so they can show off their "keep reading until EOF" behavior */
if (i < N_TEST_MESSAGES-1)
Sleep(100);
}
i=close(fd);
ok(!i, "unable to close %d: %d\n", fd, errno);
}
static void test_pipes(const char* selfname)
{
int pipes[2];
char str_fdr[12], str_fdw[12];
FILE* file;
const char* arg_v[6];
char buf[4096];
char expected[4096];
int r;
int i;
/* Test reading from a pipe with read() */
if (_pipe(pipes, 1024, O_BINARY) < 0)
{
ok(0, "pipe failed with errno %d\n", errno);
return;
}
arg_v[0] = get_base_name(selfname);
arg_v[1] = "file";
arg_v[2] = "pipes";
arg_v[3] = str_fdr; sprintf(str_fdr, "%d", pipes[0]);
arg_v[4] = str_fdw; sprintf(str_fdw, "%d", pipes[1]);
arg_v[5] = NULL;
proc_handles[0] = (HANDLE)_spawnvp(_P_NOWAIT, selfname, arg_v);
i=close(pipes[1]);
ok(!i, "unable to close %d: %d\n", pipes[1], errno);
for (i=0; i<N_TEST_MESSAGES; i++) {
r=read(pipes[0], buf, sizeof(buf)-1);
ok(r == strlen(pipe_string), "i %d, got %d\n", i, r);
if (r > 0)
buf[r]='\0';
ok(strcmp(buf, pipe_string) == 0, "expected to read '%s', got '%s'\n", pipe_string, buf);
}
r=read(pipes[0], buf, sizeof(buf)-1);
ok(r == 0, "expected to read 0 bytes, got %d\n", r);
i=close(pipes[0]);
ok(!i, "unable to close %d: %d\n", pipes[0], errno);
/* Test reading from a pipe with fread() */
if (_pipe(pipes, 1024, O_BINARY) < 0)
{
ok(0, "pipe failed with errno %d\n", errno);
return;
}
arg_v[1] = "file";
arg_v[2] = "pipes";
arg_v[3] = str_fdr; sprintf(str_fdr, "%d", pipes[0]);
arg_v[4] = str_fdw; sprintf(str_fdw, "%d", pipes[1]);
arg_v[5] = NULL;
proc_handles[1] = (HANDLE)_spawnvp(_P_NOWAIT, selfname, arg_v);
i=close(pipes[1]);
ok(!i, "unable to close %d: %d\n", pipes[1], errno);
file=fdopen(pipes[0], "r");
/* In blocking mode, fread will keep calling read() until it gets
* enough bytes, or EOF, even on Unix. (If this were a Unix terminal
* in cooked mode instead of a pipe, it would also stop on EOL.)
*/
expected[0] = 0;
for (i=0; i<N_TEST_MESSAGES; i++)
strcat(expected, pipe_string);
r=fread(buf, 1, sizeof(buf)-1, file);
ok(r == strlen(expected), "fread() returned %d: ferror=%d\n", r, ferror(file));
if (r > 0)
buf[r]='\0';
ok(strcmp(buf, expected) == 0, "got '%s' expected '%s'\n", buf, expected);
/* Let child close the file before we read, so we can sense EOF reliably */
Sleep(100);
r=fread(buf, 1, sizeof(buf)-1, file);
ok(r == 0, "fread() returned %d instead of 0\n", r);
ok(ferror(file) == 0, "got ferror() = %d\n", ferror(file));
ok(feof(file), "feof() is false!\n");
i=fclose(file);
ok(!i, "unable to close the pipe: %d\n", errno);
/* test \r handling when it's the last character read */
if (_pipe(pipes, 1024, O_BINARY) < 0)
{
ok(0, "pipe failed with errno %d\n", errno);
return;
}
r = write(pipes[1], "\r\n\rab\r\n", 7);
ok(r == 7, "write returned %d, errno = %d\n", r, errno);
setmode(pipes[0], O_TEXT);
r = read(pipes[0], buf, 1);
ok(r == 1, "read returned %d, expected 1\n", r);
ok(buf[0] == '\n', "buf[0] = %x, expected '\\n'\n", buf[0]);
r = read(pipes[0], buf, 1);
ok(r == 1, "read returned %d, expected 1\n", r);
ok(buf[0] == '\r', "buf[0] = %x, expected '\\r'\n", buf[0]);
r = read(pipes[0], buf, 1);
ok(r == 1, "read returned %d, expected 1\n", r);
ok(buf[0] == 'a', "buf[0] = %x, expected 'a'\n", buf[0]);
r = read(pipes[0], buf, 2);
ok(r == 2, "read returned %d, expected 1\n", r);
ok(buf[0] == 'b', "buf[0] = %x, expected 'b'\n", buf[0]);
ok(buf[1] == '\n', "buf[1] = %x, expected '\\n'\n", buf[1]);
if (p_fopen_s)
{
/* test utf16 read with insufficient data */
r = write(pipes[1], "a\0b", 3);
ok(r == 3, "write returned %d, errno = %d\n", r, errno);
buf[2] = 'z';
buf[3] = 'z';
setmode(pipes[0], _O_WTEXT);
r = read(pipes[0], buf, 4);
ok(r == 2, "read returned %d, expected 2\n", r);
ok(!memcmp(buf, "a\0bz", 4), "read returned incorrect data\n");
r = write(pipes[1], "\0", 1);
ok(r == 1, "write returned %d, errno = %d\n", r, errno);
buf[0] = 'z';
buf[1] = 'z';
r = read(pipes[0], buf, 2);
ok(r == 0, "read returned %d, expected 0\n", r);
ok(!memcmp(buf, "\0z", 2), "read returned incorrect data\n");
}
else
{
win_skip("unicode mode tests on pipe\n");
}
close(pipes[1]);
close(pipes[0]);
}
static void test_unlink(void)
{
FILE* file;
ok(mkdir("test_unlink") == 0, "unable to create test dir\n");
file = fopen("test_unlink\\empty", "w");
ok(file != NULL, "unable to create test file\n");
if(file)
fclose(file);
ok(_unlink("test_unlink") != 0, "unlinking a non-empty directory must fail\n");
unlink("test_unlink\\empty");
rmdir("test_unlink");
}
static void test_dup2(void)
{
ok(-1 == _dup2(0, -1), "expected _dup2 to fail when second arg is negative\n" );
}
static void test_stdin(void)
{
HANDLE stdinh = GetStdHandle(STD_INPUT_HANDLE);
int stdin_dup, fd;
HANDLE h;
DWORD r;
stdin_dup = _dup(STDIN_FILENO);
ok(stdin_dup != -1, "_dup(STDIN_FILENO) failed\n");
ok(stdinh == (HANDLE)_get_osfhandle(STDIN_FILENO),
"GetStdHandle(STD_INPUT_HANDLE) != _get_osfhandle(STDIN_FILENO)\n");
r = SetStdHandle(STD_INPUT_HANDLE, INVALID_HANDLE_VALUE);
ok(r == TRUE, "SetStdHandle returned %x, expected TRUE\n", r);
h = GetStdHandle(STD_INPUT_HANDLE);
ok(h == INVALID_HANDLE_VALUE, "h = %p\n", h);
close(STDIN_FILENO);
h = GetStdHandle(STD_INPUT_HANDLE);
ok(h == NULL, "h != NULL\n");
fd = open("stdin.tst", O_WRONLY | O_CREAT, _S_IREAD |_S_IWRITE);
ok(fd != -1, "open failed\n");
ok(fd == STDIN_FILENO, "fd = %d, expected STDIN_FILENO\n", fd);
h = GetStdHandle(STD_INPUT_HANDLE);
ok(h != NULL, "h == NULL\n");
close(fd);
unlink("stdin.tst");
r = _dup2(stdin_dup, STDIN_FILENO);
ok(r != -1, "_dup2 failed\n");
h = GetStdHandle(STD_INPUT_HANDLE);
ok(h != NULL, "h == NULL\n");
}
static void test_mktemp(void)
{
char buf[16];
strcpy(buf, "a");
ok(!_mktemp(buf), "_mktemp(\"a\") != NULL\n");
strcpy(buf, "testXXXXX");
ok(!_mktemp(buf), "_mktemp(\"testXXXXX\") != NULL\n");
strcpy(buf, "testXXXXXX");
ok(_mktemp(buf) != NULL, "_mktemp(\"testXXXXXX\") == NULL\n");
strcpy(buf, "testXXXXXXa");
ok(!_mktemp(buf), "_mktemp(\"testXXXXXXa\") != NULL\n");
strcpy(buf, "**XXXXXX");
ok(_mktemp(buf) != NULL, "_mktemp(\"**XXXXXX\") == NULL\n");
}
static void test__open_osfhandle(void)
{
ioinfo *info;
HANDLE h, tmp;
int fd;
errno = 0xdeadbeef;
fd = _open_osfhandle((intptr_t)INVALID_HANDLE_VALUE, 0);
ok(fd == -1, "_open_osfhandle returned %d\n", fd);
ok(errno == EBADF, "errno = %d\n", errno);
h = CreateFileA("open_osfhandle.tst", GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 0, NULL);
fd = _open_osfhandle((intptr_t)h, 0);
ok(fd > 0, "_open_osfhandle returned %d (%d)\n", fd, errno);
info = &__pioinfo[fd/MSVCRT_FD_BLOCK_SIZE][fd%MSVCRT_FD_BLOCK_SIZE];
ok(info->handle == h, "info->handle = %p, expected %p\n", info->handle, h);
ok(info->wxflag == 1, "info->wxflag = %x, expected 1\n", info->wxflag);
close(fd);
ok(info->handle == INVALID_HANDLE_VALUE, "info->handle = %p, expected INVALID_HANDLE_VALUE\n", info->handle);
ok(info->wxflag == 0, "info->wxflag = %x, expected 0\n", info->wxflag);
DeleteFileA("open_osfhandle.tst");
errno = 0xdeadbeef;
fd = _open_osfhandle((intptr_t)h, 0);
ok(fd == -1, "_open_osfhandle returned %d\n", fd);
ok(errno == EBADF, "errno = %d\n", errno);
ok(CreatePipe(&h, &tmp, NULL, 0), "CreatePipe failed\n");
fd = _open_osfhandle((intptr_t)h, 0);
ok(fd > 0, "_open_osfhandle returned %d (%d)\n", fd, errno);
info = &__pioinfo[fd/MSVCRT_FD_BLOCK_SIZE][fd%MSVCRT_FD_BLOCK_SIZE];
ok(info->handle == h, "info->handle = %p, expected %p\n", info->handle, h);
ok(info->wxflag == 9, "info->wxflag = %x, expected 9\n", info->wxflag);
close(fd);
CloseHandle(tmp);
}
static void test_write_flush_size(FILE *file, int bufsize)
{
char *inbuffer;
char *outbuffer;
int size, fd;
fpos_t pos, pos2;
fd = fileno(file);
inbuffer = calloc(1, bufsize + 1);
outbuffer = calloc(1, bufsize + 1);
_snprintf(outbuffer, bufsize + 1, "0,1,2,3,4,5,6,7,8,9");
for (size = bufsize + 1; size >= bufsize - 1; size--) {
rewind(file);
ok(file->_cnt == 0, "_cnt should be 0 after rewind, but is %d\n", file->_cnt);
fwrite(outbuffer, 1, size, file);
/* lseek() below intentionally redirects the write in fflush() to detect
* if fwrite() has already flushed the whole buffer or not.
*/
lseek(fd, 1, SEEK_SET);
fflush(file);
ok(file->_cnt == 0, "_cnt should be 0 after fflush, but is %d\n", file->_cnt);
fseek(file, 0, SEEK_SET);
ok(fread(inbuffer, 1, bufsize, file) == bufsize, "read failed\n");
if (size == bufsize)
ok(memcmp(outbuffer, inbuffer, bufsize) == 0, "missing flush by %d byte write\n", size);
else
ok(memcmp(outbuffer, inbuffer, bufsize) != 0, "unexpected flush by %d byte write\n", size);
}
rewind(file);
fwrite(outbuffer, 1, bufsize / 2, file);
fwrite(outbuffer + bufsize / 2, 1, bufsize / 2, file);
lseek(fd, 1, SEEK_SET);
fflush(file);
fseek(file, 0, SEEK_SET);
ok(fread(inbuffer, 1, bufsize, file) == bufsize, "read failed\n");
ok(memcmp(outbuffer, inbuffer, bufsize) != 0, "unexpected flush by %d/2 byte double write\n", bufsize);
ok(!fseek(file, -1, SEEK_END), "fseek failed\n");
ok(!fgetpos(file, &pos), "fgetpos failed\n");
ok(fread(inbuffer, 1, 1, file) == 1, "fread failed\n");
ok(file->_flag & _IOREAD, "file->_flag = %x\n", file->_flag);
ok(!file->_cnt, "file->_cnt = %d\n", file->_cnt);
ok(file->_ptr != file->_base, "file->_ptr == file->_base\n");
ok(fwrite(outbuffer, 1, bufsize, file), "fwrite failed\n");
ok(file->_flag & _IOREAD, "file->_flag = %x\n", file->_flag);
ok(!file->_cnt, "file->_cnt = %d\n", file->_cnt);
ok(file->_ptr == file->_base, "file->_ptr == file->_base\n");
ok(!fgetpos(file, &pos2), "fgetpos failed\n");
ok(pos+bufsize+1 == pos2, "pos = %d (%d)\n", (int)pos, (int)pos2);
free(inbuffer);
free(outbuffer);
}
static void test_write_flush(void)
{
char iobuf[1024];
char *tempf;
FILE *file;
tempf = _tempnam(".","wne");
file = fopen(tempf, "wb+");
ok(file != NULL, "unable to create test file\n");
iobuf[0] = 0;
ok(file->_bufsiz == 4096, "incorrect default buffer size: %d\n", file->_bufsiz);
test_write_flush_size(file, file->_bufsiz);
setvbuf(file, iobuf, _IOFBF, sizeof(iobuf));
test_write_flush_size(file, sizeof(iobuf));
fclose(file);
unlink(tempf);
free(tempf);
}
static void test_close(void)
{
ioinfo *stdout_info, stdout_copy, *stderr_info, stderr_copy;
int fd1, fd2, ret1, ret2, ret3, ret4;
DWORD flags;
HANDLE h;
/* test close on fds that use the same handle */
h = CreateFileA("fdopen.tst", GENERIC_READ|GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, CREATE_ALWAYS, 0, NULL);
ok(h != INVALID_HANDLE_VALUE, "error opening fdopen.tst file\n");
fd1 = _open_osfhandle((intptr_t)h, 0);
ok(fd1 != -1, "_open_osfhandle failed (%d)\n", errno);
fd2 = _open_osfhandle((intptr_t)h, 0);
ok(fd2 != -1, "_open_osfhandle failed (%d)\n", errno);
ok(fd1 != fd2, "fd1 == fd2\n");
ok((HANDLE)_get_osfhandle(fd1) == h, "handles mismatch (%p != %p)\n",
(HANDLE)_get_osfhandle(fd1), h);
ok((HANDLE)_get_osfhandle(fd2) == h, "handles mismatch (%p != %p)\n",
(HANDLE)_get_osfhandle(fd2), h);
ret1 = close(fd1);
ok(!ret1, "close(fd1) failed (%d)\n", errno);
ok(!GetHandleInformation(h, &flags), "GetHandleInformation succeeded\n");
ok(close(fd2), "close(fd2) succeeded\n");
/* test close on already closed fd */
errno = 0xdeadbeef;
ret1 = close(fd1);
ok(ret1 == -1, "close(fd1) succeeded\n");
ok(errno == 9, "errno = %d\n", errno);
/* test close on stdout and stderr that use the same handle */
h = CreateFileA("fdopen.tst", GENERIC_READ|GENERIC_WRITE,
FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, CREATE_ALWAYS, 0, NULL);
ok(h != INVALID_HANDLE_VALUE, "error opening fdopen.tst file\n");
/* tests output will not be visible from now on */
stdout_info = &__pioinfo[STDOUT_FILENO/MSVCRT_FD_BLOCK_SIZE][STDOUT_FILENO%MSVCRT_FD_BLOCK_SIZE];
stderr_info = &__pioinfo[STDERR_FILENO/MSVCRT_FD_BLOCK_SIZE][STDERR_FILENO%MSVCRT_FD_BLOCK_SIZE];
stdout_copy = *stdout_info;
stderr_copy = *stderr_info;
stdout_info->handle = h;
stderr_info->handle = h;
ret1 = close(STDOUT_FILENO);
ret2 = GetHandleInformation(h, &flags);
ret3 = close(STDERR_FILENO);
ret4 = GetHandleInformation(h, &flags);
*stdout_info = stdout_copy;
*stderr_info = stderr_copy;
SetStdHandle(STD_OUTPUT_HANDLE, stdout_info->handle);
SetStdHandle(STD_ERROR_HANDLE, stderr_info->handle);
/* stdout and stderr restored */
ok(!ret1, "close(STDOUT_FILENO) failed\n");
ok(ret2, "GetHandleInformation failed\n");
ok(!ret3, "close(STDERR_FILENO) failed\n");
ok(!ret4, "GetHandleInformation succeeded\n");
DeleteFileA( "fdopen.tst" );
}
static void test__creat(void)
{
int fd, pos, count, readonly, old_fmode = 0, have_fmode;
char buf[6], testdata[4] = {'a', '\n', 'b', '\n'};
have_fmode = p__get_fmode && p__set_fmode && !p__get_fmode(&old_fmode);
if (!have_fmode)
win_skip("_fmode can't be set, skipping mode tests\n");
if (have_fmode)
p__set_fmode(_O_TEXT);
fd = _creat("_creat.tst", 0);
ok(fd > 0, "_creat failed\n");
_write(fd, testdata, 4);
if (have_fmode) {
pos = _tell(fd);
ok(pos == 6, "expected pos 6 (text mode), got %d\n", pos);
}
ok(_lseek(fd, 0, SEEK_SET) == 0, "_lseek failed\n");
count = _read(fd, buf, 6);
ok(count == 4, "_read returned %d, expected 4\n", count);
count = count > 0 ? count > 4 ? 4 : count : 0;
ok(memcmp(buf, testdata, count) == 0, "_read returned wrong contents\n");
_close(fd);
readonly = GetFileAttributesA("_creat.tst") & FILE_ATTRIBUTE_READONLY;
ok(readonly, "expected read-only file\n");
SetFileAttributesA("_creat.tst", FILE_ATTRIBUTE_NORMAL);
DeleteFileA("_creat.tst");
if (have_fmode)
p__set_fmode(_O_BINARY);
fd = _creat("_creat.tst", _S_IREAD | _S_IWRITE);
ok(fd > 0, "_creat failed\n");
_write(fd, testdata, 4);
if (have_fmode) {
pos = _tell(fd);
ok(pos == 4, "expected pos 4 (binary mode), got %d\n", pos);
}
ok(_lseek(fd, 0, SEEK_SET) == 0, "_lseek failed\n");
count = _read(fd, buf, 6);
ok(count == 4, "_read returned %d, expected 4\n", count);
count = count > 0 ? count > 4 ? 4 : count : 0;
ok(memcmp(buf, testdata, count) == 0, "_read returned wrong contents\n");
_close(fd);
readonly = GetFileAttributesA("_creat.tst") & FILE_ATTRIBUTE_READONLY;
ok(!readonly, "expected rw file\n");
SetFileAttributesA("_creat.tst", FILE_ATTRIBUTE_NORMAL);
DeleteFileA("_creat.tst");
if (have_fmode)
p__set_fmode(old_fmode);
}
static void test_lseek(void)
{
int fd;
char testdata[4] = {'a', '\n', 'b', '\n'};
errno = 0xdeadbeef;
ok(_lseek(-42, 0, SEEK_SET) == -1, "expected failure\n");
ok(errno == EBADF, "errno = %d\n", errno);
fd = _creat("_creat.tst", _S_IWRITE);
ok(fd > 0, "_creat failed\n");
_write(fd, testdata, 4);
errno = 0xdeadbeef;
ok(_lseek(fd, 0, 42) == -1, "expected failure\n");
ok(errno == EINVAL, "errno = %d\n", errno);
errno = 0xdeadbeef;
ok(_lseek(fd, -42, SEEK_SET) == -1, "expected failure\n");
ok(errno == EINVAL, "errno = %d\n", errno);
_close(fd);
DeleteFileA("_creat.tst");
}
START_TEST(file)
{
int arg_c;
char** arg_v;
init();
arg_c = winetest_get_mainargs( &arg_v );
/* testing low-level I/O */
if (arg_c >= 3)
{
if (strcmp(arg_v[2], "inherit") == 0)
test_file_inherit_child(arg_v[3]);
else if (strcmp(arg_v[2], "inherit_no") == 0)
test_file_inherit_child_no(arg_v[3]);
else if (strcmp(arg_v[2], "pipes") == 0)
test_pipes_child(arg_c, arg_v);
else if (strcmp(arg_v[2], "stdin") == 0)
test_invalid_stdin_child();
else
ok(0, "invalid argument '%s'\n", arg_v[2]);
return;
}
test_dup2();
test_file_inherit(arg_v[0]);
test_invalid_stdin(arg_v[0]);
test_file_write_read();
test_chsize();
test_stat();
test_unlink();
/* testing stream I/O */
test_filbuf();
test_fdopen();
test_fopen_fclose_fcloseall();
test_fopen_s();
test__wfopen_s();
test_setmode();
test_fileops();
test_asciimode();
test_asciimode2();
test_filemodeT();
test_readmode(FALSE); /* binary mode */
test_readmode(TRUE); /* ascii mode */
test_readboundary();
test_fgetc();
test_fputc();
test_flsbuf();
test_fflush();
test_fgetwc();
/* \x83\xa9 is double byte character, \xe0\x7f is not (undefined). */
test_fgetwc_locale("AB\x83\xa9\xe0\x7f", "Japanese_Japan.932", 932);
/* \x83 is U+0192 */
test_fgetwc_locale("AB\x83\xa9", "English", 1252);
/* \x83 is U+0083 */
test_fgetwc_locale("AB\x83\xa9", "C", 0);
test_fgetwc_unicode();
test_fputwc();
test_ctrlz();
test_file_put_get();
test_tmpnam();
test_get_osfhandle();
test_setmaxstdio();
test_pipes(arg_v[0]);
test_stdin();
test_mktemp();
test__open_osfhandle();
test_write_flush();
test_close();
test__creat();
test_lseek();
/* Wait for the (_P_NOWAIT) spawned processes to finish to make sure the report
* file contains lines in the correct order
*/
WaitForMultipleObjects(ARRAY_SIZE(proc_handles), proc_handles, TRUE, 5000);
}