Merge pull request #273 from wasamasa/r7rs-implementation

[jackhill/mal.git] / tests / step6_file.mal

diff --git a/tests/step6_file.mal b/tests/step6_file.mal
index 09afc0c..c024e0d 100644 (file)
--- a/tests/step6_file.mal
+++ b/tests/step6_file.mal
@@ -22,10 +22,8 @@
 (eval (read-string "(+ 2 3)"))
 ;=>5
 
-;;; TODO: fix newline matching so that this works
-;;;(slurp "../tests/test.txt")
-;;;;=>"A line of text\n"
-
+(slurp "../tests/test.txt")
+;=>"A line of text\n"
 
 ;; Testing load-file
 
@@ -88,13 +86,16 @@
 ;; Testing swap!/closure interaction
 (def! inc-it (fn* (a) (+ 1 a)))
 (def! atm (atom 7))
-(def! f (fn* [] (swap! atm inc-it)))
+(def! f (fn* () (swap! atm inc-it)))
 (f)
 ;=>8
 (f)
 ;=>9
 
-;; -------- Optional Functionality --------
+;>>> deferrable=True
+;>>> optional=True
+;;
+;; -------- Deferrable/Optional Functionality --------
 
 ;; Testing comments in a file
 (load-file "../tests/incB.mal")