From 87ca5665db50f2c2fb58bdf610a3cb663e6e58c8 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 21 Jan 2013 21:09:27 +0100 Subject: [PATCH] Nicer PERFORM of TEST-OP --- src/iolib.asd | 5 +++-- tests/iolib-tests.asd | 8 ++++---- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/src/iolib.asd b/src/iolib.asd index 8151049..5d3dd0d 100644 --- a/src/iolib.asd +++ b/src/iolib.asd @@ -13,5 +13,6 @@ :pathname "iolib/" :components ((:file "pkgdcl"))) -(defmethod perform ((o test-op) (c (eql (find-system :iolib)))) - (oos 'test-op :iolib-tests)) +(defmethod asdf:perform ((o asdf:test-op) + (c (eql (asdf:find-system :iolib)))) + (asdf:test-system :iolib-tests)) diff --git a/tests/iolib-tests.asd b/tests/iolib-tests.asd index c954c4e..eb5034c 100644 --- a/tests/iolib-tests.asd +++ b/tests/iolib-tests.asd @@ -19,7 +19,7 @@ (:file "streams" :depends-on ("pkgdcl" "defsuites")) (:file "sockets" :depends-on ("pkgdcl" "defsuites")))) -(defmethod perform ((o test-op) - (c (eql (find-system :iolib-tests)))) - (operate 'load-op :iolib-tests) - (funcall (intern (symbol-name '#:run!) '#:5am) :iolib)) +(defmethod asdf:perform ((o asdf:test-op) + (c (eql (asdf:find-system :iolib-tests)))) + (asdf:load-system :iolib-tests) + (asdf/package:symbol-call :5am :run! :iolib)) -- 2.11.4.GIT