Pārlūkot izejas kodu

Add tests for +

(Now that + works again.)
Lucas Stadler 8 gadi atpakaļ
vecāks
revīzija
0e44dedb08
1 mainītis faili ar 7 papildinājumiem un 0 dzēšanām
  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"]])