From 533a987f3eabb8c3debdd80dd70c8a51544fe9ee Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Fri, 28 Aug 2020 15:00:53 -0600
Subject: [PATCH] Use newer ASDF test-op symantics

---
 hyperobject-tests.asd | 24 ------------------------
 hyperobject.asd       | 16 ++++++++++------
 2 files changed, 10 insertions(+), 30 deletions(-)
 delete mode 100644 hyperobject-tests.asd

diff --git a/hyperobject-tests.asd b/hyperobject-tests.asd
deleted file mode 100644
index 054db1b..0000000
--- a/hyperobject-tests.asd
+++ /dev/null
@@ -1,24 +0,0 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; *************************************************************************
-;;;; FILE IDENTIFICATION
-;;;;
-;;;; Name:          hyperobject-tests.asd
-;;;; Purpose:       ASDF system definitionf for hyperobject testing package
-;;;; Author:        Kevin M. Rosenberg
-;;;; Date Started:  Apr 2003
-;;;;
-;;;; $Id$
-;;;; *************************************************************************
-
-(defpackage #:hyperobject-tests-system
-  (:use #:asdf #:cl))
-(in-package #:hyperobject-tests-system)
-
-(defsystem hyperobject-tests
-    :depends-on (:rt :hyperobject)
-    :components ((:file "tests")))
-
-(defmethod perform ((o test-op) (c (eql (find-system :hyperobject-tests))))
-  (or (funcall (intern (symbol-name '#:do-tests)
-		       (find-package '#:regression-test)))
-      (error "test-op failed")))
diff --git a/hyperobject.asd b/hyperobject.asd
index 7848baf..f5f7916 100644
--- a/hyperobject.asd
+++ b/hyperobject.asd
@@ -16,10 +16,10 @@
 (defsystem hyperobject
   :name "hyperobject"
   :author "Kevin M. Rosenberg <kevin@rosenberg.net>"
-  :version "2.7.x"
+  :version "2.7.2"
   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
   :licence "BSD-like License"
-
+  :depends-on (:kmrcl :clsql)
   :components
   ((:file "package")
    (:file "metaclass" :depends-on ("package"))
@@ -30,8 +30,12 @@
    (:file "views" :depends-on ("mop"))
    (:file "base-class" :depends-on ("views" "sql" "rules"))
    )
-  :depends-on (:kmrcl :clsql))
+  :in-order-to ((test-op (test-op "hyperobject/test"))))
 
-(defmethod perform ((o test-op) (c (eql (find-system :hyperobject))))
-  (operate 'load-op 'hyperobject-tests)
-  (operate 'test-op 'hyperobject-tests :force t))
+(defsystem hyperobject/test
+    :depends-on (:rt :hyperobject)
+    :components ((:file "tests"))
+    :perform (test-op (o s)
+                      (or (funcall (intern (symbol-name '#:do-tests)
+                                           (find-package '#:regression-test)))
+                          (error "test-op failed"))))
-- 
2.34.1