diff options
| -rw-r--r-- | html-jen.asd | 9 | ||||
| -rw-r--r-- | testler/test.lisp | 13 |
2 files changed, 21 insertions, 1 deletions
diff --git a/html-jen.asd b/html-jen.asd index e2532cd..200e777 100644 --- a/html-jen.asd +++ b/html-jen.asd @@ -10,4 +10,11 @@ (:file "ana")) :build-operation "program-op" :build-pathname "html-üret" - :entry-point "html-jen::ana") + :entry-point "html-jen::ana" + :in-order-to ((test-op (test-op "html-jen/testler")))) + +(defsystem "html-jen/testler" + :depends-on ("html-jen") + :pathname "testler/" + :components ((:file "test")) + :perform (test-op (o c) (symbol-call :html-jen/testler :testleri-çalıştır))) diff --git a/testler/test.lisp b/testler/test.lisp new file mode 100644 index 0000000..5a04f0b --- /dev/null +++ b/testler/test.lisp @@ -0,0 +1,13 @@ +(defpackage :html-jen/testler + (:use :common-lisp :html-jen)) + +(in-package :html-jen/testler) + +(defun test-test () + (assert (= 3 (+ 1 2))) + (unless (= 3 2) + (error "hata"))) + +(defun testleri-çalıştır () + ;; (test-test) + ) |