fix test case for (and)
This commit is contained in:
@@ -168,9 +168,7 @@ class BasicTestCase extends Test {
|
|||||||
}
|
}
|
||||||
|
|
||||||
function testAnd() {
|
function testAnd() {
|
||||||
Assert.equals(6, BasicTestCase.myAnd1);
|
_testAnd();
|
||||||
Assert.equals(null, BasicTestCase.myAnd2);
|
|
||||||
Assert.equals(null, BasicTestCase.myAnd3);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
function testNot() {
|
function testNot() {
|
||||||
|
@@ -182,9 +182,10 @@
|
|||||||
(Assert.equals (.toString []) (.toString (or null [])))
|
(Assert.equals (.toString []) (.toString (or null [])))
|
||||||
(Assert.equals "" (or null [] "")))
|
(Assert.equals "" (or null [] "")))
|
||||||
|
|
||||||
(var myAnd1 (and 5 6))
|
(function _testAnd []
|
||||||
(var myAnd2 (and false 5 6))
|
(Assert.equals 6 (and 5 6))
|
||||||
(var myAnd3 (and 5 false 6))
|
(Assert.isFalse ?(and false 5 6))
|
||||||
|
(Assert.isFalse ?(and 5 false 6)))
|
||||||
|
|
||||||
(function mySetLocal []
|
(function mySetLocal []
|
||||||
(localVar &mut loc "one thing")
|
(localVar &mut loc "one thing")
|
||||||
|
Reference in New Issue
Block a user