Ruby: add step8_macros

2 files changed, 58 insertions, 55 deletions

diff --git a/tests/step8_macros.mal b/tests/step8_macros.mal
index 351e0ca..03128ca 100644
--- a/tests/step8_macros.mal
+++ b/tests/step8_macros.mal
@@ -1,3 +1,61 @@
+;; Testing cons function
+(cons 1 (list))
+;=>(1)
+(cons 1 (list 2))
+;=>(1 2)
+(cons 1 (list 2 3))
+;=>(1 2 3)
+(cons (list 1) (list 2 3))
+;=>((1) 2 3)
+(cons [1] [2 3])
+;=>([1] 2 3)
+(cons 1 [2 3])
+;=>(1 2 3)
+
+;; Testing concat function
+(concat)
+;=>()
+(concat (list 1 2))
+;=>(1 2)
+(concat (list 1 2) (list 3 4))
+;=>(1 2 3 4)
+(concat (list 1 2) (list 3 4) (list 5 6))
+;=>(1 2 3 4 5 6)
+(concat [1 2] (list 3 4) [5 6])
+;=>(1 2 3 4 5 6)
+(concat (concat))
+;=>()
+
+;; Testing first function
+(first '())
+;=>nil
+(first '(6))
+;=>6
+(first '(7 8 9))
+;=>7
+(first [])
+;=>nil
+(first [10])
+;=>10
+(first [10 11 12])
+;=>10
+
+;; Testing rest function
+(rest '())
+;=>()
+(rest '(6))
+;=>()
+(rest '(7 8 9))
+;=>(8 9)
+(rest [])
+;=>()
+(rest [10])
+;=>()
+(rest [10 11 12])
+;=>(11 12)
+
+
+
 ;; Testing trivial macros
 (defmacro! one (fn* () 1))
 (one)
diff --git a/tests/stepA_more.mal b/tests/stepA_more.mal
index 54faa19..f6b01f5 100644
--- a/tests/stepA_more.mal
+++ b/tests/stepA_more.mal
@@ -71,34 +71,6 @@
 ;=>(2 4 6)
 
 
-;; Testing concat function
-(concat)
-;=>()
-(concat (list 1 2))
-;=>(1 2)
-(concat (list 1 2) (list 3 4))
-;=>(1 2 3 4)
-(concat (list 1 2) (list 3 4) (list 5 6))
-;=>(1 2 3 4 5 6)
-(concat [1 2] (list 3 4) [5 6])
-;=>(1 2 3 4 5 6)
-(concat (concat))
-;=>()
-
-;; Testing cons function
-(cons 1 (list))
-;=>(1)
-(cons 1 (list 2))
-;=>(1 2)
-(cons 1 (list 2 3))
-;=>(1 2 3)
-(cons (list 1) (list 2 3))
-;=>((1) 2 3)
-(cons [1] [2 3])
-;=>([1] 2 3)
-(cons 1 [2 3])
-;=>(1 2 3)
-
 ;; Testing conj function
 (conj (list) 1)
 ;=>(1)
@@ -122,33 +94,6 @@
 (conj [1] [2 3])
 ;=>[1 [2 3]]
 
-;; Testing first/rest functions
-(first '())
-;=>nil
-(first '(6))
-;=>6
-(first '(7 8 9))
-;=>7
-(first [])
-;=>nil
-(first [10])
-;=>10
-(first [10 11 12])
-;=>10
-
-(rest '())
-;=>()
-(rest '(6))
-;=>()
-(rest '(7 8 9))
-;=>(8 9)
-(rest [])
-;=>()
-(rest [10])
-;=>()
-(rest [10 11 12])
-;=>(11 12)
-
 
 
 ;;