/* sanity tests on SDL_rwops.c (usefull for alternative implementations of stdio rwops) */

#include <stdlib.h>
#include <unistd.h>

#include "SDL.h"
#include "SDL_endian.h"


#include <stdio.h>

/* WARNING ! those 2 files will be destroyed by this test program */
#define FBASENAME1	"sdldata1"      /* this file will be created during tests */
#define FBASENAME2	"sdldata2"      /* this file should not exists before starting test */


#ifndef NULL
#define NULL ((void *)0)
#endif

static void
cleanup (void)
{

    unlink (FBASENAME1);
    unlink (FBASENAME2);
}

static void
rwops_error_quit (unsigned line, SDL_RWops * rwops)
{

    printf ("testfile.c(%d): failed\n", line);
    if (rwops) {
        rwops->close (rwops);   /* This calls SDL_FreeRW(rwops); */
    }
    cleanup ();
    exit (1);                   /* quit with rwops error (test failed) */
}

#define RWOP_ERR_QUIT(x)	rwops_error_quit( __LINE__, (x) )



int
main (int argc, char *argv[])
{
    SDL_RWops *rwops = NULL;
    char test_buf[30];

    cleanup ();

/* test 1 : basic argument test: all those calls to SDL_RWFromFile should fail */

    rwops = SDL_RWFromFile (NULL, NULL);
    if (rwops)
        RWOP_ERR_QUIT (rwops);
    rwops = SDL_RWFromFile (NULL, "ab+");
    if (rwops)
        RWOP_ERR_QUIT (rwops);
    rwops = SDL_RWFromFile (NULL, "sldfkjsldkfj");
    if (rwops)
        RWOP_ERR_QUIT (rwops);
    rwops = SDL_RWFromFile ("something", "");
    if (rwops)
        RWOP_ERR_QUIT (rwops);
    rwops = SDL_RWFromFile ("something", NULL);
    if (rwops)
        RWOP_ERR_QUIT (rwops);
    printf ("test1 OK\n");

/* test 2 : check that inexistant file is not successfully opened/created when required */
/* modes : r, r+ implie that file MUST exist 
   modes : a, a+, w, w+ checks that it succeeds (file may not exists)
   
 */
    rwops = SDL_RWFromFile (FBASENAME2, "rb");  /* this file doesn't exist that call must fail */
    if (rwops)
        RWOP_ERR_QUIT (rwops);
    rwops = SDL_RWFromFile (FBASENAME2, "rb+"); /* this file doesn't exist that call must fail */
    if (rwops)
        RWOP_ERR_QUIT (rwops);
    rwops = SDL_RWFromFile (FBASENAME2, "wb");
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    rwops->close (rwops);
    unlink (FBASENAME2);
    rwops = SDL_RWFromFile (FBASENAME2, "wb+");
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    rwops->close (rwops);
    unlink (FBASENAME2);
    rwops = SDL_RWFromFile (FBASENAME2, "ab");
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    rwops->close (rwops);
    unlink (FBASENAME2);
    rwops = SDL_RWFromFile (FBASENAME2, "ab+");
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    rwops->close (rwops);
    unlink (FBASENAME2);
    printf ("test2 OK\n");

/* test 3 : creation, writing , reading, seeking, 
	        test : w mode, r mode, w+ mode
 */
    rwops = SDL_RWFromFile (FBASENAME1, "wb");  /* write only */
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    if (1 != rwops->write (rwops, "1234567890", 10, 1))
        RWOP_ERR_QUIT (rwops);
    if (10 != rwops->write (rwops, "1234567890", 1, 10))
        RWOP_ERR_QUIT (rwops);
    if (7 != rwops->write (rwops, "1234567", 1, 7))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);  /* we are in write only mode */
    rwops->close (rwops);

    rwops = SDL_RWFromFile (FBASENAME1, "rb");  /* read mode, file must exists */
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);
    if (20 != rwops->seek (rwops, -7, RW_SEEK_END))
        RWOP_ERR_QUIT (rwops);
    if (7 != rwops->read (rwops, test_buf, 1, 7))
        RWOP_ERR_QUIT (rwops);
    if (SDL_memcmp (test_buf, "1234567", 7))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 10, 100))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, -27, RW_SEEK_CUR))
        RWOP_ERR_QUIT (rwops);
    if (2 != rwops->read (rwops, test_buf, 10, 3))
        RWOP_ERR_QUIT (rwops);
    if (SDL_memcmp (test_buf, "12345678901234567890", 20))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->write (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);  /* readonly mode */
    rwops->close (rwops);

/* test 3: same with w+ mode */
    rwops = SDL_RWFromFile (FBASENAME1, "wb+"); /* write + read + truncation */
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    if (1 != rwops->write (rwops, "1234567890", 10, 1))
        RWOP_ERR_QUIT (rwops);
    if (10 != rwops->write (rwops, "1234567890", 1, 10))
        RWOP_ERR_QUIT (rwops);
    if (7 != rwops->write (rwops, "1234567", 1, 7))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);
    if (1 != rwops->read (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);  /* we are in read/write mode */
    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);
    if (20 != rwops->seek (rwops, -7, RW_SEEK_END))
        RWOP_ERR_QUIT (rwops);
    if (7 != rwops->read (rwops, test_buf, 1, 7))
        RWOP_ERR_QUIT (rwops);
    if (SDL_memcmp (test_buf, "1234567", 7))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 10, 100))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, -27, RW_SEEK_CUR))
        RWOP_ERR_QUIT (rwops);
    if (2 != rwops->read (rwops, test_buf, 10, 3))
        RWOP_ERR_QUIT (rwops);
    if (SDL_memcmp (test_buf, "12345678901234567890", 20))
        RWOP_ERR_QUIT (rwops);
    rwops->close (rwops);
    printf ("test3 OK\n");

/* test 4: same in r+ mode */
    rwops = SDL_RWFromFile (FBASENAME1, "rb+"); /* write + read + file must exists, no truncation */
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    if (1 != rwops->write (rwops, "1234567890", 10, 1))
        RWOP_ERR_QUIT (rwops);
    if (10 != rwops->write (rwops, "1234567890", 1, 10))
        RWOP_ERR_QUIT (rwops);
    if (7 != rwops->write (rwops, "1234567", 1, 7))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);
    if (1 != rwops->read (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);  /* we are in read/write mode */
    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);
    if (20 != rwops->seek (rwops, -7, RW_SEEK_END))
        RWOP_ERR_QUIT (rwops);
    if (7 != rwops->read (rwops, test_buf, 1, 7))
        RWOP_ERR_QUIT (rwops);
    if (SDL_memcmp (test_buf, "1234567", 7))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 10, 100))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, -27, RW_SEEK_CUR))
        RWOP_ERR_QUIT (rwops);
    if (2 != rwops->read (rwops, test_buf, 10, 3))
        RWOP_ERR_QUIT (rwops);
    if (SDL_memcmp (test_buf, "12345678901234567890", 20))
        RWOP_ERR_QUIT (rwops);
    rwops->close (rwops);
    printf ("test4 OK\n");

/* test5 : append mode */
    rwops = SDL_RWFromFile (FBASENAME1, "ab+"); /* write + read + append */
    if (!rwops)
        RWOP_ERR_QUIT (rwops);
    if (1 != rwops->write (rwops, "1234567890", 10, 1))
        RWOP_ERR_QUIT (rwops);
    if (10 != rwops->write (rwops, "1234567890", 1, 10))
        RWOP_ERR_QUIT (rwops);
    if (7 != rwops->write (rwops, "1234567", 1, 7))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);

    if (1 != rwops->read (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);

    if (20 + 27 != rwops->seek (rwops, -7, RW_SEEK_END))
        RWOP_ERR_QUIT (rwops);
    if (7 != rwops->read (rwops, test_buf, 1, 7))
        RWOP_ERR_QUIT (rwops);
    if (SDL_memcmp (test_buf, "1234567", 7))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 1, 1))
        RWOP_ERR_QUIT (rwops);
    if (0 != rwops->read (rwops, test_buf, 10, 100))
        RWOP_ERR_QUIT (rwops);

    if (27 != rwops->seek (rwops, -27, RW_SEEK_CUR))
        RWOP_ERR_QUIT (rwops);

    if (0 != rwops->seek (rwops, 0L, RW_SEEK_SET))
        RWOP_ERR_QUIT (rwops);
    if (3 != rwops->read (rwops, test_buf, 10, 3))
        RWOP_ERR_QUIT (rwops);
    if (SDL_memcmp (test_buf, "123456789012345678901234567123", 30))
        RWOP_ERR_QUIT (rwops);
    rwops->close (rwops);
    printf ("test5 OK\n");
    cleanup ();
    return 0;                   /* all ok */
}