db7fd8486570 v1.0.0

Fix the tests in ABCL
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sat, 23 Feb 2019 14:34:17 -0500
parents 3f64e658c74c
children 065d51da89c8
branches/tags v1.0.0
files .ffignore Makefile cl-netpbm.asd docs/01-installation.markdown test/tests.lisp

Changes

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/.ffignore	Sat Feb 23 14:34:17 2019 -0500
@@ -0,0 +1,1 @@
+docs/build
--- a/Makefile	Sat Feb 23 14:24:48 2019 -0500
+++ b/Makefile	Sat Feb 23 14:34:17 2019 -0500
@@ -24,7 +24,7 @@
 
 test-ecl: vendor
 	$(heading_printer) roman 'ECL'
-	ecl --load test/run.lisp
+	ecl -load test/run.lisp
 
 test-abcl: vendor
 	$(heading_printer) broadway 'ABCL'
--- a/cl-netpbm.asd	Sat Feb 23 14:24:48 2019 -0500
+++ b/cl-netpbm.asd	Sat Feb 23 14:34:17 2019 -0500
@@ -25,7 +25,7 @@
   :author "Steve Losh <steve@stevelosh.com>"
   :license "MIT/X11"
 
-  :depends-on (:cl-netpbm :1am)
+  :depends-on (:cl-netpbm :1am :external-program)
 
   :serial t
   :components ((:file "package.test")
--- a/docs/01-installation.markdown	Sat Feb 23 14:24:48 2019 -0500
+++ b/docs/01-installation.markdown	Sat Feb 23 14:34:17 2019 -0500
@@ -9,7 +9,7 @@
 dependencies.
 
 The `cl-netpbm/test` system provides the unit tests.  It depends on `1am` and
-`uiop`, and also requires [ImageMagick][im] for its fuzz testing.
+`external-program`, and also requires [ImageMagick][im] for its fuzz testing.
 
 [local]: https://www.quicklisp.org/beta/faq.html#local-project
 [im]: https://www.imagemagick.org/
--- a/test/tests.lisp	Sat Feb 23 14:24:48 2019 -0500
+++ b/test/tests.lisp	Sat Feb 23 14:34:17 2019 -0500
@@ -151,12 +151,13 @@
                      :if-exists :supersede
                      :format original-format
                      :encoding :ascii)
-      (uiop:run-program (list "convert" "-format" (ecase original-format
-                                                    (:ppm "ppm")
-                                                    (:pgm "pgm")
-                                                    (:pbm "pbm"))
-                              "test/data/fuzz.convert.in"
-                              "test/data/fuzz.convert.out"))
+      (external-program:run "convert"
+                            (list "-format" (ecase original-format
+                                              (:ppm "ppm")
+                                              (:pgm "pgm")
+                                              (:pbm "pbm"))
+                                  "test/data/fuzz.convert.in"
+                                  "test/data/fuzz.convert.out"))
       (multiple-value-bind (new new-format)
           (read-from-file "test/data/fuzz.convert.out")
         (is (eql original-format new-format))