Add a special section in the testsuite for regressions.

This commit is contained in:
Sam Hocevar
2010-01-06 02:00:49 +00:00
committed by sam
parent 9e50361057
commit 45764eb21f
+6 -1
View File
@@ -53,6 +53,12 @@ checkutils()
#check "$ZZOPTS" "-i cut -b1- < $file" "|cut -b1-"
;;
esac
# Regression tests for stuff that used to break
check "$ZZOPTS" "$ZZCAT \"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"
check "$ZZOPTS" "$ZZCAT \"repeat(33000,getc_unlocked() ungetc() getline())\" $file" \
"sed getc_unlocked() bug regression"
# Misc tests
for n in \
"fread(1,33000)" \
"repeat(33,fread(1,1000))" \
@@ -84,7 +90,6 @@ checkutils()
"fread(1,33000) rewind() repeat(10000,fseek(4,SEEK_CUR) fread(1,4))" \
"repeat(33000,getc() ungetc() getline())" \
"repeat(33000,fgetc() ungetc() getline())" \
"repeat(33000,getc_unlocked() ungetc() getline())" \
"fread(1,33000) fseek(1000,SEEK_CUR) repeat(10000,fread(1,2))" \
"fread(1,33000) fseek(1000,SEEK_CUR) repeat(10000,getc())" \
"fread(1,33000) fseek(1000,SEEK_CUR) repeat(10000,fgetc())" \