35 lines
864 B
CoffeeScript
35 lines
864 B
CoffeeScript
|
chai = require 'chai'
|
||
|
|
chai.should()
|
||
|
|
expect = chai.expect
|
||
|
|
|
||
|
|
{cons, nil, nilp} = require "cons-lists/lists"
|
||
|
|
{read, readForms} = require '../chapter1/reader'
|
||
|
|
{normalizeForm} = require '../chapter1/astToList'
|
||
|
|
|
||
|
|
describe "Core reader functions", ->
|
||
|
|
samples = [
|
||
|
|
['nil', nil]
|
||
|
|
['0', 0]
|
||
|
|
['1', 1]
|
||
|
|
['500', 500]
|
||
|
|
['0xdeadbeef', 3735928559]
|
||
|
|
['"Foo"', 'Foo']
|
||
|
|
['(1)', cons(1)]
|
||
|
|
['(1 2)', cons(1, (cons 2))]
|
||
|
|
['(1 2 )', cons(1, (cons 2))]
|
||
|
|
['( 1 2 )', cons(1, (cons 2))]
|
||
|
|
['( 1 2 )', cons(1, (cons 2))]
|
||
|
|
['("a" "b")', cons("a", (cons "b"))]
|
||
|
|
['("a" . "b")', cons("a", "b")]
|
||
|
|
['[]', []]
|
||
|
|
['{}', {}]
|
||
|
|
['[1 2 3]', [1, 2, 3]]
|
||
|
|
['{foo "bar"}', {foo: "bar"}]
|
||
|
|
]
|
||
|
|
|
||
|
|
for [t, v] in samples
|
||
|
|
do (t, v) ->
|
||
|
|
it "should interpret #{t} as #{v}", ->
|
||
|
|
res = normalizeForm read t
|
||
|
|
expect(res).to.deep.equal(v)
|