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
|
#!perl
use 5.014;
use strict;
use warnings;
use Test::More;
use Test::Exception;
BEGIN {
use_ok( 'GraphQL::Language::Parser', qw(parse) ) || print "Bail out!\n";
}
dies_ok { parse('{') };
like $@->message, qr/Expected name/, 'trivial fail';
dies_ok { parse(<<'EOF'
{ ...MissingOn }
fragment MissingOn Type
EOF
) };
like $@->message, qr/Expected "on"/, 'missing "on"';
dies_ok { parse('{ field: {} }') };
like $@->message, qr/Expected name/, 'expected';
dies_ok { parse('notanoperation Foo { field }') };
like $@->message, qr/Parse document failed/, 'bad op';
dies_ok { parse('...') };
like $@->message, qr/Parse document failed/, 'spread wrong place';
lives_ok { parse('{ field(complex: { a: { b: [ $var ] } }) }') } 'parses variable inline values';
dies_ok { parse('query Foo($x: Complex = { a: { b: [ $var ] } }) { field }') };
like $@->message, qr/Expected name or constant/, 'no var in default values';
dies_ok { parse('fragment on on on { on }') };
like $@->message, qr/Unexpected Name "on"/, 'no accept fragments named "on"';
dies_ok { parse('{ ...on }') };
like $@->message, qr/Unexpected Name "on"/, 'no accept fragment spread named "on"';
my @nonKeywords = (
'on',
'fragment',
'query',
'mutation',
'subscription',
'true',
'false',
);
my %k2sub = (on => 'a');
for my $keyword (@nonKeywords) {
my $fragmentName = $k2sub{$keyword} || $keyword;
lives_ok { parse(<<EOF) } 'non keywords allowed';
query $keyword {
... $fragmentName
... on $keyword { field }
}
fragment $fragmentName on Type {
$keyword($keyword: \$$keyword) \@$keyword($keyword: $keyword)
}
EOF
}
for my $anon (qw(mutation subscription)) {
lives_ok { parse(<<EOF) } 'non keywords allowed';
${anon} {
${anon}Field
}
EOF
}
lives_ok { parse('{ field(complex: { a: { b: [ 123 "abc" ] } }) }') } 'list values';
done_testing;
|
