# a previous interrupted validation run
# --testsuite-only: don't build the compiler, just run
# the test suite
+# --hpc: build stage2 with -fhpc, and see how much of the
+# compiler the test suite covers.
+# 2008-07-01: 63% slower than the default.
+# HTML generated here: testsuite/hpc_output/hpc_index.html
+# --fast: Default. Opposite to --slow.
+# --slow: Build stage2 with -DDEBUG.
+# 2008-07-01: 14% slower than the default.
set -e
no_clean=0
testsuite_only=0
+hpc=NO
+slow=NO
while [ $# -gt 0 ]
do
--testsuite-only)
testsuite_only=1
;;
+ --hpc)
+ hpc=YES
+ ;;
+ --slow)
+ slow=YES
+ ;;
+ --fast)
+ slow=NO
+ ;;
*)
echo "Bad argument: $1" >&2
exit 1;;
shift
done
-if [ $testsuite_only -eq 0 ]; then
+if [ "$THREADS" = "" ]; then
+ if [ "$CPUS" = "" ]; then
+ threads=2
+ else
+ threads=$(($CPUS + 1)) # `expr $CPUS + 1`
+ fi
+else
+ threads="$THREADS"
+fi
-if [ $no_clean -eq 0 ] && [ -f mk/config.mk ]; then
- make distclean
+if type gmake > /dev/null 2> /dev/null
+then
+ make="gmake"
+else
+ make="make"
fi
-case $OSTYPE in
- cygwin|msys) config_args=--build=i386-unknown-mingw32
- if [ -f c:/mingw/bin/gcc.exe ]
- then
- config_args="$config_args --with-gcc=c:/mingw/bin/gcc"
- fi
- ;;
-esac
+if [ $testsuite_only -eq 0 ]; then
-if [ "$CPUS" = "" ]; then
- threads=2
-else
- threads=`expr $CPUS + 1`
+if [ $no_clean -eq 0 ]; then
+ $make maintainer-clean NO_CLEAN_GMP=YES
+
+ INSTDIR=`pwd`/inst
+ if [ "$OSTYPE" = "cygwin" ]
+ then
+ INSTDIR=`cygpath -m "$INSTDIR"`
+ fi
+
+ /usr/bin/perl -w boot --required-tag=dph
+ ./configure --prefix="$INSTDIR" $config_args
fi
-sh boot
-./configure $config_args
+thisdir=`utils/ghc-pwd/ghc-pwd`
+
+echo "Validating=YES" > mk/are-validating.mk
+
+$make -j$threads ValidateHpc=$hpc ValidateSlow=$slow
+
+$make binary-dist-prep
+$make test_bindist TEST_PREP=YES
-make Validating=YES -j$threads
fi # testsuite-only
-# ToDo: use THREADS=$threads, see #1558
-make Validating=YES -C testsuite/tests/ghc-regress fast stage=2 CLEANUP=1 2>&1 | tee testlog
+if [ "$hpc" = YES ]
+then
+ # XXX With threads we'd need to give a different tix file to each thread
+ # and then sum them up at the end
+ threads=1
+ HPCTIXFILE=$thisdir/testsuite/hpc_output/ghc.tix
+ export HPCTIXFILE
+ rm -f $HPCTIXFILE
+fi
+
+if [ "$slow" = YES ]
+then
+MAKE_TEST_TARGET=fulltest
+else
+MAKE_TEST_TARGET=test
+fi
+
+$make $MAKE_TEST_TARGET stage=2 BINDIST=YES THREADS=$threads 2>&1 | tee testlog
+
+if [ "$hpc" = YES ]
+then
+ utils/hpc/hpc markup --hpcdir=. --srcdir=compiler --srcdir=testsuite/hpc_output --destdir=testsuite/hpc_output testsuite/hpc_output/ghc.tix
+fi
echo "-------------------------------------------------------------------"
if
When you are satisfied that you haven't broken anything, go ahead and
push/send your patches.
EOF
+ if grep -q "^[^#]" mk/validate.mk
+ then
+ cat <<EOF
+
+WARNING: You seem to have things set in mk/validate.mk. Please check
+that it is OK before pushing.
+EOF
+ fi
+ cat <<EOF
+-------------------------------------------------------------------
+EOF
else
cat <<EOF
I didn't find any problems, but this wasn't a complete validate run,
NOTE: If you have made changes that may cause failures not tested for by
the minimal testing procedure, please do further testing as necessary.
+-------------------------------------------------------------------
EOF
fi
else
cat <<EOF
Oops! Looks like you have some unexpected test results or framework failures.
Please fix them before pushing/sending patches.
+-------------------------------------------------------------------
EOF
+ exit 1
fi
-echo "-------------------------------------------------------------------"