test sistemi başlangıcı

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)))

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)
+  )