binutils-gdb/sim/testsuite/cris/c/ftruncate1.c
Mike Frysinger 1214c97666 sim: testsuite: initial support for OS-specific tests
We usually test against the newlib/libgloss environment, but for a
few ports that also support Linux apps, we want to test that logic
too.  A lot of the C code is written such that it works with either
newlib/libgloss or glibc/linux toolchains, but we have some tests
that end up being Linux-specific.  Cris has been using the target
tuple as a rough proxy for this (where cris*-*-elf is assumed to be
newlib/libgloss, and everything else is glibc/linux), but that is a
bit too rough, and it doesn't work in a multitarget build.

So lets create a few stub files that we can do compile tests with
to detect the different setups, and then let tests declare which
one they require (if they require any at all).
2021-11-26 20:06:55 -05:00

53 lines
1.0 KiB
C

/* Check that the ftruncate syscall works trivially.
#progos: linux
*/
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
void
perr (const char *s)
{
perror (s);
exit (1);
}
int
main (void)
{
FILE *f;
const char fname[] = "sk1test.dat";
const char tsttxt1[]
= "This is the first and only line of this file.\n";
const char tsttxt2[] = "Now there is a second line.\n";
char buf[sizeof (tsttxt1) + sizeof (tsttxt2) - 1] = "";
f = fopen (fname, "w+");
if (f == NULL
|| fwrite (tsttxt1, 1, strlen (tsttxt1), f) != strlen (tsttxt1))
perr ("open or fwrite");
if (fflush (f) != 0)
perr ("fflush");
if (ftruncate (fileno (f), strlen(tsttxt1) - 20) != 0)
perr ("ftruncate");
if (fclose (f) != 0)
perr ("fclose");
f = fopen (fname, "r");
if (f == NULL
|| fread (buf, 1, sizeof (buf), f) != strlen (tsttxt1) - 20
|| strncmp (buf, tsttxt1, strlen (tsttxt1) - 20) != 0
|| fclose (f) != 0)
{
printf ("fail\n");
exit (1);
}
printf ("pass\n");
exit (0);
}