Tests for CStr functions

tests/streq.porth

@@ -0,0 +1,33 @@
+include "std.porth"
+
+macro debug_streq
+  "\"" puts
+  over dup strlen swap puts
+  "\" == \"" puts
+  dup dup strlen swap puts
+  "\" is " puts
+  streq print
+end
+
+macro str_as_ptr swap drop end
+
+
+"hello\0" str_as_ptr 
+"hello\0" str_as_ptr 
+debug_streq
+
+"hello\0" str_as_ptr 
+"world\0" str_as_ptr 
+debug_streq
+
+"hello\0" str_as_ptr 
+"\0" str_as_ptr 
+debug_streq
+
+"\0" str_as_ptr 
+"world\0" str_as_ptr 
+debug_streq
+
+"\0" str_as_ptr 
+"\0" str_as_ptr 
+debug_streq

tests/streq.txt

@@ -0,0 +1,13 @@
+:i argc 0
+:b stdin 0
+
+:i returncode 0
+:b stdout 100
+"hello" == "hello" is 1
+"hello" == "world" is 0
+"hello" == "" is 0
+"" == "world" is 0
+"" == "" is 1
+
+:b stderr 0
+

tests/strlen.porth

@@ -0,0 +1,14 @@
+include "std.porth"
+
+macro debug_strlen
+  "strlen(\"" puts
+  dup dup strlen swap puts
+  "\") == " puts
+  strlen print
+end
+
+macro str_as_ptr swap drop end
+
+
+"\0" str_as_ptr debug_strlen
+"hello\0" str_as_ptr debug_strlen

tests/strlen.txt

@@ -0,0 +1,10 @@
+:i argc 0
+:b stdin 0
+
+:i returncode 0
+:b stdout 37
+strlen("") == 0
+strlen("hello") == 5
+
+:b stderr 0
+