6ccb82a9ff
structure tracking. Now when the new streambuf position is exactly at the end of the previous streambuf, we only fuzz the streambuf if new data is available (i.e. when streambuf_count != 0); otherwise, it just means that we’re at the end of the file, waiting for new read orders.
185 lines
7.0 KiB
Bash
Executable File
185 lines
7.0 KiB
Bash
Executable File
#!/bin/sh
|
|
#
|
|
# check-utils - check that zzuf properly fuzzes common utilities
|
|
#
|
|
# Copyright © 2002—2015 Sam Hocevar <sam@hocevar.net>
|
|
#
|
|
# This program is free software. It comes without any warranty, to
|
|
# the extent permitted by applicable law. You can redistribute it
|
|
# and/or modify it under the terms of the Do What the Fuck You Want
|
|
# to Public License, Version 2, as published by the WTFPL Task Force.
|
|
# See http://www.wtfpl.net/ for more details.
|
|
#
|
|
|
|
. "$(dirname "$0")/functions.inc"
|
|
|
|
HAVE_GETLINE=$("$ZZAT" -l | grep >/dev/null 2>&1 '^ getline(' && echo "y")
|
|
HAVE_GETDELIM=$("$ZZAT" -l | grep >/dev/null 2>&1 '^ getdelim(' && echo "y")
|
|
HAVE_GETC_UNLOCKED=$("$ZZAT" -l | grep >/dev/null 2>&1 '^ getc_unlocked(' && echo "y")
|
|
HAVE_FGETC_UNLOCKED=$("$ZZAT" -l | grep >/dev/null 2>&1 '^ fgetc_unlocked(' && echo "y")
|
|
HAVE___FREAD_CHK=$("$ZZAT" -l | grep >/dev/null 2>&1 '^ __fread_chk(' && echo "y")
|
|
|
|
checkutils()
|
|
{
|
|
r=$1
|
|
f=$2
|
|
|
|
file="$DIR/file-$f"
|
|
# add -d on purpose here so we can detect bugs in debug() calls
|
|
ZZOPTS="-d -s $seed -r $r"
|
|
case $file in
|
|
*text*) ZZOPTS="$ZZOPTS -P '\\n' -R '\\000'" ;;
|
|
esac
|
|
echo "*** file $file, ratio $r ***"
|
|
REFMD5=""
|
|
if [ $r = 0.0 -a $f = 00 ]; then
|
|
check="bb7df04e1b0a2570657527a7e108ae23"
|
|
echo "*** should be $check ***"
|
|
check "$ZZOPTS" "< $file" "zzuf" "$check"
|
|
else
|
|
check "$ZZOPTS" "< $file" "zzuf"
|
|
fi
|
|
if [ "$STATIC_CAT" = "" ]; then
|
|
check "$ZZOPTS" "cat $file" "cat"
|
|
check "$ZZOPTS" "-i cat < $file" "|cat"
|
|
fi
|
|
if [ "$STATIC_DD" = "" ]; then
|
|
check "$ZZOPTS" "dd bs=65536 if=$file" "dd(bs=65536)"
|
|
check "$ZZOPTS" "dd bs=1111 if=$file" "dd(bs=1111)"
|
|
check "$ZZOPTS" "dd bs=1024 if=$file" "dd(bs=1024)"
|
|
check "$ZZOPTS" "dd bs=1 if=$file" "dd(bs=1)"
|
|
fi
|
|
case $file in
|
|
*text*)
|
|
# We don't include grep or sed when the input is not text, because
|
|
# they put a newline at the end of their input if it was not there
|
|
# initially. (Linux sed doesn't, but OS X sed does.)
|
|
check "$ZZOPTS" "head -n 9999 $file" "head -n 9999"
|
|
check "$ZZOPTS" "${TAILN}9999 $file" "${TAILN}9999"
|
|
check "$ZZOPTS" "${TAILP}1 $file" "${TAILP}1"
|
|
if grep -a '' /dev/null >/dev/null 2>&1; then
|
|
check "$ZZOPTS" "grep -a '' $file" "grep -a ''"
|
|
fi
|
|
check "$ZZOPTS" "sed -e n $file" "sed -e n"
|
|
#check "$ZZOPTS" "cut -b1- $file" "cut -b1-"
|
|
check "$ZZOPTS" "-i head -n 9999 < $file" "|head -n 9999"
|
|
check "$ZZOPTS" "-i ${TAILN}9999 < $file" "|${TAILN}9999"
|
|
check "$ZZOPTS" "-i ${TAILP}1 < $file" "|${TAILP}1"
|
|
if grep -a '' /dev/null >/dev/null 2>&1; then
|
|
check "$ZZOPTS" "-i grep -a '' < $file" "|grep -a ''"
|
|
fi
|
|
check "$ZZOPTS" "-i sed -e n < $file" "|sed -e n"
|
|
#check "$ZZOPTS" "-i cut -b1- < $file" "|cut -b1-"
|
|
;;
|
|
esac
|
|
# Regression tests for stuff that used to break
|
|
check "$ZZOPTS" "$ZZAT -x \"fread(1,33000) fseek(1,SEEK_SET) fread(1,1) fseek(4093,SEEK_CUR) fread(1,1) fseek(1,SEEK_CUR) fread(1,1)\" $file" \
|
|
"eglibc (2.9-21) bug regression"
|
|
if [ "$HAVE_GETC_UNLOCKED $HAVE_GETLINE" = "y y" ]; then
|
|
check "$ZZOPTS" "$ZZAT -x \"repeat(33000,getc_unlocked(),feof(10),ungetc(),getline())\" $file" \
|
|
"sed getc_unlocked() bug regression"
|
|
fi
|
|
if [ "$HAVE___FREAD_CHK" = "y" ]; then
|
|
check "$ZZOPTS" "$ZZAT -x \"repeat(-1,__fread_chk(1,1000),feof(1))\" $file" \
|
|
"Gentoo __fread_chk() bug regression"
|
|
fi
|
|
check "$ZZOPTS" "$ZZAT -x \"fread(1,4095) fread(1,1) fseek(0,SEEK_SET) fread(1,33000)\" $file" \
|
|
"streambuf end bug regression"
|
|
check "$ZZOPTS" "$ZZAT -x \"fread(1,32768) fseek(-100,SEEK_END) fread(1,1) fseek(-1,SEEK_END) fread(1,1) fseek(-100,SEEK_CUR) fread(1,100)\" $file" \
|
|
"streambuf end bug regression"
|
|
# Misc tests
|
|
for n in \
|
|
"fread(1,33000)" \
|
|
"repeat(-1,fread(1,1000),feof(1))" \
|
|
"repeat(-1,fread(1,33),feof(1))" \
|
|
"getc() fread(1,33000)" \
|
|
"fgetc() fread(1,33000)" \
|
|
"getc() ungetc() fread(1,33000)" \
|
|
"fgetc() ungetc() fread(1,33000)" \
|
|
"repeat(-1,getc(),feof(10))" \
|
|
"repeat(-1,fgetc(),feof(10))" \
|
|
"repeat(8000,getc()) fread(1,33000)" \
|
|
"repeat(8000,fgetc()) fread(1,33000)" \
|
|
"fread(1,100) fseek(50,SEEK_SET) fread(1,33000)" \
|
|
"fread(1,100) rewind() fseek(50,SEEK_CUR) fread(1,33000)" \
|
|
"fread(1,33000) rewind() repeat(-1,fseek(1,SEEK_CUR),fread(1,1),feof(1))" \
|
|
"fread(1,33000) rewind() repeat(-1,fseek(2,SEEK_CUR),fread(1,2),feof(1))" \
|
|
"fread(1,33000) rewind() repeat(-1,fseek(3,SEEK_CUR),fread(1,3),feof(1))" \
|
|
"fread(1,33000) rewind() repeat(-1,fseek(4,SEEK_CUR),fread(1,4),feof(1))" \
|
|
"fread(1,33000) fseek(1000,SEEK_CUR) repeat(-1,fread(1,2),feof(10))" \
|
|
"fread(1,33000) fseek(1000,SEEK_CUR) repeat(-1,getc(),feof(10))" \
|
|
"fread(1,33000) fseek(1000,SEEK_CUR) repeat(-1,fgetc(),feof(10))" \
|
|
; do
|
|
check "$ZZOPTS" "$ZZAT -x \"$n\" $file" "$n"
|
|
done
|
|
# Platform-specific tests
|
|
if [ "$HAVE_GETLINE" = "y" ]; then
|
|
for n in \
|
|
"repeat(10,getline()) fread(1,33000)" \
|
|
"repeat(-1,getc(),feof(10),ungetc(),getline())" \
|
|
"repeat(-1,fgetc(),feof(10),ungetc(),getline())" \
|
|
; do
|
|
check "$ZZOPTS" "$ZZAT -x \"$n\" $file" "$n"
|
|
done
|
|
fi
|
|
if [ "$HAVE_GETDELIM" = "y" ]; then
|
|
for n in \
|
|
"repeat(10,getdelim(0)) fread(1,33000)" \
|
|
"repeat(10,getdelim(' ')) fread(1,33000)" \
|
|
; do
|
|
check "$ZZOPTS" "$ZZAT -x \"$n\" $file" "$n"
|
|
done
|
|
fi
|
|
if [ "$HAVE_GETC_UNLOCKED" = "y" ]; then
|
|
for n in \
|
|
"getc_unlocked() fread(1,33000)" \
|
|
"getc_unlocked() ungetc() fread(1,33000)" \
|
|
"repeat(-1,getc_unlocked(),feof(10))" \
|
|
"repeat(8000,getc_unlocked()) fread(1,33000)" \
|
|
"fread(1,33000) fseek(1000,SEEK_CUR) repeat(-1,getc_unlocked(),feof(10))" \
|
|
; do
|
|
check "$ZZOPTS" "$ZZAT -x \"$n\" $file" "$n"
|
|
done
|
|
fi
|
|
if [ "$HAVE_FGETC_UNLOCKED" = "y" ]; then
|
|
for n in \
|
|
"fgetc_unlocked() fread(1,33000)" \
|
|
"fgetc_unlocked() ungetc() fread(1,33000)" \
|
|
"repeat(-1,fgetc_unlocked(),feof(10))" \
|
|
"repeat(8000,fgetc_unlocked()) fread(1,33000)" \
|
|
; do
|
|
check "$ZZOPTS" "$ZZAT -x \"$n\" $file" "$n"
|
|
done
|
|
fi
|
|
}
|
|
|
|
check()
|
|
{
|
|
ZZOPTS="$1"
|
|
CMD="$2"
|
|
ALIAS="$3"
|
|
CHECK="$4"
|
|
printf " $(echo "$ALIAS .................................." | cut -b1-38) "
|
|
MD5="$(eval "$ZZUF -m $ZZOPTS $CMD" 2>/dev/null | cut -f2 -d' ')"
|
|
if [ -n "$CHECK" ]; then
|
|
REFMD5="$CHECK"
|
|
fi
|
|
if [ -z "$REFMD5" ]; then
|
|
REFMD5="$MD5"
|
|
echo "$MD5"
|
|
elif [ "$MD5" != "$REFMD5" ]; then
|
|
fail_test "$MD5 FAILED"
|
|
else
|
|
pass_test 'ok'
|
|
fi
|
|
}
|
|
|
|
start_test "zzuf utils test suite"
|
|
for r in 0.0 0.001 1.0; do
|
|
for f in 00 ff text random; do
|
|
checkutils $r $f
|
|
done
|
|
done
|
|
stop_test
|
|
|