Преглед на файлове

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"]])