From bc15df92653e1901a5234c3c5682f562e8ead5ae Mon Sep 17 00:00:00 2001 From: Lex Spoon Date: Wed, 8 Feb 2006 09:53:39 +0000 Subject: fixed name of script --- test/scala-nightly-test.scm | 130 ------------------------------------------- test/scala2-nightly-test.scm | 130 +++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 130 insertions(+), 130 deletions(-) delete mode 100755 test/scala-nightly-test.scm create mode 100755 test/scala2-nightly-test.scm (limited to 'test') diff --git a/test/scala-nightly-test.scm b/test/scala-nightly-test.scm deleted file mode 100755 index 9928601ac6..0000000000 --- a/test/scala-nightly-test.scm +++ /dev/null @@ -1,130 +0,0 @@ -#!/bin/sh -exec scsh -e main -s "$0" "$@" -!# - -;; Script to perform the nightly test/build of Scala. -;; -;; Always make sure that the latest version of this file is copied to -;; ~scalatest/bin/scala-nightly-test.scm -;; -;; $Id$ - -;; Makefile.private to use for the build. -(define private-makefile "Makefile.private") -(define source-private-makefile - (expand-file-name (string-append "~scalatest/support/" private-makefile))) - -;; CVS repository containing the Scala compiler. -(define scala-cvs-repository-dir - (expand-file-name "~cvslamp/repositories/scala")) -;; CVS module containing the compiler. -(define scala-cvs-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 "Michel.Schinz@epfl.ch") ; DEBUG - -;; Directory in which the distribution should be built. -(define nightly-build-dir - (expand-file-name "~linuxsoft/archives/scala/nightly")) - -;; End of configuration section. - -(define (main cmd-line) - (let ((prog (car cmd-line)) - (args (cdr cmd-line))) - (if (= 1 (length args)) - (scala-test (first args)) - (display-usage-and-exit prog)))) - -(define (display-usage-and-exit prog) - (format #t "Usage: ~a \n" prog) - (exit 1)) - -(define (get-public-link file) - (temp-file-iterate (lambda (link) (create-symlink file link) link) - (expand-file-name "~/public_html/log-~a.txt"))) - -(define (get-checkout-dir base-dir date) - (expand-file-name (format-date "~Y-~m-~d" date) base-dir)) - -(define (start-section title) - (format #t "\n* ~a\n\n" title)) - -(define (scala-test base-dir) - (let* ((checkout-dir (get-checkout-dir base-dir (date))) - (log-file (expand-file-name "log" checkout-dir))) - (create-directory checkout-dir) - (call-with-output-file log-file - (lambda (log-port) - (with-current-output-port log-port - (with-current-error-port log-port - (stdports->stdio) - (with-cwd checkout-dir - (if (not (call-with-current-continuation scala-do-test)) - (let ((link (get-public-link log-file))) - (send-warning-mail log-file - (file-name-nondirectory link))))))))))) - -(define (scala-do-test return) - (dynamic-wind - (lambda () - (display "In Emacs, read this file in -*- Outline -*- mode\n") - (start-section "Starting time") - (display (format-date "~Y-~m-~d ~H:~M ~Z\n" (date)))) - (lambda () - (let ((fail-if-error (lambda (code) (if (not (zero? code)) - (return #f))))) - (start-section "Checking out Scala module") - (fail-if-error (run (cvs -d ,scala-cvs-repository-dir - checkout - -P - ,scala-cvs-module-name))) - (with-cwd scala-cvs-module-name - (start-section "Creating link(s)") - (create-symlink source-private-makefile private-makefile) - (start-section "Compiling Scala compiler") - (fail-if-error (run (make))) - (start-section "Testing Scala compiler (1)") - (fail-if-error (run (make test))) - (start-section "Testing Scala compiler (2)") - (fail-if-error - (run (./objects/main/bin/scalatest --color=none - --show-log))) - (start-section "Creating nightly distribution") - (run (rm -rf ,nightly-build-dir)) - (create-directory nightly-build-dir) - (fail-if-error (run (make distrib) (< /dev/null))) - #t))) - (lambda () - (start-section "Ending time") - (display (format-date "~Y-~m-~d ~H:~M ~Z\n" (date)))))) - -(define (send-warning-mail log-file-name link-name) - (send-mail - notify-email - `(("Subject" . "Failure of nightly scala test") - ("To" . ,notify-email) - ("Reply-To" . ,notify-email)) - (string-append - "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))) - -(define (send-mail to headers body) - (let ((mail-port (make-string-output-port))) - (for-each (lambda (name/contents) - (format mail-port "~a: ~a\n" - (car name/contents) - (cdr name/contents))) - headers) - (newline mail-port) - (write-string body mail-port) - (newline mail-port) - (run (sendmail "-i" ,to) - (<< ,(string-output-port-output mail-port))))) - -;;; Local Variables: -;;; mode:scheme -;;; End: diff --git a/test/scala2-nightly-test.scm b/test/scala2-nightly-test.scm new file mode 100755 index 0000000000..9928601ac6 --- /dev/null +++ b/test/scala2-nightly-test.scm @@ -0,0 +1,130 @@ +#!/bin/sh +exec scsh -e main -s "$0" "$@" +!# + +;; Script to perform the nightly test/build of Scala. +;; +;; Always make sure that the latest version of this file is copied to +;; ~scalatest/bin/scala-nightly-test.scm +;; +;; $Id$ + +;; Makefile.private to use for the build. +(define private-makefile "Makefile.private") +(define source-private-makefile + (expand-file-name (string-append "~scalatest/support/" private-makefile))) + +;; CVS repository containing the Scala compiler. +(define scala-cvs-repository-dir + (expand-file-name "~cvslamp/repositories/scala")) +;; CVS module containing the compiler. +(define scala-cvs-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 "Michel.Schinz@epfl.ch") ; DEBUG + +;; Directory in which the distribution should be built. +(define nightly-build-dir + (expand-file-name "~linuxsoft/archives/scala/nightly")) + +;; End of configuration section. + +(define (main cmd-line) + (let ((prog (car cmd-line)) + (args (cdr cmd-line))) + (if (= 1 (length args)) + (scala-test (first args)) + (display-usage-and-exit prog)))) + +(define (display-usage-and-exit prog) + (format #t "Usage: ~a \n" prog) + (exit 1)) + +(define (get-public-link file) + (temp-file-iterate (lambda (link) (create-symlink file link) link) + (expand-file-name "~/public_html/log-~a.txt"))) + +(define (get-checkout-dir base-dir date) + (expand-file-name (format-date "~Y-~m-~d" date) base-dir)) + +(define (start-section title) + (format #t "\n* ~a\n\n" title)) + +(define (scala-test base-dir) + (let* ((checkout-dir (get-checkout-dir base-dir (date))) + (log-file (expand-file-name "log" checkout-dir))) + (create-directory checkout-dir) + (call-with-output-file log-file + (lambda (log-port) + (with-current-output-port log-port + (with-current-error-port log-port + (stdports->stdio) + (with-cwd checkout-dir + (if (not (call-with-current-continuation scala-do-test)) + (let ((link (get-public-link log-file))) + (send-warning-mail log-file + (file-name-nondirectory link))))))))))) + +(define (scala-do-test return) + (dynamic-wind + (lambda () + (display "In Emacs, read this file in -*- Outline -*- mode\n") + (start-section "Starting time") + (display (format-date "~Y-~m-~d ~H:~M ~Z\n" (date)))) + (lambda () + (let ((fail-if-error (lambda (code) (if (not (zero? code)) + (return #f))))) + (start-section "Checking out Scala module") + (fail-if-error (run (cvs -d ,scala-cvs-repository-dir + checkout + -P + ,scala-cvs-module-name))) + (with-cwd scala-cvs-module-name + (start-section "Creating link(s)") + (create-symlink source-private-makefile private-makefile) + (start-section "Compiling Scala compiler") + (fail-if-error (run (make))) + (start-section "Testing Scala compiler (1)") + (fail-if-error (run (make test))) + (start-section "Testing Scala compiler (2)") + (fail-if-error + (run (./objects/main/bin/scalatest --color=none + --show-log))) + (start-section "Creating nightly distribution") + (run (rm -rf ,nightly-build-dir)) + (create-directory nightly-build-dir) + (fail-if-error (run (make distrib) (< /dev/null))) + #t))) + (lambda () + (start-section "Ending time") + (display (format-date "~Y-~m-~d ~H:~M ~Z\n" (date)))))) + +(define (send-warning-mail log-file-name link-name) + (send-mail + notify-email + `(("Subject" . "Failure of nightly scala test") + ("To" . ,notify-email) + ("Reply-To" . ,notify-email)) + (string-append + "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))) + +(define (send-mail to headers body) + (let ((mail-port (make-string-output-port))) + (for-each (lambda (name/contents) + (format mail-port "~a: ~a\n" + (car name/contents) + (cdr name/contents))) + headers) + (newline mail-port) + (write-string body mail-port) + (newline mail-port) + (run (sendmail "-i" ,to) + (<< ,(string-output-port-output mail-port))))) + +;;; Local Variables: +;;; mode:scheme +;;; End: -- cgit v1.2.3