# This simply tests that a given piece of invalid YAML fails to parse
use t::TestYAMLOld tests => 4;

filters {
    msg => 'regexp',
    yaml => 'yaml_load_or_fail',
};

run_like yaml => 'msg';

__DATA__

===
+++ SKIP
This test hangs YAML::Old
+++ msg
YAML::Old Error: Inconsistent indentation level
+++ yaml
a: *


===
+++ msg
YAML::Old Error: Inconsistent indentation level
+++ yaml
--- |\
foo\zbar


===
+++ msg
YAML::Old Error: Unrecognized implicit value
+++ yaml
--- @ 42


===
+++ msg
YAML::Old Error: Inconsistent indentation level
+++ yaml
---
 - 1
  -2


===
+++ msg
Unrecognized TAB policy
+++ yaml
--- #TAB:MOBY
- foo