Просмотр исходного кода

Add tests for +

(Now that + works again.)
Lucas Stadler лет назад: 8
Родитель
Сommit
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"]])