feat(string): adding string:repeat

Author: SuperFola

String.ark

@@ -129,6 +129,24 @@
     (set _index (- _index 1)) })
   _returnedString }))
 
+# @brief Repeat a string
+# @param _string string to repeat
+# @param _count number of times to repeat said string
+# =begin
+# (import std.String)
+# (print (string:repeat "a" 5))  # aaaaa
+# =end
+# @author https://github.com/SuperFola
+(let repeat (fun (_string _count) {
+  (assert (> _count 0) "count must be >= 1")
+  (mut _i 0)
+  (mut _output "")
+
+  (while (< _i _count) {
+    (set _output (+ _output _string))
+    (set _i (+ 1 _i)) })
+  _output }))
+
 # @brief Get a slice of a given string, from a given index with a given length
 # @param _string the string to get a slice of
 # @param _startingIndex the index in the string where to start slicing

tests/string-tests.ark

@@ -21,6 +21,10 @@
     (test:eq "" (string:reverse ""))
     (test:eq "a" (string:reverse "a"))
 
+    (test:eq "" (string:repeat "" 5))
+    (test:eq "a" (string:repeat "a" 1))
+    (test:eq "aaaaa" (string:repeat "a" 5))
+
     (test:eq "hello" (string:slice "hello world" 0 5))
     (test:eq "hello world" (string:slice "hello world" 0 100))
     (test:eq "h" (string:slice "hello world" 0 1))

tests/sys-tests.ark

@@ -2,8 +2,14 @@
 (import std.Testing)
 
 (test:suite sys {
-    (test:eq builtin__sys:platform sys:platform)
-    (test:expect (!= "" sys:platform))
+    (test:case "platform" {
+        (test:eq builtin__sys:platform sys:platform)
+        (test:expect (!= "" sys:platform)) })
 
-    (test:eq builtin__sys:args sys:args)
-    (test:eq (type sys:args) "List") })
+    (test:case "args" {
+        (test:eq builtin__sys:args sys:args)
+        (test:eq (type sys:args) "List") })
+
+    (test:case "programName" {
+        (test:eq builtin__sys:programName sys:programName)
+        (test:eq (type sys:programName) "String") })})