/*

* Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - initial contribution.

*

* Contributors:

*

* Description:

* Test code for directory and file handling

* 

*

*/

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <unistd.h>

#include <sys/stat.h>

#include <sys/fcntl.h>

#include <dirent.h>

#include <errno.h>

#include "CTEST.H"	/* includes C interface to EPOC32 threads, and SpawnPosixServer */

test_Data;

wchar_t rootpath[MAXPATHLEN];

#define WIDENAME {L'/', L'T', L'o', L'p', L'/', L'e', L'u', L'r', L'o', 0x20ac, 0}

/* construct a directory tree in various ways */

/**

@SYMTestCaseID          SYSLIB-STDLIB-CT-1082

@SYMTestCaseDesc	    Tests for operations on directory 

@SYMTestPriority 	    High

@SYMTestActions  	    Tests by creating directory with invalid name,existing directory name,wide characters

                        Tests for the error code returned while creating directories.

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/		

void make_tree()

	{

	int err,x;

	wchar_t namebuf[MAXPATHLEN], namebuf2[MAXPATHLEN];

	wchar_t toobig[MAXPATHLEN+MAXPATHLEN+1];

	wchar_t *p;

	wchar_t widename[] = WIDENAME;

	test_Next("Create Directory Tree - relative paths");

	err=wmkdir((wchar_t*)L"***", 0777);

	test_errno(err==-1,EINVAL);	/* bad directory name */

	err=wmkdir((wchar_t*)L"top", 0777);

	test(err==0);

	err=wmkdir((wchar_t*)L"top", 0777);

	test_errno(err==-1,EEXIST);	/* directory already exists */

	err=wmkdir(widename, 0777);

	test(err==0);

	err=wmkdir((wchar_t*)L"top/middle1/bottom1", 0777);

	test_errno(err==-1,ENOENT);	/* missing middle bit of path */

	err=wmkdir((wchar_t*)L"top/middle1", 0777);

	test(err==0);

	err=wchdir((wchar_t*)L"./top//\\/.\\.\\../top/.");

	test(err==0);

	p = wgetcwd(rootpath,sizeof(rootpath)/2);	/* save name of toplevel directory */

	test(p==rootpath);

	err=wchdir((wchar_t*)L"middle1");

	test(err==0);

	err=wchdir((wchar_t*)L"bottom2");

	test_errno(err==-1,ENOENT);	/* directory doesn't exist yet */

	p = wgetcwd(namebuf,sizeof(namebuf));	/* prepare name for tests later */

	test(p==namebuf);

	err=wmkdir((wchar_t*)L"bottom1",0777);

	test(err==0);

	err=wmkdir((wchar_t*)L"read-only",0444);

	test(err==0);

	err=wmkdir((wchar_t*)L"read-only/sub-read-only",0444);

	/* test_errno(err==-1,EACCES); */

	test(err==0);	/* Omission - EPOC32 has Win32 semantics for read-only directories */

	err=wchdir((wchar_t*)L"../../top/middle1/bottom1");

	test(err==0);

	test_Next("Create Directory Tree - absolute paths");

	p = wcscat(namebuf,(wchar_t*)L"/bottom2");

	test(p==namebuf);	/* .../top/middle1/bottom2 */

	err=wchdir(namebuf);

	test_errno(err==-1,ENOENT);	/* directory doesn't exist yet */

	err=wmkdir(namebuf, 0777);

	test(err==0);

	err=wchdir(namebuf);

	test(err==0);

	p = wgetcwd(namebuf,sizeof(namebuf));

	test(p==namebuf);

	err=wmkdir((wchar_t*)L"../../middle2", 0777);

	test(err==0);

	p = wgetcwd(namebuf2,sizeof(namebuf2));

	test(p==namebuf2);

	test(wcscmp(namebuf,namebuf2)==0);	/* mkdir shouldn't change cwd */

//	memset(toobig,L'a', sizeof(toobig));

//	toobig[sizeof(toobig)-1]='\0';

	for (x = 0; x < (sizeof(toobig)/2)-1; x++)

		toobig[x] = L'a';

	toobig[x] = L'\0';

	err=wmkdir(toobig,0777);

	test_errno(err<0,ENAMETOOLONG);

	test_Next("Test wgetcwd");

	//size too small

	p = wgetcwd(namebuf, 4);

	test_errno(0==p, ERANGE);

	//make it alloc a buffer

	p = wgetcwd(NULL, 300);

	test (NULL != p);

	free(p);

	//alloc a buffer then fail with a too small size

	p = wgetcwd(NULL, 10);

	test_errno(0==p, ERANGE);

	p = wgetcwd(namebuf2, MAXPATHLEN-1);

	test (NULL != p);

	test_Next("Test wrealpath");

	p = wrealpath((wchar_t*)L"/top/../top/../top/./",namebuf);

	test((0==wcscmp((wchar_t*)L"C:\\top\\", p)) || (0==wcscmp((wchar_t*)L"D:\\top\\", p)));

	test((0==wcscmp((wchar_t*)L"C:\\top\\", namebuf)) || (0==wcscmp((wchar_t*)L"D:\\top\\", namebuf)));

	p = wrealpath((wchar_t*)L"/top/../top/././top/./",namebuf);

}

/**

   Directory tree is now

     top / middle2   

           middle1 / bottom1

                   / bottom2

 		   / read-only / sub-read-only

@SYMTestCaseID          SYSLIB-STDLIB-CT-1083

@SYMTestCaseDesc	    Tests for operations on creating files

@SYMTestPriority 	    High

@SYMTestActions  	    Tests by opening files which does not exists,check for closing a file twice

                        Tests for the error code returned while creating files

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/		

void create_files()

	{

	int err;

	int fd;

	wchar_t namebuf[MAXPATHLEN],*p;

	test_Next("Creating Files - relative paths");

	err=wchdir(rootpath);

	test(err==0);

	fd = wopen((wchar_t*)L"topfile",O_RDWR+O_APPEND,0777);

	test_errno(fd<0,ENOENT);	/* doesn't exist */

	fd = wopen((wchar_t*)L"topfile",O_RDWR+O_CREAT,0777);

	test(fd>=0);

	err=close(fd);

	test(err==0);

	err=close(fd);

	test_errno(err<0,EBADF);	/* can't close it twice */

	fd = wopen((wchar_t*)L"topfile",O_RDWR+O_APPEND,0777);

	test(fd>=0);

	err=close(fd);

	test(err==0);

	fd = wopen((wchar_t*)L"topfile",O_RDWR+O_CREAT+O_EXCL,0777);

	test_errno(fd<0,EEXIST);	/* already exists */

	fd = wopen((wchar_t*)L"middle1/bottom2/file",O_RDONLY+O_CREAT,0444);

	test(fd>=0);

	err=close(fd);

	test(err==0);

	fd = wopen((wchar_t*)L"middle1/bottom2/file",O_RDWR+O_APPEND,0777);

	/* test_errno(fd<0,EACCES); */

	test(fd>=0);	/* Omission - the original O_CREAT ignores the 0444 permissions */

	if (fd>=0)

		{

		err=close(fd);

		test(err==0);

		}

	err=wchmod((wchar_t*)L"middle1/bottom2/file",0444);

	test(err==0);

	fd = wopen((wchar_t*)L"middle1/bottom2/file",O_RDWR+O_APPEND,0777);

	test_errno(fd<0,EACCES);	/* not writeable */

	fd = wopen((wchar_t*)L"middle2",O_RDWR+O_CREAT,0777);

	/* test_errno(fd<0,EISDIR); */

	test_errno(fd<0,EACCES);	/* Omission - we don't do EISDIR */

	test_Next("Creating Files - absolute paths");

	err=wchdir((wchar_t*)L"middle1/bottom1");

	test(err==0);

	p = wgetcwd(namebuf,sizeof(namebuf)/2);	/* prepare name for tests later */

	test(p==namebuf);

	p = wcscat(namebuf,(wchar_t*)L"absfile");

	test(p==namebuf);

	fd = wopen(namebuf,O_RDWR+O_CREAT,0777);

	test(fd>=0);

	err=close(fd);

	test(err==0);

	fd = wopen((wchar_t*)L"../read-only/file",O_RDWR+O_CREAT,0444);

	/* test_errno(fd<0,EACCES); */

	test(fd>=0);	/* Omission - EPOC32 has Win32 semantics for read-only directories */

	if (fd>=0)

		{

		err=close(fd);

		test(err==0);

		}

	}

/**

 Directory tree is now

     top / topfile

           middle2 /   

           middle1 / bottom1 / absfile

                   / bottom2 / file                -- read-only

  		   / read-only / sub-read-only /

                                file

@SYMTestCaseID          SYSLIB-STDLIB-CT-1084

@SYMTestCaseDesc	    Tests for renaming operations 

@SYMTestPriority 	    High

@SYMTestActions  	    Tests by renaming files.Tests for the error code returned while renaming files

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/		

void renaming()

	{

	int err;

	test_Next("Renaming");

	err=wchdir(rootpath);

	test(err==0);

	err=wrename((wchar_t*)L"middle1",(wchar_t*)L"middle2");

	test_errno(err<0,EEXIST);

	err=wrename((wchar_t*)L"middle1/bottom1/absfile",(wchar_t*)L"middle2/absfile");

	test(err==0);

	err=wrename((wchar_t*)L"middle2/absfile",(wchar_t*)L"middle1/bottom1/absfile");

	test(err==0);

	err=wrename((wchar_t*)L"middle1/bottom1/absfile",(wchar_t*)L"middle2/nonsuch/newname");

	test_errno(err<0,ENOENT);

	err=wrename((wchar_t*)L"middle1",(wchar_t*)L"middle1/bottom1/subdirectory_of_self");

	test_errno(err<0,EACCES);

	err=wrename((wchar_t*)L"middle1",(wchar_t*)L"newname");

	test(err==0);

	err=wrename((wchar_t*)L"newname/bottom2/file",(wchar_t*)L"middle2/file");

	test(err==0);

	err=wrename((wchar_t*)L"newname",(wchar_t*)L"middle1");

	test(err==0);

	err=wrename((wchar_t*)L"middle2/file",(wchar_t*)L"middle1/bottom2/file");

	test(err==0);

	err=wrename((wchar_t*)L"no such file",(wchar_t*)L"valid new name");

	test_errno(err<0,ENOENT);

	err=wrename((wchar_t*)L"no such file",(wchar_t*)L"topfile");

	test_errno(err<0,ENOENT);

	err=wrename((wchar_t*)L".",(wchar_t*)L"../different top");

	/* test_errno(err<0,EACCES);	-- can't change "." */

	test(err==0);	/* STDLIB resolves "." to full path, so this works */

	err=wrename((wchar_t*)L"../different top",rootpath);

	test(err==0);

	}

/** 

  Directory tree is now

     top / topfile

           middle2 /   

           middle1 / bottom1 / absfile

                   / bottom2 / file                -- read-only

 		   / read-only / sub-read-only /

                                 file

@SYMTestCaseID          SYSLIB-STDLIB-CT-1085

@SYMTestCaseDesc	    Tests for enumeration on directories 

@SYMTestPriority 	    High

@SYMTestActions  	    Tests for using WDIR inplace of DIR

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/		

void directory()

	{

	int err, count, i, j, fd;

	WDIR *dp;

	struct wdirent *ep;

	wchar_t name[MAXPATHLEN+1];

	off_t pos;

	test_Next("Enumerating Directories");

	err=wchdir(rootpath);

	test(err==0);

	dp=wopendir((wchar_t*)L"topfile");

	/* test_errno(dp==0,ENOTDIR); -- not convinced about this anyway */

	test_errno(dp==0,ENOENT);

	dp=wopendir((wchar_t*)L"no such file");

	test_errno(dp==0,ENOENT);

	//test something sensible happens if someone uses a WDIR inplace of a DIR

	{

		DIR *p = opendir(".");

		test(p!=0);

		// Test wants a DIR passed but won't compile under CW.

		// Force the compile by casting. The function will still get a DIR.

		// DIR inherits from WDIR.

		ep=wreaddir((WDIR*)p);  //expect a warning from this line.  p *IS* the wrong type

		test(ep != 0);

	}

	dp=wopendir((wchar_t*)L".");

	test(dp!=0);

	count=0;

	do

		{

		ep=wreaddir(dp);

		if (ep && wcscmp(ep->d_name,(wchar_t*)L".")!=0 && wcscmp(ep->d_name,(wchar_t*)L"..")!=0)

			count++;

		}

	while (ep!=0);

	test(count==4);

	for (i=0; i<4; i++)

		{

		wrewinddir(dp);

		for (j=0; j<=i; j++)

			{

			ep=wreaddir(dp);

			test(ep!=0);

			}

		wcscpy(name,ep->d_name);

		wrewinddir(dp);

		for (j=0; j<=i; j++)

			{

			ep=wreaddir(dp);

			test(ep!=0);

			}

		test(wcscmp(name,ep->d_name)==0);

		}

	for (i=0; i<4; i++)

		{

		wrewinddir(dp);

		pos=wtelldir(dp);

		for (j=0; j<=i; j++)

			{

			pos=wtelldir(dp);

			ep=wreaddir(dp);

			test(ep!=0);

			}

		wcscpy(name,ep->d_name);

		wrewinddir(dp);

		wseekdir(dp, pos);

		ep=wreaddir(dp);

		test(ep!=0);

		test(wcscmp(name,ep->d_name)==0);

		}

	err=wclosedir(dp);

	test(err==0);

	dp=wopendir((wchar_t*)L"middle2\\");

	test(dp!=0);

	count=0;

	do

		{

		ep=wreaddir(dp);

		if (ep && wcscmp(ep->d_name,(wchar_t*)L".")!=0 && wcscmp(ep->d_name,(wchar_t*)L"..")!=0)

			count++;

		}

	while (ep!=0);

	test(count==0);	/* empty directory */

	wrewinddir(dp);

	fd = wopen((wchar_t*)L"middle2/extrafile",O_RDWR+O_CREAT,0777);

	test(fd>=0);

	err=close(fd);

	test(err==0);

	count=0;

	do

		{

		ep=wreaddir(dp);

		if (ep && wcscmp(ep->d_name,(wchar_t*)L".")!=0 && wcscmp(ep->d_name,(wchar_t*)L"..")!=0)

			count++;

		}

	while (ep!=0);

	test(count==0);	/* shouldn't have noticed the change */

	wrewinddir(dp);	/* and spot the new file */

	count=0;

	do

		{

		ep=wreaddir(dp);

		if (ep && wcscmp(ep->d_name,(wchar_t*)L".")!=0 && wcscmp(ep->d_name,(wchar_t*)L"..")!=0)

			count++;

		}

	while (ep!=0);

	test(count==1);

	wclosedir(dp);

	dp=wopendir((wchar_t*)L"/");

	test(dp!=0);

	count=0;

	do

		{

		ep=wreaddir(dp);

		if (ep && wcscmp(ep->d_name,(wchar_t*)L".")!=0 && wcscmp(ep->d_name,(wchar_t*)L"..")!=0)

			count++;

		}

	while (ep!=0);

	test(count>0);

	wclosedir(dp);

	}

/**

 Directory tree is now

     top / topfile

           middle2 / extrafile  

           middle1 / bottom1 / absfile

                   / bottom2 / file                -- read-only

 		   / read-only / sub-read-only /

                                 file

@SYMTestCaseID          SYSLIB-STDLIB-CT-1086

@SYMTestCaseDesc	    Tests for file attributes

@SYMTestPriority 	    High

@SYMTestActions  	    Tests the attributes on files and directories

@SYMTestExpectedResults Test must not fail

@SYMREQ                 REQ0000

*/		

void attributes()

	{

	int err;

	struct stat s1,s2;

	int fd;

	double diff;

	test_Next("File Attributes");

	err=wchdir(rootpath);

	test(err==0);

	err=wstat((wchar_t*)L"middle earth/bag end/hobbit",&s1);

	test_errno(err<0,ENOENT);