Commit 4f6ce505 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Add SCL to test framework. Tweaked a few tests. Now works! 

Fix link in webpage (lp#614806).
Include SCL and ABCL in my testing routine.
parent cf5fa4a8

GNUmakefile

+2 −2
Changes for GNUmakefile: 2 added lines, 2 removed lines.
Original line number Diff line number Diff line
@@ -7,8 +7,8 @@ clnet_home := "/project/asdf/public_html/" 


sourceDirectory := $(shell pwd)



lisps ?= allegro ccl clisp ecl sbcl

## not tested by me: abcl allegromodern cmucl lisworks

lisps ?= allegro ccl clisp ecl sbcl scl abcl

## not tested by me: allegromodern cmucl lisworks

## FAIL: gclcvs

## maybe supported by asdf, not supported yet by our tests: cormancl mcl scl

debian/control

+4 −7
Changes for debian/control: 4 added lines, 7 removed lines.
Original line number Diff line number Diff line
@@ -18,10 +18,7 @@ Conflicts: sbcl-common (<= 1:0.9.13.0-2), common-lisp-controller (<= 7.0) 
Breaks: common-lisp-controller (<= 7.0)

Depends: ${misc:Depends}

Description: Another System Definition Facility

 asdf provides a "make" type functions for Common Lisp packages. It

 provides compilation and loading features for complex Lisp systems

 with multiple modules and files. It is similar in concept to, but

 with features different from, "defsystem" which is included in the

 common-lisp-controller package. Unlike defsystem3 in CLC, asdf is

 object-oriented and extensible.

 asdf provides a "make" type functions for Common Lisp software.

 It drives compilation and dynamic loading for complex Lisp systems

 with multiple modules and files, and is the de facto standard used

 by free software written in Common Lisp.

doc/index.html

+1 −1
Changes for doc/index.html: 1 added line, 1 removed line.
Original line number Diff line number Diff line
@@ -50,7 +50,7 @@ 
          <li><a href="asdf.html">as one HTML file</a></li>

          <li><a href="asdf/">split into one HTML file per section</a></li>

          <li><a href="asdf.pdf">as a PDF document</a></li>

          <li><a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;a=blob;f=asdf.texinfo">as texinfo source</a></li>

          <li><a href="http://common-lisp.net/gitweb?p=projects/asdf/asdf.git;a=blob;f=doc/asdf.texinfo">as texinfo source</a></li>

        </ul>



        <a id="downloads"></a>

test/asdf-pathname-test.script

+1 −1
Changes for test/asdf-pathname-test.script: 1 added line, 1 removed line.
Original line number Diff line number Diff line
@@ -158,7 +158,7 @@ 
                                    year month day hour minute second

                                    (lisp-implementation-type)

                                    (lisp-implementation-version)

                                    asdf::*asdf-version*)))

                                    (asdf:asdf-version))))

                (format result-stream ";;; ~a~%~%" header)

                (format *trace-output* "~%;;; ~a~%~%" header)))

            (sleep 1)

test/run-tests.sh

+22 −17
Changes for test/run-tests.sh: 22 added lines, 17 removed lines.
Original line number Diff line number Diff line
@@ -105,16 +105,10 @@ fi 


command= flags= nodebug= eval=

case "$lisp" in

  sbcl)

    command="${SBCL:-sbcl}"

    flags="--noinform --userinit /dev/null --sysinit /dev/null"

    nodebug="--disable-debugger"

  abcl)

    command="${ABCL:-abcl}"

    flags="--noinit --noinform"

    eval="--eval" ;;

  clisp)

    command="${CLISP:-clisp}"

    flags="-norc -ansi -I "

    nodebug="-on-error exit"

    eval="-x" ;;

  allegro)

    command="${ALLEGRO:-alisp}"

    flags="-q"
@@ -130,6 +124,11 @@ case "$lisp" in 
    flags="--no-init --quiet"

    nodebug="--batch"

    eval="--eval" ;;

  clisp)

    command="${CLISP:-clisp}"

    flags="-norc -ansi -I "

    nodebug="-on-error exit"

    eval="-x" ;;

  cmucl)

    command="${CMUCL:-lisp}"

    flags="-noinit"
@@ -139,6 +138,11 @@ case "$lisp" in 
    command="${ECL:-ecl}"

    flags="-norc"

    eval="-eval" ;;

  gclcvs)

    export GCL_ANSI=t

    command="${GCL:-gclcvs}"

    flags="-batch"

    eval="-eval" ;;

  lispworks)

    command="${LISPWORKS:-lispworks}"

    # If you have a licensed copy of lispworks,
@@ -147,15 +151,16 @@ case "$lisp" in 
    # ./lispworks-6-0-0-x86-linux -siteinit - -init - -build /tmp/build.lisp

    flags="-siteinit - -init -"

    eval="-eval" ;;

  gclcvs)

    export GCL_ANSI=t

    command="${GCL:-gclcvs}"

    flags="-batch"

    eval="-eval" ;;

  abcl)

    command="${ABCL:-abcl}"

    flags="--noinit --noinform"

  sbcl)

    command="${SBCL:-sbcl}"

    flags="--noinform --userinit /dev/null --sysinit /dev/null"

    nodebug="--disable-debugger"

    eval="--eval" ;;

  scl)

    command="${SCL:-scl}"

    flags="-noinit"

    nodebug="-batch"

    eval="-eval" ;;

  *)

    echo "Unsupported lisp: $1" >&2

    echo "Please add support to run-tests.sh" >&2