t/dump-works.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

use strict;
use lib -e 't' ? 't' : 'test';
use TestYAML;

run_is;

sub yaml_dump {
    return Dump(@_);
}

__DATA__
=== A one key hash
+++ perl eval yaml_dump
+{foo => 'bar'}
+++ yaml
---
foo: bar