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
|
use strict;
use Test::More tests => 6;
use YAML::Syck;
use Tie::Hash;
{
my %h;
my $rh = \%h;
%h = (a=>1, b=>'2', c=>3.1415, d=>4);
bless $rh => 'Tie::StdHash';
is(Dump($rh), "--- !!perl/hash:Tie::StdHash \na: 1\nb: 2\nc: '3.1415'\nd: 4\n");
is(Dump(\%h), "--- !!perl/hash:Tie::StdHash \na: 1\nb: 2\nc: '3.1415'\nd: 4\n");
}
{
my %h;
my $th = tie %h, 'Tie::StdHash';
%h = (a=>1, b=>'2', c=>3.1415, d=>4);
TODO: {
local $TODO = "Perl 5.8 seems to sometimes coerce ints into strings." unless($] > '5.009888' || $] < '5.007');
is(Dump($th), "--- !!perl/hash:Tie::StdHash \na: 1\nb: 2\nc: '3.1415'\nd: 4\n");
}
TODO: {
local $TODO = "Tied hashes don't dump";
is(Dump(\%h), "--- !!perl/hash:Tie::StdHash \na: 1\nb: 2\nc: '3.1415'\nd: 4\n");
}
}
{
my %h;
my $th = tie %h, 'Tie::StdHash';
$h{a} = 1;
$h{b} = '2';
$h{c} = 3.1415;
$h{d} = 4;
is(Dump($th), "--- !!perl/hash:Tie::StdHash \na: 1\nb: 2\nc: '3.1415'\nd: 4\n");
TODO: {
local $TODO = "Tied hashes don't dump";
is(Dump(\%h), "--- !!perl/hash:Tie::StdHash \na: 1\nb: 2\nc: '3.1415'\nd: 4\n");
}
}
|
