test sistemi başlangıcı

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