File: clocc-ansi.test.sh

package info (click to toggle)
sbcl 1%3A0.9.16.0-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 19,960 kB
  • ctags: 16,537
  • sloc: lisp: 231,164; ansic: 19,558; asm: 2,539; sh: 1,925; makefile: 308
file content (72 lines) | stat: -rw-r--r-- 2,355 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#!/bin/sh

# Run clocc's ansi-test suite on SBCL (if you set the appropriate
# environment variable so that the test suite, a separate piece of
# software, can be found).
#
# This is implemented as a shell script because ansi-test likes to
# report its errors on standard output and it's convenient to use the
# *nix shell tools to extract them.

# clocc = Common Lisp Open Code Collection, available on
#         <http://clocc.sourceforge.net/>
# ansi-test = one of the subdirectories in clocc, containing lotso tests
#             for ANSI compliance (and the occasional test for CLISP
#             compatibility too:-)

# This software is part of the SBCL system. See the README file for
# more information.
#
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.

# Remember where we came from so we can find local support files later.
originalpwd=`pwd`

# Find clocc ansi-test (or just punt, returning success).
if [ "$SBCL_CLOCC_ANSI_TEST" = "" ] ; then
    echo //punting clocc ansi-test because SBCL_CLOCC_ANSI_TEST is undefined
    exit 104
else
    echo //going on to run clocc ansi-test in $SBCL_CLOCC_ANSI_TEST
    cd $SBCL_CLOCC_ANSI_TEST
fi

# The condition system is for the weak.
tmpprefix="${TMPDIR:-/tmp}/sbcl-clocc-ansi-test-$$"
rawfilename="$tmpprefix-raw.tmp"
bugsfilename="$tmpprefix-bugs.tmp"

# Go SBCL go.
$SBCL <<EOF >$rawfilename
(in-package :cl-user)
;;; Tell ansi-test about our known bugs.
(load "$originalpwd/clocc-ansi-test-known-bugs.lisp")
;;; Actually run ansi-test.
(load "tests.lisp")
;;; Return a special status code to show that we reached the end
;;; normally instead of taking a dirt nap.
(print "back from ansi-test tests.lisp")
(sb-ext:quit :unix-status 52)
EOF
if [ $? != 52 ]; then
    echo "failure: SBCL didn't finish running clocc ansi-test."
    exit 1
fi

# Klingon programmers handle errors by recognizing error strings
# in standard output.
if egrep 'ERROR!!' $rawfilename > $bugsfilename; then
    # new bugs, better luck next time
    cat $bugsfilename
    exit 1
else
    # only known bugs, happy happy joy joy
    rm $rawfilename $bugsfilename
    exit 104
fi