One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/YAML-LibYAML-0.89-0/t/

View File Name : load_standard_tags.t

use strict;
use warnings;
use FindBin '$Bin';
use lib $Bin;
use TestYAMLTests tests => 27;
use B ();

my $yaml = <<"EOM";
- !!str
- !!str ~
- !!str null
- !!str 23
- !!str true
- !!str false
- !!null ~
- !!null null
- !!null
- !!int 23
- !!float 23.3
EOM

my @expected = ('', '~', 'null', "23", 'true', 'false');
my $data = Load $yaml;

ok(defined $data->[0], "Empty node with !!str is defined");
ok(defined $data->[1], "Node '!!str ~' is defined");
ok(defined $data->[2], "Node '!!str null' is defined");
ok((not defined $data->[6]), "Node '!!null ~' is not defined");
ok((not defined $data->[7]), "Node '!!null null' is not defined");
ok((not defined $data->[8]), "Node '!!null' is not defined");

for my $i (0 .. $#expected) {
    cmp_ok($data->[$i], 'eq', $expected[$i], "data[$i] equals '$expected[$i]'");
}

my @flags = map { B::svref_2object(\$_)->FLAGS } @$data;
for my $i (0 .. 5) {
    my $flags = $flags[$i];
    ok($flags & B::SVp_POK, "data[$i] has string flag");
    ok(not($flags & B::SVp_IOK), "data[$i] does not have int flag");
}
ok($flags[9] & B::SVp_IOK, "data[9] has int flag");
ok($flags[10] & B::SVp_NOK, "data[10] has num flag");

my $yaml2 = <<"EOM";
- !!map
  a: b
- !!seq
  - a
  - b
EOM

my $data2 = Load $yaml2;
my $exp = [
    { a => 'b' },
    [ 'a', 'b' ],
];
is_deeply($data2, $exp, "Standard tags !!map and !!seq work");