freebsd-skq/tools/test/stress2/misc/oovm2.sh
Peter Holm 8a272653d9 stress2: Initial import
Discussed with:	 kib
2021-03-03 15:11:40 +01:00

137 lines
3.5 KiB
Bash
Executable File

#!/bin/sh
#
# Copyright (c) 2015 EMC Corp.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# Out of VM deadlock seen. Introduced by r285808. Variation of oovm.sh
# https://people.freebsd.org/~pho/stress/log/oovm2.txt
# Fixed by r290047 and <alc's PQ_LAUNDRY patch>
# Test scenario suggestion by alc@
. ../default.cfg
[ `swapinfo | wc -l` -eq 1 ] && exit 0
maxsize=$((2 * 1024)) # Limit size due to runtime reasons
size=$((`sysctl -n hw.physmem` / 1024 / 1024))
[ $size -gt $maxsize ] && size=$maxsize
d1=$diskimage.1
d2=$diskimage.2
d3=$diskimage.3
d4=$diskimage.4
rm -f $d1 $d2 $d3 $d4
[ `df -k $(dirname $diskimage) | tail -1 | awk '{print int($4 / 1024)}'` -lt \
$size ] && printf "Need %d MB on %s.\n" $size `dirname $diskimage` && exit
dd if=/dev/zero of=$d1 bs=1m count=$((size / 4)) status=none
cp $d1 $d2 || exit
cp $d1 $d3 || exit
cp $d1 $d4 || exit
trap "rm -f $d1 $d2 $d3 $d4" EXIT INT
dir=/tmp
odir=`pwd`
cd $dir
sed '1,/^EOF/d' < $odir/$0 > $dir/oovm2.c
mycc -o oovm2 -Wall -Wextra -g oovm2.c || exit 1
rm -f oovm2.c
cd $odir
(cd /tmp; /tmp/oovm2 $d1) &
(cd /tmp; /tmp/oovm2 $d2) &
(cd /tmp; /tmp/oovm2 $d3) &
(cd /tmp; /tmp/oovm2 $d4) &
wait
rm -f /tmp/oovm2 /tmp/oovm2.core
exit
EOF
#include <sys/param.h>
#include <sys/fcntl.h>
#include <sys/mman.h>
#include <sys/stat.h>
#include <err.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <unistd.h>
const char *file;
#define RUNTIME 600
void
test(void)
{
struct stat st;
size_t i, olen, len;
time_t start;
int error, fd, ps;
char *p;
ps = getpagesize();
if ((fd = open(file, O_RDWR)) == -1)
err(1, "open(%s)", file);
if ((error = fstat(fd, &st)) == -1)
err(1, "stat(%s)", file);
len = olen = round_page(st.st_size);
do {
if ((p = mmap(NULL, len, PROT_READ | PROT_WRITE, MAP_SHARED,
fd, 0)) == MAP_FAILED) {
if (errno == ENOMEM)
len -= ps;
else
err(1, "mmap");
}
} while (p == MAP_FAILED);
start = time(NULL);
/* Touch all pages of the file. */
for (i = 0; i < len; i += ps)
p[i] = 1;
while (time(NULL) - start < RUNTIME)
p[arc4random() % len] = 1;
if (munmap(p, len) == -1)
err(1, "unmap()");
close(fd);
}
int
main(int argc, char *argv[])
{
if (argc != 2)
errx(1, "Usage: %s <file>", argv[0]);
file = argv[1];
test();
return (0);
}