boot-tests.nydp in nydp-0.2.2

- old
+ new

@@ -32,9 +32,17 @@
 (examples-for map
   ("maps a function over a list of numbers"
    (map (fn (x) (* x x)) '(1 2 3))
    (1 4 9))
 
+  ("applies the function to a singleton argument"
+   (map (fn (x) (* x x)) 19)
+   361)
+
+  ("preserves dotted lists"
+   (map (fn (x) (* x x)) '(1 2 3 4 . 5))
+   (1 4 9 16 . 25))
+
   ("maps a string join function over a list of strings"
    (test-foo "x" "y")
    ("a0 w0 x w0 y" "a0 w1 x w1 y" "a0 w2 x w2 y" "a0 w3 x w3 y"))
 
   (suite "mapx"