initial commit

1 files changed, 71 insertions, 0 deletions

diff --git a/spec/peg_spec.moon b/spec/peg_spec.moon
new file mode 100644
index 0000000..1b25406
--- /dev/null
+++ b/spec/peg_spec.moon
@@ -0,0 +1,71 @@
+import space, atom, expr, explist, sexpr, nexpr, program from require 'parsing'
+
+describe 'atom parsing', ->
+  test 'symbols', ->
+    sym = atom\match 'some-toast help'
+    assert.is.equal 'some-toast', sym.raw
+    assert.is.equal 'some-toast', sym.value
+    assert.is.equal 'some-toast', sym\stringify!
+
+  test 'numbers', ->
+    num = atom\match '1234 nope'
+    assert.is.equal '1234', num.raw
+    assert.is.equal 1234, num.value
+    assert.is.equal '1234', num\stringify!
+
+  test 'strings', ->
+    str = atom\match '"help some stuff!" nope'
+    assert.is.equal 'help some stuff!', str.raw
+    assert.is.equal 'help some stuff!', str.value
+    assert.is.equal '"help some stuff!"', str\stringify!
+
+test 'whitespace parsing', ->
+  assert.is.equal '  ', space\match '  '
+  assert.is.equal '\n\t ', space\match '\n\t '
+
+describe 'nexpr parsing', ->
+  it 'handles leading whitespace', ->
+    node = nexpr\match ' 3\tok-yes'
+
+    assert.is.equal 2, #node
+    assert.is.equal 3, node[1].value
+    assert.is.equal 'ok-yes', node[2].value
+
+    assert.is.equal ' 3\tok-yes', node\stringify!
+
+  it 'handles trailing whitespace', ->
+    node = nexpr\match '3\tok-yes\n'
+
+    assert.is.equal 2, #node
+    assert.is.equal 3, node[1].value
+    assert.is.equal 'ok-yes', node[2].value
+
+    assert.is.equal '3\tok-yes\n', node\stringify!
+
+  it 'handles whitespace everywhere', ->
+    node = nexpr\match ' 3\tok-yes\n'
+
+    assert.is.equal 2, #node
+    assert.is.equal 3, node[1].value
+    assert.is.equal 'ok-yes', node[2].value
+
+    assert.is.equal ' 3\tok-yes\n', node\stringify!
+
+test 'sexpr parsing', ->
+  str = '( 3   ok-yes
+  "friend" )'
+  node = sexpr\match str
+
+  assert.is.equal '(', node.style
+  assert.is.equal 3, #node
+  assert.is.equal 3, node[1].value
+  assert.is.equal 'ok-yes', node[2].value
+  assert.is.equal 'friend', node[3].value
+
+  assert.is.equal str, node\stringify!
+
+test 'mixed parsing', ->
+  str = '( 3   ok-yes
+  "friend" )'
+  node = program\match str
+  assert.is.equal str, node\stringify!