failing test case for reader macros
This commit is contained in:
@@ -26,4 +26,9 @@ class ReaderMacroTestCase extends Test {
|
|||||||
function testQuasiquoteMacro() {
|
function testQuasiquoteMacro() {
|
||||||
_testQuasiquoteMacro();
|
_testQuasiquoteMacro();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
function testStartOfLineInMiddle() {
|
||||||
|
_testStartOfLineInMiddle();
|
||||||
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -30,6 +30,8 @@
|
|||||||
rassert fluffers
|
rassert fluffers
|
||||||
(Assert.pass))
|
(Assert.pass))
|
||||||
|
|
||||||
|
(undefReaderMacro ["b" "c"])
|
||||||
|
|
||||||
(function _testCommentAtBlockOrArrayEnd []
|
(function _testCommentAtBlockOrArrayEnd []
|
||||||
[
|
[
|
||||||
(+ 1 2)
|
(+ 1 2)
|
||||||
@@ -40,3 +42,13 @@
|
|||||||
// Comment
|
// Comment
|
||||||
}
|
}
|
||||||
(Assert.pass))
|
(Assert.pass))
|
||||||
|
|
||||||
|
(function _testStartOfLineInMiddle []
|
||||||
|
(let [bob "first"
|
||||||
|
bob2 "second"]
|
||||||
|
|
||||||
|
(defReaderMacro &start "bob" [stream] `bob)
|
||||||
|
(defReaderMacro "bob" [stream] `bob2)
|
||||||
|
|
||||||
|
(Assert.equals "firstsecond" (+
|
||||||
|
bob bob))))
|
||||||
|
|||||||
Reference in New Issue
Block a user