mirror of https://github.com/emkay/parser-6502.git
87 lines
1.8 KiB
JavaScript
87 lines
1.8 KiB
JavaScript
const tap = require('tap')
|
|
const mona = require('mona')
|
|
const directiveParser = require('../parsers/directive')
|
|
|
|
tap.test('will parse a directive', (t) => {
|
|
t.plan(1)
|
|
t.deepEqual(mona.parse(directiveParser(), '.inesprg 1'), {
|
|
args: [
|
|
'1'
|
|
],
|
|
directive: '.inesprg'
|
|
})
|
|
})
|
|
|
|
tap.test('will parse a directive with direct address', (t) => {
|
|
t.plan(1)
|
|
t.deepEqual(mona.parse(directiveParser(), '.inesprg $0000'), {
|
|
args: [
|
|
'$,0000'
|
|
],
|
|
directive: '.inesprg'
|
|
})
|
|
})
|
|
|
|
tap.test('will parse a directive with hex arg', (t) => {
|
|
t.plan(1)
|
|
t.deepEqual(mona.parse(directiveParser(), '.inesprg #$FE'), {
|
|
args: [
|
|
'#,$,FE'
|
|
],
|
|
directive: '.inesprg'
|
|
})
|
|
})
|
|
|
|
tap.test('will parse a directive with binary arg', (t) => {
|
|
t.plan(2)
|
|
t.deepEqual(mona.parse(directiveParser(), '.db %00010001'), {
|
|
args: [
|
|
'%,00010001'
|
|
],
|
|
directive: '.db'
|
|
})
|
|
|
|
t.deepEqual(mona.parse(directiveParser(), '.db #%00010001'), {
|
|
args: [
|
|
'#,%,00010001'
|
|
],
|
|
directive: '.db'
|
|
})
|
|
})
|
|
|
|
tap.test('will parse a directive with multiple args', (t) => {
|
|
t.plan(1)
|
|
t.deepEqual(mona.parse(directiveParser(), '.db %00010001,%00010001,%00010001,%00010001'), {
|
|
args: [
|
|
'%,00010001',
|
|
'%,00010001',
|
|
'%,00010001',
|
|
'%,00010001'
|
|
],
|
|
directive: '.db'
|
|
})
|
|
})
|
|
|
|
tap.test('will parse a directive with multiple args with spaces between them', (t) => {
|
|
t.plan(1)
|
|
t.deepEqual(mona.parse(directiveParser(), '.db %00010001, %00010001, %00010001, %00010001'), {
|
|
args: [
|
|
'%,00010001',
|
|
'%,00010001',
|
|
'%,00010001',
|
|
'%,00010001'
|
|
],
|
|
directive: '.db'
|
|
})
|
|
})
|
|
|
|
tap.test('will parse a directive with string arg', (t) => {
|
|
t.plan(1)
|
|
t.deepEqual(mona.parse(directiveParser(), '.incbin "mario.chr"'), {
|
|
args: [
|
|
'mario.chr'
|
|
],
|
|
directive: '.incbin'
|
|
})
|
|
})
|