sexp-template/test/parserTest.js

const test = require('tape')
const helpers = require('./helpers')

const AST = require('../src/ast/index')
const tt = require('../src/tokenTypes')

test('parses token stream into a tree', t => {
  t.plan(1)
  const tree = helpers.parse(`
    (div :class "foobar"
      (p :class (cond #t "primary" "secondary")))
  `)

  t.deepEqual(tree, [
    new AST.Application({
      functionName: new AST.Identifier({ name: 'div' }),
      args: [
        new AST.Attribute({
          name: 'class',
          value: new AST.String({ value: 'foobar' }),
        }),
        new AST.Application({
          functionName: new AST.Identifier({ name: 'p' }),
          args: [
            new AST.Attribute({
              name: 'class',
              value: new AST.Application({
                functionName: new AST.Identifier({ name: 'cond' }),
                args: [
                  new AST.Boolean({ value: true }),
                  new AST.String({ value: 'primary' }),
                  new AST.String({ value: 'secondary' }),
                ],
              }),
            }),
          ],
        }),
      ],
    }),
  ])
})

test('allow empty strings', t => {
  t.plan(1)
  const tree = helpers.parse('(p "")')

  t.deepEqual(tree, [
    new AST.Application({
      functionName: new AST.Identifier({ name: 'p' }),
      args: [new AST.String({ value: '' })],
    }),
  ])
})

test('parses calls to define into a function definition', t => {
  t.plan(1)
  const tree = helpers.parse('(define plusOne (n) (+ n 1))')

  t.deepEqual(tree, [
    new AST.FunctionDefinition({
      name: new AST.Identifier({ name: 'plusOne' }),
      parameters: [new AST.Identifier({ name: 'n' })],
      body: new AST.Application({
        functionName: new AST.Identifier({ name: '+' }),
        args: [new AST.Identifier({ name: 'n' }), new AST.Number({ value: 1 })],
      }),
    }),
  ])
})