Removed outdated test infastructure.

1 files changed, 0 insertions, 137 deletions

diff --git a/test/scala2-nightly-test.scm b/test/scala2-nightly-test.scm
deleted file mode 100755
index f3c68341f0..0000000000
--- a/test/scala2-nightly-test.scm
+++ /dev/null
@@ -1,137 +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/scala2-nightly-test.scm
-;;
-;; $Id$
-
-;; SVN repository containing the Scala compiler.
-(define scala-svn-repository-dir
-  "http://lampsvn.epfl.ch/svn-repos/scala/scala/trunk")
-(define plugin-svn-repository-dir
-  "http://lampsvn.epfl.ch/svn-repos/scala/plugin")
-
-;; SVN module containing the compiler.
-(define scala-svn-module-name "scala")
-(define plugin-svn-module-name "plugin")
-
-;; E-mail address to which the failure notification should be sent.
-(define notify-email "scala-reports@epfl.ch")
-;;(define notify-email "stephane.micheloud@epfl.ch") ; DEBUG
-;;(define notify-email "lex.spoon@epfl.ch") ; DEBUG
-;;(define notify-email "gilles.dubochet@epfl.ch") ; DEBUG
-
-;; Directory in which the distribution should be built.
-(define nightly-build-dir
-;;  (expand-file-name "~lex/scala/nightly"))  ; DEBUG
-    (expand-file-name "/home/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 <result-dir>\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-scala2-~a.txt")))
-
-(define (get-checkout-dir base-dir date)
-  (expand-file-name (string-append (format-date "~Y-~m-~d" date) "-scala2") 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-scala2" 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 (svn co ,scala-svn-repository-dir
-                                   ,scala-svn-module-name)))
-          (with-cwd scala-svn-module-name
-                    (start-section "Creating small Scala distribution")
-                    (fail-if-error (run (ant pack)))
-                    (run (ant msil)))
-
-          (start-section "Checking out Plugin module")
-          (fail-if-error (run (svn co ,plugin-svn-repository-dir
-                                   ,plugin-svn-module-name)))
-
-          (with-cwd plugin-svn-module-name
-                    (start-section "Creating Scala Eclipse plugin")
-                    (fail-if-error (run (ant dist))))
-
-          (with-cwd scala-svn-module-name
-                    (start-section "Testing Scala compiler")
-                    (fail-if-error
-                      (run (./test/scalatest --color=none
-                                             --show-log))))
-          #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 2 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"\n"
-    "\n"
-    (run/string (fgrep "[FAILED]" ,log-file-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 (/usr/sbin/sendmail "-i" ,to)
-         (<< ,(string-output-port-output mail-port)))))
-
-;;; Local Variables:
-;;; mode:scheme
-;;; End: