read-file-lines function added

tests/test.lsp

@@ -14,6 +14,11 @@
       (+ n (scitej (- n 1)))
     ))
 
+(write-file "/tmp/f.txt" "line 1\nline 2\nline3")
+(define counter (lambda (ln) (do (set! ii (+ ii 1)) )))
+(define ii 0)
+
+
 (define json_list (parse-json "{\"k1\":\"v1\", \"k2\":42, \"k3\":[\"a\",123,true,false,null]}"))
 
 
@@ -108,6 +113,7 @@
 (ut::define-test "result of (start-of-year)" '(ut::assert-equal 1609459200 (start-of-year (str-to-date "2021-05-13 10:32:12" "%Y-%m-%d %H:%M:%S"))))
 (ut::define-test "result of (end-of-year)" '(ut::assert-equal 1640995199 (end-of-year (str-to-date "2021-05-13 10:32:12" "%Y-%m-%d %H:%M:%S"))))
 
+(ut::define-test "(read-file-lines \"/tmp/f.txt\" counter)" '(ut::assert-equal 3 (read-file-lines "/tmp/f.txt" counter)))
 
 ;(ut::define-test "result of " '(ut::assert-true )
 (ut::run-tests)