source: trunk/abcl/tools/check.lisp @ 13712

Last change on this file since 13712 was 13712, checked in by Mark Evenson, 10 years ago

Correctly commit 'tools/check.lisp' not its generated wrapper.

Use GENERATE-BISECT-WRAPPER to generate the check.sh wrapper. This
should be generalized to the Windows 'check.bat' equivalent.

File size: 1.3 KB
Line 
1;;;; Run a bisection tool to determine where a test fails
2;;; This file is in the public domain.
3;;; Copyright (C) 2012 by Mark <evenson.not.org@gmail.com>
4(in-package :cl-user)
5
6(defun generate-bisect-wrapper ()
7  "Create 'check.sh', a script suitable for use with hg bisect.
8
9  To use, adjust the contents of the *TESTS*
10
11   hg clone https://evenson.not.org@code.google.com/p/abcl-dynamic-install/ ./abcl
12&& cd abcl
13&& hg bisect --reset && hg bisect --good && hg --command sh ./check.sh
14"
15  (let ((check.sh #p"check.sh"))
16    (unless (probe-file check.sh)
17      (with-open-file (output check.sh :direction :output)
18        (format output "#!/bin/sh~A~%"
19                "ant && ./abcl --noinit --batch --eval \"(load \\\"check.lisp\\\"")))))
20
21;;; XXX separate out runtime yucky top-level forms
22(require :asdf)
23(require :abcl-contrib)
24(require :asdf-install)  ;;; to push "~/.asdf-install-dir/systems/" into ASDF:*CENTRAL-REGISTRY*
25
26
27
28;;; The ASDF definition for ANSI-COMPILED contains the ANSI-TESTS package.
29;;; The CL-TEST package is defined by the GCL ANSI tests.
30(eval-when (:load-toplevel :execute)
31  (asdf:load-system :abcl)
32  (asdf:load-system :ansi-compiled)
33  (ansi-tests:load-tests)) ;; TODO figure out how to not load all the tests
34
35(defparameter *test*
36  'CL-TEST::SYNTAX.SHARP-BACKSLASH.7)
37
38(unless (rt:do-test *test*)
39  (error "~A failed" *test*))
40
41
42
Note: See TracBrowser for help on using the repository browser.