Changeset 15332


Ignore:
Timestamp:
06/26/20 13:23:35 (3 years ago)
Author:
Mark Evenson
Message:

Revisions for the long neglected ABCL/TEST/LISP suite

Restore loading under SBCL and CCL.

FIXME: package-local-nicknames-tests only runs once in the same
process, causing a mysterious failure on the second time.

Location:
trunk/abcl
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/abcl.asd

    r15312 r15332  
    4444                         (:file "bugs" :depends-on
    4545                                ("file-system-tests"))
     46                         #+abcl
    4647                         (:file "wild-pathnames"
    4748                                :depends-on ("file-system-tests"))
     
    5253                         #+abcl
    5354                         (:file "java")
    54                          #+abcl
    5555                         (:file "pathname-tests" :depends-on
    5656                                ("utilities"))
  • trunk/abcl/test/lisp/abcl/clos-tests.lisp

    r14587 r15332  
    2222
    2323(in-package #:abcl.test.lisp)
    24 
    2524
    2625
     
    246245;; From SBCL: method combination (long form) with arguments
    247246
     247#-ccl ;; "The value (ABCL.TEST.LISP::EXTRA :EXTRA) is not of the expected type SYMBOL."
    248248(define-method-combination dmc-test.5 ()
    249249  ((method-list *))
     
    251251  `(progn ,@(mapcar (lambda (method) `(call-method ,method)) method-list)))
    252252
     253#-ccl ;; "The value (ABCL.TEST.LISP::EXTRA :EXTRA) is not of the expected type SYMBOL."
    253254(defgeneric dmc-test-mc.5 (p1 p2 s)
    254255  (:method-combination dmc-test.5)
     
    454455  T)
    455456
     457#-ccl ;; "The value (ABCL.TEST.LISP::A :DEFAULT) is not of the expected type SYMBOL."
    456458(define-method-combination dmc-test-args-with-optional.2 ()
    457459  ((methods *))
     
    461463                 ,a)))
    462464
     465#-ccl ;; "The value (ABCL.TEST.LISP::A :DEFAULT) is not of the expected type SYMBOL."
    463466(defgeneric dmc-test-args-with-optional.2 (x &optional b)
    464467  (:method-combination dmc-test-args-with-optional.2)
     
    475478  T)
    476479
     480#-ccl ;; The value (ABCL.TEST.LISP::A :DEFAULT) is not of the expected type SYMBOL.
    477481(define-method-combination dmc-test-args-with-optional.3 ()
    478482  ((methods *))
     
    482486                 ,a)))
    483487
     488#-ccl ;; The value (ABCL.TEST.LISP::A :DEFAULT) is not of the expected type SYMBOL.
    484489(defgeneric dmc-test-args-with-optional.3 (x)
    485490  (:method-combination dmc-test-args-with-optional.3)
    486491  (:method (x) (progn x)))
    487492
     493#-ccl ;; The value (ABCL.TEST.LISP::A :DEFAULT) is not of the expected type SYMBOL.
    488494(deftest dmc-test-args-with-optional.3
    489495    :documentation "TODO"
     
    491497  nil)
    492498
    493 
     499#-ccl ;; The value (ABCL.TEST.LISP::A :DEFAULT ABCL.TEST.LISP::SUP-P) is not of the expected type SYMBOL.
    494500(define-method-combination dmc-test-args-with-optional.4 ()
    495501  ((methods ()))
     
    499505          (values ,a ,sup-p)))
    500506
     507#-ccl
    501508(defgeneric dmc-test-args-with-optional.4a (x &optional b)
    502509  (:method-combination dmc-test-args-with-optional.4)
    503510  (:method (x &optional b) (progn x b)))
    504511
     512#-ccl
    505513(deftest dmc-test-args-with-optional.4a
    506514    (dmc-test-args-with-optional.4a T)
     
    508516  nil)
    509517
     518#-ccl
    510519(deftest dmc-test-args-with-optional.4b
    511520    (dmc-test-args-with-optional.4a T T)
     
    513522  T)
    514523
     524#-ccl
    515525(defgeneric dmc-test-args-with-optional.4c (x)
    516526  (:method-combination dmc-test-args-with-optional.4)
    517527  (:method (x) (progn x)))
    518528
     529#-ccl
    519530(deftest dmc-test-args-with-optional.4c
    520531    :documentation "TODO"
  • trunk/abcl/test/lisp/abcl/compiler-tests.lisp

    r14245 r15332  
    2323(in-package #:abcl.test.lisp)
    2424
    25 (defconstant most-positive-java-long 9223372036854775807)
    26 (defconstant most-negative-java-long -9223372036854775808)
     25(eval-when (:compile-toplevel :load-toplevel :execute)
     26  (defvar most-positive-java-long 9223372036854775807)
     27  (defvar most-negative-java-long -9223372036854775808))
    2728
    2829#+abcl
     
    105106#+allegro (pushnew 'plus.3 *expected-failures*)
    106107
    107 #-clisp
     108#+abcl
    108109(define-compiler-test plus.4
    109110  (lambda (x y)
  • trunk/abcl/test/lisp/abcl/package-local-nicknames-tests.lisp

    r14431 r15332  
    1919
    2020;;; Most of these tests are adapted from the SBCL test suite.
     21
     22;;;; FIXME:  re-running these tests in the same process fails the second time due to interactions
     23;;;          with the problems with DEFPACKAGE "only being run once"
    2124
    2225(in-package #:abcl.test.lisp)
  • trunk/abcl/test/lisp/abcl/package.lisp

    r14912 r15332  
    11(defpackage #:abcl.test.lisp
    22  (:use #:cl #:abcl-rt)
    3   (:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
     3  (:nicknames "ABCL-TEST-LISP" "ABCL-TEST" "ABCL/TEST/LISP")
    44  (:export
    55   #:run
  • trunk/abcl/test/lisp/abcl/pathname-tests.lisp

    r15032 r15332  
    563563
    564564;; If the prefix isn't a defined logical host, it's not a logical pathname.
    565 #-(or cmu (and clisp windows))
     565#-(or ccl cmu (and clisp windows))
    566566;; CMUCL parses this as (:ABSOLUTE #<SEARCH-LIST foo>) "bar.baz" "42".
    567567;; CLISP signals a parse error reading #p"foo:bar.baz.42".
     
    13351335(pushnew 'sbcl.26 *expected-failures*)
    13361336
    1337 (setf (logical-pathname-translations "scratch")
    1338       '(("**;*.*.*" "/usr/local/doc/**/*")))
     1337(eval-when (:compile-toplevel :load-toplevel :execute)
     1338  (setf (logical-pathname-translations "scratch")
     1339        '(("**;*.*.*" "/usr/local/doc/**/*"))))
    13391340
    13401341;; Trivial merge.
  • trunk/abcl/test/lisp/abcl/wild-pathnames.lisp

    r14621 r15332  
    5151
    5252(deftest wild-pathnames.2
    53     (equal
    54      (first (with-test-directories
    55                 (directory (make-pathname :directory (pathname-directory *temp-directory-root*)
    56                                           :name :wild :type "ext"
    57                                           :version :newest))))
    58      (merge-pathnames *temp-directory-root* "foo.ext"))
     53    (check-namestring
     54     (namestring (first (with-test-directories
     55                            (directory (make-pathname :directory (pathname-directory *temp-directory-root*)
     56                                                      :name :wild :type "ext"
     57                                                      :version :newest)))))
     58     (namestring (merge-pathnames *temp-directory-root* "foo.ext")))
    5959  t)
    6060
Note: See TracChangeset for help on using the changeset viewer.