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
|
use FindBin '$Bin';
use lib $Bin;
use TestYAMLTests tests => 10;
filters {
perl => 'eval',
yaml => 'load_yaml',
};
my $test = get_block_by_name("Blessed Hashes and Arrays");
my $hash = $test->perl;
my $hash2 = $test->yaml;
# is_deeply is broken and doesn't check blessings
is_deeply $hash2, $hash, "Load " . $test->name;
is ref($hash2->{foo}), 'Foo::Bar',
"Object at 'foo' is blessed 'Foo::Bar'";
is ref($hash2->{bar}), 'Foo::Bar',
"Object at 'bar' is blessed 'Foo::Bar'";
is ref($hash2->{one}), 'BigList',
"Object at 'one' is blessed 'BigList'";
is ref($hash2->{two}), 'BigList',
"Object at 'two' is blessed 'BigList'";
my $yaml = Dump($hash2);
is $yaml, $test->yaml_dump, "Dumping " . $test->name . " works";
######
$test = get_block_by_name("Blessed Scalar Ref");
my $array = $test->perl;
my $array2 = $test->yaml;
# is_deeply is broken and doesn't check blessings
is_deeply $array2, $array, "Load " . $test->name;
is ref($array2->[0]), 'Blessed',
"Scalar ref is class name 'Blessed'";
like "$array2->[0]", qr/=SCALAR\(/,
"Got a scalar ref";
$yaml = Dump($array2);
is $yaml, $test->yaml_dump, "Dumping " . $test->name . " works";
__DATA__
=== Blessed Hashes and Arrays
+++ yaml
foo: !!perl/hash:Foo::Bar {}
bar: !!perl/hash:Foo::Bar
bass: bawl
one: !!perl/array:BigList []
two: !!perl/array:BigList
- lola
- alol
+++ perl
+{
foo => (bless {}, "Foo::Bar"),
bar => (bless {bass => 'bawl'}, "Foo::Bar"),
one => (bless [], "BigList"),
two => (bless [lola => 'alol'], "BigList"),
};
+++ yaml_dump
---
bar: !!perl/hash:Foo::Bar
bass: bawl
foo: !!perl/hash:Foo::Bar {}
one: !!perl/array:BigList []
two: !!perl/array:BigList
- lola
- alol
=== Blessed Scalar Ref
+++ yaml
---
- !!perl/scalar:Blessed hey hey
+++ perl
my $x = 'hey hey';
[bless \$x, 'Blessed'];
+++ yaml_dump
---
- !!perl/scalar:Blessed hey hey
|
