1
use t::TestYAMLTests tests => 24;
4
error => ['lines', 'chomp'],
12
for my $error ($test->error) {
13
if ($error =~ s/^!//) {
15
unlike $@, $re, $test->name . " (!~ /$error/)";
19
like $@, $re, $test->name . " (=~ /$error/)";
25
=== Bad hash indentation
30
mapping values are not allowed in this context
35
=== Unquoted * as hash key
39
did not find expected alphabetic or numeric character
42
while scanning an alias
44
=== Unquoted * as hash value
49
did not find expected alphabetic or numeric character
53
while scanning an alias
55
=== Unquoted * as scalar
60
did not find expected alphabetic or numeric character
64
while scanning an alias
70
bad tag found for array: 'tag:yaml.org,2002:foo'
77
bad tag found for hash: 'tag:yaml.org,2002:!foo'