test eklendi

1 files changed, 40 insertions, 6 deletions

diff --git a/testler/test.lisp b/testler/test.lisp
index 5a04f0b..500abbc 100644
--- a/testler/test.lisp
+++ b/testler/test.lisp
@@ -3,11 +3,45 @@
 
 (in-package :html-jen/testler)
 
-(defun test-test ()
-  (assert (= 3 (+ 1 2)))
-  (unless (= 3 2)
-    (error "hata")))
+(defun mklist (thing)
+  (if (listp thing)
+      thing
+      (list thing)))
+
+(defun node->cons (node)
+  "node u listeye çevirir."
+  (if (stringp node)
+      node
+      (with-slots (tag props children value) node
+        (append (list tag)
+                props
+                (if (null children)
+                    (mklist value)
+                    (mapcar #'node->cons children))))))
+
+(defun test-1 ()
+  (let ((okur (okur! "../cheat.md")))
+    (equal (node->cons (markdown-ayrıştır okur))
+           '(:DIV (:H1 "heading")
+             (:P "paragraph, " (:B "bold") " " (:I "italic") " ya da " (:I "italic") " ve " (:CODE "inline code") "
+"
+              (:A :HREF "https://www.markdownguide.org/cheat-sheet/" "links"))
+             (:H2 "h2")
+             (:UL (:LI "unordered") (:LI "list"))
+             (:OL (:LI "ordered") (:LI "list"))
+             (:P "footnote [^1]")
+             (:PRE (:CODE "code block
+"))
+             ""
+             (:P "!" (:A :HREF "image.jpg" "alt text"))
+             (:P "
+[^1]: this is the footnote (extended markdown)")))))
+
+(defun test-2 ()
+  (equal (node->cons (markdown-ayrıştır (metin-okur! "# başlık 1")))
+         '(:div (:h1 "başlık 1"))))
 
 (defun testleri-çalıştır ()
-  ;; (test-test)
-  )
+  (assert (eq t (test-1)))
+  (assert (eq t (test-2))))
+