diff --git a/src/tests.sh b/src/tests.sh index e98304e..de022de 100755 --- a/src/tests.sh +++ b/src/tests.sh @@ -69,7 +69,7 @@ echo "STARTING TESTS" title "Plain returns" check "PlainRet" "10" "10" check "StrRetrn" "\"hey\"" "hey" -check "SingleStrRetrn" "'hey'" "hey" +check "SingleStrRetrn" "\"hey\"" "hey" check "HexReturn" "0x0f0f0" "61680" check "BinaryReturn" "0b011010011010011" "13523" endBlock @@ -98,10 +98,10 @@ endBlock title "TypeCheck" check "IsNum" "(isnum 23847123)" "T" check "IsntNum" "(isnum \"WORDS\")" "F" -check "IsString" "(isstr 'words')" "T" -check "IsStringEmpty" "(isstr '')" "T" +check "IsString" "(isstr \"words\")" "T" +check "IsStringEmpty" "(isstr \"\")" "T" check "NumNotString" "(isstr 5)" "F" -check "ListNotString" "(isstr ('hello'))" "F" +check "ListNotString" "(isstr (\"hello\"))" "F" endBlock title "Ifs/Bools" @@ -123,7 +123,7 @@ check "AppndToEnvList" "(def l (50000 4000 300 20)) (def l (ap l 1)) l" "( 50000 check "PrependToList" "(pre (1 20 300 4000 50000) 600000)" "( 600000 1 20 300 4000 50000 )" check "PrepndToEnvList" "(def l (50000 4000 300 20)) (def l (pre l 1)) l" "( 1 50000 4000 300 20 )" check "Rest(Tail)OfList" "(def l (50000 4000 300 20)) (rest l)" "( 4000 300 20 )" -check "ListLength" "(def l (1 20 3 'abc' 'banana' (+ 10 5))) (len l)" "6" +check "ListLength" "(def l (1 20 3 \"abc\" \"banana\" (+ 10 5))) (len l)" "6" endBlock title "Spacing" @@ -205,13 +205,13 @@ check "MapFilter" "(eval \"(fil (< 50) (map sq (1 2 3 4 5 6 7 8 9 10 11 12)))\") endBlock title "Forbble" disable -check "BasicForbbleOp" "(loadfile 'examples/forbble.pbl') (feval (10 10 * .)) ''" "100" -check "FibForbble" "(loadfile 'examples/forbble.pbl') (feval (1 1 _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f .)) ''" "28657" -check "ForbbleDefine" "(loadfile 'examples/forbble.pbl') (feval ( : \"cubed\" dup dup * * $ )) (feval (4 cubed .)) ''" "64" +check "BasicForbbleOp" "(loadfile \"examples/forbble.pbl\") (feval (10 10 * .)) \"\"" "100" +check "FibForbble" "(loadfile \"examples/forbble.pbl\") (feval (1 1 _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f .)) \"\"" "28657" +check "ForbbleDefine" "(loadfile \"examples/forbble.pbl\") (feval ( : \"cubed\" dup dup * * $ )) (feval (4 cubed .)) \"\"" "64" endBlock title "Environment" -check "EnvStressTestEarly" "(def a 1)(def b 20)(def c 'yee')(def d 'yeehunnid')(def e 3) (a)" "( 1 )" +check "EnvStressTestEarly" "(def a 1)(def b 20)(def c \"yee\")(def d \"yeehunnid\")(def e 3) (a)" "( 1 )" check "EnvStressTestLate" "(def a 1)(def b 2)(def c 3)(def d 4)(def e 5)(def g 6)(def n 40) n" "40" endBlock