/* Test of ftell() function.
Copyright (C) 2007, 2008 Free Software Foundation, Inc.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program 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 General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see . */
/* Written by Bruno Haible , 2007. */
#include
#include
#include
#include "binary-io.h"
#define ASSERT(expr) \
do \
{ \
if (!(expr)) \
{ \
fprintf (stderr, "%s:%d: assertion failed\n", __FILE__, __LINE__); \
abort (); \
} \
} \
while (0)
int
main (int argc, char **argv)
{
int ch;
/* Assume stdin is seekable iff argc > 1. */
if (argc == 1)
{
ASSERT (ftell (stdin) == -1);
return 0;
}
/* mingw ftell is unreliable on text mode input. */
SET_BINARY (0);
/* Simple tests. */
ASSERT (ftell (stdin) == 0);
ch = fgetc (stdin);
ASSERT (ch == '#');
ASSERT (ftell (stdin) == 1);
/* Test ftell after ungetc of read input. */
ch = ungetc ('#', stdin);
ASSERT (ch == '#');
ASSERT (ftell (stdin) == 0);
ch = fgetc (stdin);
ASSERT (ch == '#');
ASSERT (ftell (stdin) == 1);
/* Test ftell after fseek. */
ASSERT (fseek (stdin, 2, SEEK_SET) == 0);
ASSERT (ftell (stdin) == 2);
/* Test ftell after random ungetc. */
ch = fgetc (stdin);
ASSERT (ch == '/');
ch = ungetc ('@', stdin);
ASSERT (ch == '@');
ASSERT (ftell (stdin) == 2);
ch = fgetc (stdin);
ASSERT (ch == '@');
ASSERT (ftell (stdin) == 3);
/* Test ftell after ungetc without read. */
ASSERT (fseek (stdin, 0, SEEK_CUR) == 0);
ASSERT (ftell (stdin) == 3);
ch = ungetc ('~', stdin);
ASSERT (ch == '~');
ASSERT (ftell (stdin) == 2);
/* Test ftell beyond end of file. */
ASSERT (fseek (stdin, 0, SEEK_END) == 0);
ch = ftell (stdin);
ASSERT (fseek (stdin, 10, SEEK_END) == 0);
ASSERT (ftell (stdin) == ch + 10);
return 0;
}