Remove fare-quasiquote from tests.
authorFrancois-Rene Rideau <tunes@google.com>
Sat, 3 Nov 2012 21:44:23 +0000 (17:44 -0400)
committerFrancois-Rene Rideau <tunes@google.com>
Sat, 3 Nov 2012 21:44:23 +0000 (17:44 -0400)
fare-matcher.asd
test/fare-matcher-test.asd
test/matcher.lisp
test/packages.lisp
test/quasiquote.lisp [deleted file]

index 2f2c3fe..fddaab4 100644 (file)
@@ -1,5 +1,7 @@
 ;;; -*- Lisp -*-
 
+(in-package :asdf)
+
 (defsystem :fare-matcher
   :description "Lisp2-style Erlang/ML-like Extensible Pattern-Matcher for CL"
   :long-description "fare-matcher allows you to do pattern matching as in ML,
@@ -12,3 +14,8 @@ and to define your own extensions."
    ;;#-gcl ; 2.7.0-64.1 cannot defgeneric in a eval-now
    (:file "clos-match")
    (:file "mrd-extensions")))
+
+(defmethod perform ((op test-op) (sys (eql (find-system :fare-matcher))))
+  (format t "~&Testing fare-matcher")
+  (load-system :fare-matcher-test)
+  (funcall (find-symbol* :fare-matcher-test :fare-matcher-test)))
index 592677a..4e2e081 100644 (file)
@@ -5,5 +5,4 @@
   :depends-on (:fare-matcher :hu.dwim.stefil)
   :serial t
   :components ((:file "packages")
-              (:file "matcher")
-               (:file "quasiquote")))
+              (:file "matcher")))
index 5367e61..7b4f469 100644 (file)
@@ -1,3 +1,7 @@
 #+xcvb (module (:depends-on ("packages")))
 
 (in-package :fare-matcher-test)
+
+(defsuite* (fare-matcher-test
+            :in root-suite
+            :documentation "All fare-matcher tests"))
index 18cdfc8..c83b01c 100644 (file)
@@ -1,6 +1,6 @@
 #+xcvb (module ())
 
-(in-package #:cl-user)
+(in-package #:cl)
 
 (defpackage #:fare-matcher-test
   (:use #:fare-matcher #:fare-quasiquote #:fare-utils #:common-lisp #:hu.dwim.stefil)
diff --git a/test/quasiquote.lisp b/test/quasiquote.lisp
deleted file mode 100644 (file)
index c7d8498..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-#+xcvb (module (:depends-on ("packages")))
-
-(in-package :fare-matcher-test)
-
-;; This version of princ allows one to see
-;; inside of your implementation's version of quasiquoted expressions...
-
-(defun rprinc (x)
-  "hand-made princ that allows to see inside quasiquotes
-(results are implementation-dependent)"
-  (labels
-      ((rprinc-list (x)
-         (princ "(")
-        (rprinc-list-contents x)
-        (princ ")"))
-       (rprinc-list-contents (x)
-         (rprinc (car x))
-        (rprinc-cdr (cdr x)))
-       (rprinc-cdr (x)
-         (if x (if (consp x)
-                  (progn
-                    (princ " ")
-                    (rprinc-list-contents x))
-                (progn
-                  (princ " . ")
-                  (rprinc x))))))
-    (cond
-     ((consp x) (rprinc-list x))
-     (t (princ x)))
-    x))
-
-;; You can test the quasiquote implementation like this:
-
-(defvar *saved-readtable* *readtable*)
-(defparameter *fq-readtable* (copy-readtable *saved-readtable*))
-(enable-quasiquote :readtable *fq-readtable*)
-
-(defun fq (s)
-  (let ((*readtable* *fq-readtable*))
-    (read-from-string s)))
-
-(defparameter b 11)
-
-(deftest test-quasiquote ()
-  (macrolet ((q (x y)
-               `(is (equal (fq ,x) ',y))))
-    (q "``a" (quote (quote a)))
-    (q "`(a ,b)" (list (quote a) b))
-    (q "``(a ,b)" (quote (list (quote a) b)))
-    (q "`(a ,b)" (list (quote a) b))
-    (q "`(a ,x ,@y)" (list* (quote a) x y))
-    ;;(is (equal (ifmatch `(a ,x ,@y) '(a b c d) (list x y)) '(b (c d))))
-    (q "`(1 2 3)" (quote (1 2 3)))
-    (q "`(a ,b ,@c .,d)" (list* (quote a) b (append c d)))
-    (q "`(,@c .,d)" (append c d))))