Файловый менеджер - Редактировать - /home/.cpan/build/YAML-LibYAML-v0.902.0-0/t/alias.t
�азад
use FindBin '$Bin'; use lib $Bin; use TestYAMLTests tests => 15; my ($a, $b) = Load(<<'...'); --- - &one [ a, b, c] - foo: *one --- &1 foo: &2 [*2, *1] ... is "$a->[0]", "$a->[1]{'foo'}", 'Loading an alias works'; is "$b->{'foo'}", "$b->{'foo'}[0]", 'Another alias load test'; is "$b", "$b->{'foo'}[1]", 'Another alias load test'; my $value = { xxx => 'yyy' }; my $array = [$value, 'hello', $value]; is Dump($array), <<'...', 'Duplicate node has anchor/alias'; --- - &1 xxx: yyy - hello - *1 ... my $list = []; push @$list, $list; push @$list, $array; is Dump($list), <<'...', 'Dump of multiple and circular aliases'; --- &1 - *1 - - &2 xxx: yyy - hello - *2 ... my $hash = {}; $hash->{a1} = $hash->{a2} = []; $hash->{b1} = $hash->{b2} = []; $hash->{c1} = $hash->{c2} = []; $hash->{d1} = $hash->{d2} = []; # XXX Failed on 5.21.4. 'e1' got quoted because it looks like a number? # $hash->{e1} = $hash->{e2} = []; $hash->{f1} = $hash->{f2} = []; is Dump($hash), <<'...', 'Alias Order is Correct'; --- a1: &1 [] a2: *1 b1: &2 [] b2: *2 c1: &3 [] c2: *3 d1: &4 [] d2: *4 f1: &5 [] f2: *5 ... my $yaml = <<'...'; --- foo: &text | sub foo { print "hello\n"; } bar: *text ... $hash = Load($yaml); is $hash->{bar}, $hash->{foo}, 'Scalar anchor/aliases Load'; like $hash->{bar}, qr/"hello/, 'Aliased scalar has correct value'; $yaml = <<'...'; --- foo: &rx !!perl/regexp (?-xsim:lala) bar: *rx ... $hash = Load($yaml); is $hash->{bar}, $hash->{foo}, 'Regexp anchor/aliases Load'; like "falala", $hash->{bar}, 'Aliased regexp works'; $yaml = <<'...'; --- - &empty - *empty - &nulltag !!null - *nulltag - &null null - *null - &tilde ~ - *tilde ... $array = Load($yaml); is scalar @$array, 8, 'Load "null" aliases works'; is scalar(grep defined, @$array), 0, 'Load "null" aliases returns undef'; $yaml = <<'...'; --- - &true true - *true - &false false - *false ... $array = Load($yaml); is scalar @$array, 4, 'Load boolean aliases works'; is $array->[1], 1, 'Load boolean true alias'; is $array->[3], '', 'Load boolean false alias';
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0 |
proxy
|
phpinfo
|
�а�тройка