瀏覽代碼

Add tests for +

(Now that + works again.)
Lucas Stadler 8 年之前
父節點
當前提交
0e44dedb08
共有 1 個文件被更改,包括 7 次插入0 次删除
  1. 7 0
      scm/inc/tests.scm

+ 7 - 0
scm/inc/tests.scm

@ -100,3 +100,10 @@
100 100
    ["(char? #f)" "#f\n"]
101 101
    ["(char? ())" "#f\n"]
102 102
    ])
103
104
(do-tests "3.4 - binary primitives"
105
  '[["(+ 1 2)" "3\n"]
106
    ["(+ 0 0)" "0\n"]
107
    ["(+ 41 1)" "42\n"]
108
    ["(+ 1 41)" "42\n"]
109
    ["(+ -10 11)" "1\n"]])