Add lang tests

2024-03-09 19:03:35 -05:00 · 2024-03-09 19:03:35 -05:00 · 170c0a4197
commit 170c0a4197
parent cbdd357b41
1 changed files with 33 additions and 0 deletions
--- a/test/lang.tm
+++ b/test/lang.tm
@ -0,0 +1,33 @@
+lang HTML
+	HEADER := $HTML{}"<!DOCTYPE HTML>"
+	func escape(t:Text)->HTML
+		t = t:replace("&", "&amp;")
+		t = t:replace("<", "&lt;")
+		t = t:replace(">", "&gt;")
+		t = t:replace('"', "&quot;")
+		t = t:replace("'", "&#39;")
+		return HTML.from_unsafe_text(t)
+
+	func escape_int(i:Int)->HTML
+		return HTML.from_unsafe_text("{i}")
+	
+	func paragraph(content:HTML)->HTML
+		return $HTML{}"<p>{content}</p>"
+
+>> HTML.HEADER
+= $HTML"<!DOCTYPE HTML>"
+
+>> user := "I <3 hax"
+>> html := $HTML{}"Hello {user}!"
+= $HTML"Hello I &lt;3 hax!"
+>> html ++ $HTML{}"<br>"
+= $HTML"Hello I &lt;3 hax!<br>"
+
+>> $HTML{}"{1 + 2}"
+= $HTML"3"
+
+>> $HTML{}"{3_i8}"
+= $HTML"3"
+
+>> html:paragraph()
+= $HTML"<p>Hello I &lt;3 hax!</p>"