pintos: Avoid literal control character in Perl variable name.
[pintos-anon] / src / tests / vm / mmap-close.c
1 /* Verifies that memory mappings persist after file close. */
2
3 #include <string.h>
4 #include <syscall.h>
5 #include "tests/vm/sample.inc"
6 #include "tests/arc4.h"
7 #include "tests/lib.h"
8 #include "tests/main.h"
9
10 #define ACTUAL ((void *) 0x10000000)
11
12 void
13 test_main (void)
14 {
15   int handle;
16   mapid_t map;
17
18   CHECK ((handle = open ("sample.txt")) > 1, "open \"sample.txt\"");
19   CHECK ((map = mmap (handle, ACTUAL)) != MAP_FAILED, "mmap \"sample.txt\"");
20
21   close (handle);
22
23   if (memcmp (ACTUAL, sample, strlen (sample)))
24     fail ("read of mmap'd file reported bad data");
25
26   munmap (map);
27 }