2002-11-14 Jeff Johnston <jjohnstn@redhat.com>

* testsuite/lib/passfail.exp (newlib_pass_fail): Changed to
        only issue one pass/fail message for a compile/link/execute.
        * testsuite/newlib.elix/elix.exp: New file.
        * testsuite/newlib.elix/tmmap.c: Ditto.

newlib/ChangeLog

@@ -1,3 +1,10 @@
+2002-11-14  Jeff Johnston  <jjohnstn@redhat.com>
+
+        * testsuite/lib/passfail.exp (newlib_pass_fail): Changed to
+        only issue one pass/fail message for a compile/link/execute.
+        * testsuite/newlib.elix/elix.exp: New file.
+        * testsuite/newlib.elix/tmmap.c: Ditto.
+
 2002-11-06  Christopher Faylor  <cgf@redhat.com>
 
 	* libc/stdlib/malign.c: Don't compile if MALLOC_PROVIDED.

newlib/testsuite/lib/passfail.exp

@@ -42,9 +42,7 @@ proc newlib_pass_fail { srcfile } {
 
     if { $comp_output != "" } {
 	fail "Failed to compile $fullsrcfile.\n"
-	fail "$fullsrcfile"
     } else {
-	pass "Compiled $fullsrcfile.\n"
 	set result [newlib_load $test_driver ""]
 	set status [lindex $result 0]
 	$status "$fullsrcfile"

newlib/testsuite/newlib.elix/elix.exp

@@ -0,0 +1,19 @@
+# Copyright (C) 2002 by Red Hat, Incorporated. All rights reserved.
+#
+# Permission to use, copy, modify, and distribute this software
+# is freely granted, provided that this notice is preserved.
+#
+
+global host_triplet target_triplet
+
+load_lib passfail.exp
+
+set exclude_list {
+}
+
+verbose $host_triplet
+verbose $target_triplet
+
+if [string match "i\[3456\]86-pc-linux-gnu" $target_triplet] then {
+  newlib_pass_fail_all -x $exclude_list
+}

newlib/testsuite/newlib.elix/tmmap.c

@@ -0,0 +1,42 @@
+#include <sys/types.h>
+#include <sys/mman.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <fcntl.h>
+#include "check.h"
+
+int main()
+{
+  int fd;
+  char *x;
+  FILE *fp;
+  char buf[40];
+
+  fd = open("my.file", O_CREAT | O_TRUNC | O_RDWR, 0644);
+
+  CHECK (fd != -1);
+
+  CHECK (write (fd, "abcdefgh", 8) == 8); 
+ 
+  x = (char *)mmap (0, 20, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
+
+  CHECK (x != MAP_FAILED);
+
+  x[3] = 'j';
+
+  CHECK (munmap (x, 20) == 0);
+
+  CHECK (close(fd) != -1);
+
+  fp = fopen("my.file","r");
+
+  CHECK (fp != NULL);
+
+  CHECK (fread(buf, 1, 20, fp) == 8);
+
+  CHECK (strncmp (buf, "abcjefgh", 8) == 0);
+
+  exit (0);
+}
+