1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
parse-string = require '../lib/parse-string'
{deep-equal, strict-equal: equal, throws} = require 'assert'
{parse-type} = require 'type-check'
q = (input, type, expected, options) ->
result = parse-string (parse-type type), input, options
switch typeof! expected
| 'Array', 'Object' => deep-equal result, expected
| otherwise => equal result, expected
suite 'parse-string' ->
test '"string"' ->
q 'string', 'String', '\'string\''
q '"string"', 'String', '\'"string"\''
q 'one\\"two', 'String', '\'one\\"two\''
q '"string"', '*', '"string"'
q "string", 'String', '\'string\''
q "'string'", '*', '\'string\''
q 'string with spaces and: {[(})]', 'String', '\'string with spaces and: {[(})]\''
q 'string with spaces and: {[(})]', '*', 'string with spaces and:{[(})]'
q 'string with spaces and: {[(})]', 'String', 'string with spaces and:{[(})]', {+explicit}
test '#date#' ->
q '#2011-11-11#', 'Date', '#2011-11-11#'
q '#2011-11-11#', '*', '#2011-11-11#'
q '#[] () :: { }#', 'Date', '#[] () :: { }#'
q '#[] () :: { }#', '*', '#[] () :: { }#'
test '/regexp/flags' ->
q '/regexp/ig', 'RegExp', '/regexp/ig'
q '/reg\\/exp/ig', 'RegExp', '/reg\\/exp/ig'
q '/regexp/ig', '*', '/regexp/ig'
q '/[ ] {:}/ig', 'RegExp', '/[ ] {:}/ig'
q '/[ ] {:}/ig', '*', '/[ ] {:}/ig'
test '[array]' ->
q '[1,2,3]', 'Array', ['1','2','3']
q '[1,2,3]', '[Number]', ['1','2','3']
q '[1,2,3]', '*', ['1','2','3']
q '[one two , three four]', '[String]', ['one two','three four']
q '[one:two, three:four]', '[String]', ['one:two','three:four']
q '[1,2,3,]', '*', ['1','2','3']
q '[1, 2, 3, ]', '*', ['1','2','3']
q '[]', 'Array', []
q '[]', '[Number]', []
q '[]', '*', []
q '1,2,3', '[Number]', ['1','2','3']
q '1,2,3', 'Array', ['1','2','3']
q '1, 2, 3', '[Number]', ['1','2','3']
q '1, 2, 3', 'Array', ['1','2','3']
q '', '[Number]', []
q '', 'Array', []
q '[1,2],[3,4]', 'Array', [['1','2'],['3','4']]
q '[1,2],[3,4]', '[[Number]]', [['1','2'],['3','4']]
test '(tuple)' ->
q '(1,2)', '(Number, Number)', ['1', '2']
q '(1,2)', '*', ['1', '2']
q '(1, 2)', '(Number, Number)', ['1', '2']
q '(1, 2)', '*', ['1', '2']
q '(one two , 2)', '(String, Number)', ['one two', '2']
q '1,2', '(Number, Number)', ['1', '2']
q '1, 2', '(Number, Number)', ['1', '2']
q '(1,2),(3,4)', '((Number,Number),(Number,Number))', [['1','2'],['3','4']]
test '{object}' ->
q '{x: 2, y: 3}', 'Object', {x: '2', y: '3'}
q '{x: 2, y: 3}', '{...}', {x: '2', y: '3'}
q '{x: 2, y: 3}', 'RegExp{...}', {x: '2', y: '3'}
q '{x: 2, y: 3}', '{x: Number, y: Number}', {x: '2', y: '3'}
q '{x: 2, y: 3}', '{x: Number, y: Number}', {x: '2', y: '3'}
q '{[x]: 2, y(): 3}', '*', {'[x]': '2', 'y()': '3'}
q '{x: 2():, y: 3][}', '*', {x: '2():', y: '3]['}
q '', 'Object', {}
q '', '{...}', {}
q '', '{x: Number, y: Number}', {}
throws (-> q '{x}', '*'), /Expected ':', but got 'undefined' instead/
q 'x: 2, y: 3', 'Object', {x: '2', y: '3'}
q 'x: 2, y: 3', '{x: Number, y: Number}', {x: '2', y: '3'}
test 'etc' ->
q 'hi', '*', 'hi'
q 'this is a string', '*', 'this is a string'
q '&$-1234asdfasw#!.+=%', '*', '&$-1234asdfasw#!.+=%'
q 'x: 2, y: 3', '*', 'x:2,y:3'
q '1,2', '*', '1,2'
q '1,2,3', '*', '1,2,3'
test 'explicit' ->
q '1,2,3', '*', '1,2,3', {+explicit}
q '1,2,3', 'Array', '1,2,3', {+explicit}
test 'nothing' ->
throws (-> q '', '*'), /Error parsing ''/
|
