diff options
author | Lex Spoon <lex@lexspoon.org> | 2006-02-09 12:21:29 +0000 |
---|---|---|
committer | Lex Spoon <lex@lexspoon.org> | 2006-02-09 12:21:29 +0000 |
commit | 1d7dd9a70a0d47268e784a78460fe224c741426e (patch) | |
tree | 295e665add8693329391d7e51a7ff60703e5b52f | |
parent | da05ce41a5ae3cbae46393df0328532fa372b15b (diff) | |
download | scala-1d7dd9a70a0d47268e784a78460fe224c741426e.tar.gz scala-1d7dd9a70a0d47268e784a78460fe224c741426e.tar.bz2 scala-1d7dd9a70a0d47268e784a78460fe224c741426e.zip |
have the warning email include the list of fail...
have the warning email include the list of failed tests
-rwxr-xr-x | test/scala2-nightly-test.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/test/scala2-nightly-test.scm b/test/scala2-nightly-test.scm index f2bce3cfde..9766a205da 100755 --- a/test/scala2-nightly-test.scm +++ b/test/scala2-nightly-test.scm @@ -12,16 +12,19 @@ exec scsh -e main -s "$0" "$@" ;; SVN repository containing the Scala compiler. (define scala-svn-repository-dir "http://lampsvn.epfl.ch/svn-repos/scala/scala/trunk") + ;; SVN module containing the compiler. (define scala-svn-module-name "scala") ;; E-mail address to which the failure notification should be sent. (define notify-email "scala-devel@groupes.epfl.ch") ;;(define notify-email "stephane.micheloud@epfl.ch") ; DEBUG +;;(define notify-email "lex.spoon@epfl.ch") ; DEBUG ;; Directory in which the distribution should be built. (define nightly-build-dir - (expand-file-name "~linuxsoft/archives/scala/nightly-scala2")) +;; (expand-file-name "~lex/scala/nightly-scala2")) ; DEBUG + "~linuxsoft/archives/scala/nightly-scala2")) ;; End of configuration section. @@ -101,7 +104,9 @@ exec scsh -e main -s "$0" "$@" "Tonight's automatic Scala test failed. More details can be found\n" "in file "log-file-name"\n" "which is available through the following URL:\n\n" - " http://lamp.epfl.ch/~scalatest/"link-name))) + " http://lamp.epfl.ch/~scalatest/"link-name"\n" + "\n" + (run/string (fgrep "[FAILED]" ,log-file-name))))) (define (send-mail to headers body) (let ((mail-port (make-string-output-port))) |