#! /bin/sh
# FS QA Test No. 013
#
# fsstress
#
#-----------------------------------------------------------------------
# Copyright (c) 2000-2002 Silicon Graphics, Inc.  All Rights Reserved.
#-----------------------------------------------------------------------
#
# creator
owner=dxm@sgi.com

seq=`basename $0`
echo "QA output created by $seq"

here=`pwd`
tmp=/tmp/$$
status=0	# success is the default!
trap "_cleanup; exit \$status" 0 1 2 3 15

_cleanup()
{
    cd /
    # we might get here with a RO FS
    mount -o remount,rw $TEST_DEV >/dev/null 2>&1
    # now remove fsstress directory.
    # N.B. rm(1) on IRIX can find problems when building up a long pathname
    # such that what it has is greater the 1024 chars and will
    # stop and complain - so get rid of complaint
    # Ref. pv#935754
    rm -rf $testdir/fsstress.$$.* 2>&1 | grep -v 'Path too long'
    _cleanup_testdir
}

_filesize()
{
    ls -l $1 | $AWK_PROG '{print "    filesize = " $5}'
}

# get standard environment, filters and checks
. ./common.rc
. ./common.filter

_do_test()
{
    _n="$1"
    _param="$2"
    _count="$3"

    out=$testdir/fsstress.$$.$_n
    rm -rf $out
    if ! mkdir $out
    then
        echo "    failed to mkdir $out"
        status=1
        exit
    fi

    echo ""
    echo "-----------------------------------------------"
    echo "fsstress.$_n : $_param"
    echo "-----------------------------------------------"
    # -m limits number of users/groups so check doesn't fail (malloc) later
    dbgoutfile=$seq.full
    if ! $FSSTRESS_PROG $_param $FSSTRESS_AVOID -v -m 8 -n $_count -d $out >>$dbgoutfile 2>&1
    then
        echo "    fsstress (count=$_count) returned $? - see $seq.full"
        echo "--------------------------------------"       >>$here/$seq.full
        echo "$_n - output from fsstress:"                  >>$here/$seq.full
        echo "--------------------------------------"       >>$here/$seq.full
        echo "<NOT LOGGED>"                                 >>$here/$seq.full
        #cat $tmp.out                                       >>$here/$seq.full
        status=1
    fi

    _check_test_fs
}


# real QA test starts here
_supported_fs xfs udf
_supported_os IRIX Linux

_setup_testdir

rm -f $here/$seq.full
echo "brevity is wit..."

count=1000
procs=20

_check_test_fs

# the default

_do_test 1 "-r" $count

# and the default with multiprocess

_do_test 2 "-p $procs -r" $count

# from Glen's notes

_do_test 3 "-p 4 -z -f rmdir=10 -f link=10 -f creat=10 -f mkdir=10 -f rename=30 -f stat=30 -f unlink=30 -f truncate=20" $count

# if all ok by here then probably don't need $seq.full
rm -f $seq.full

exit

# Test with error injection:
#
# (error injection)
# fsstress -n 1000 -d $scratch -p 4 -z -f rmdir=10 -f link=10 -f creat=10 \
#          -f mkdir=10 -f rename=30 -f stat=30 -f unlink=30 -f truncate=20 \
#          -e 1
#
# Error values 1 - 6 test IFLUSH
#         1 - corrupt buffer being flushed to di_core.di_magic
#         2 - corrupt inode being flushed i_d.di_magic
#         3 - corrupt S_IFREG format check
#         4 - corrupt S_IFDIR format check
#         5 - corrupt i_d.di_nextents
#         6 - corrupt i_d.di_forkoff > sb_inodesize