Commit 4b1102ed authored by Karsten Poeck's avatar Karsten Poeck Committed by Robert Goldman
Browse files

Adapt clasp expected errors (we have 4 less errors in clasp)

parent b4815f7c
......@@ -118,7 +118,7 @@
:encoding :latin-1
:components ((:file "lambda"))))
#-ecl-bytecmp
(with-expected-failure (#+clasp "Clasp fails here")
(with-expected-failure ()
(with-encoding-test (:latin-1 :op load-op)
(def-test-system :test-system-encoding-l1-load-op
:encoding :latin-1
......
......@@ -337,12 +337,12 @@
(directory-b-no-slash (subpathname *build-directory* "deleteme/a/b")))
(assert (eq 'with-current-directory 'uiop:with-current-directory))
(with-current-directory (directory-a-no-slash)
(with-expected-failure (#+clasp T)
(with-expected-failure ()
(assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/1.x")))))
(with-current-directory (directory-b-no-slash)
(with-expected-failure (#+clasp T)
(with-expected-failure ()
(assert-pathnames-equal (directory-files (getcwd)) (list (subpathname *build-directory* "deleteme/a/b/2"))))
(with-expected-failure (#+clasp T)
(with-expected-failure ()
(assert-pathnames-equal
(sort (subdirectories (getcwd)) #'string< :key #'(lambda (x) (car (last (pathname-directory x)))))
(list (subpathname *build-directory* "deleteme/a/b/c/")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment