Replace cl-test-more by prove.

fukamachi · Jan 28, 2015 · d6c3a76 · d6c3a76
1 parent 0716b33
commit d6c3a76
Show file tree

Hide file tree

Showing 8 changed files with 10 additions and 10 deletions.
diff --git a/sxql-test.asd b/sxql-test.asd
@@ -12,7 +12,7 @@
   :author "Eitaro Fukamachi"
   :license "BSD 3-Clause"
   :depends-on (:sxql
-               :cl-test-more)
+               :prove)
   :components ((:module "t"
                 :serial t
                 :components

diff --git a/t/clause.lisp b/t/clause.lisp
@@ -1,7 +1,7 @@
 (in-package :cl-user)
 (defpackage t.sxql.clause
   (:use :cl
-        :cl-test-more
+        :prove
         :sxql.sql-type
         :sxql.operator
         :sxql.clause

diff --git a/t/composed-statement.lisp b/t/composed-statement.lisp
@@ -3,7 +3,7 @@
   (:use :cl
         :sxql
         :sxql.composed-statement
-        :cl-test-more))
+        :prove))
 (in-package :t.sxql.composed-statement)
 
 (plan 6)

diff --git a/t/operator.lisp b/t/operator.lisp
@@ -4,7 +4,7 @@
         :sxql
         :sxql.sql-type
         :sxql.operator
-        :cl-test-more)
+        :prove)
   (:shadowing-import-from :t.sxql.prepare
                           :is-error))
 (in-package :t.sxql.operator)

diff --git a/t/prepare.lisp b/t/prepare.lisp
@@ -1,14 +1,14 @@
 (in-package :cl-user)
 (defpackage t.sxql.prepare
   (:use :cl
-        :cl-test-more)
+        :prove)
   (:shadow :is-error)
   (:export :is-error))
 (in-package :t.sxql.prepare)
 
 (defmacro is-error (form condition &optional desc)
-  #+ccl `(cl-test-more:is-error ,form ,condition ,desc)
+  #+ccl `(prove:is-error ,form ,condition ,desc)
   #-ccl
   (if (eq condition 'type-error)
       '(skip 1 "Testing type-error isn't supported")
-      `(cl-test-more:is-error ,form ,condition ,desc)))
+      `(prove:is-error ,form ,condition ,desc)))
diff --git a/t/sql-type.lisp b/t/sql-type.lisp
@@ -3,7 +3,7 @@
   (:use :cl
         :sxql
         :sxql.sql-type
-        :cl-test-more)
+        :prove)
   (:shadowing-import-from :t.sxql.prepare
                           :is-error))
 (in-package :t.sxql.sql-type)

diff --git a/t/statement.lisp b/t/statement.lisp
@@ -6,7 +6,7 @@
         :sxql.operator
         :sxql.clause
         :sxql.statement
-        :cl-test-more)
+        :prove)
   (:shadowing-import-from :t.sxql.prepare
                           :is-error))
 (in-package :t.sxql.statement)

diff --git a/t/sxql.lisp b/t/sxql.lisp
@@ -2,7 +2,7 @@
 (defpackage t.sxql
   (:use :cl
         :sxql
-        :cl-test-more)
+        :prove)
   (:import-from :sxql.sql-type
                 :yield)
   (:shadowing-import-from :t.sxql.prepare