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 : ascii.t

use FindBin '$Bin';
use lib $Bin;
use TestYAMLTests tests => 7;

is utf8::is_utf8(Load("--- Foo\n")), !!0, 'ASCII string does not have UTF8 flag on';

my $yaml1 = <<'...';
---
foo: foo
bar: bar
baz: baz
...

{
    my $hash = Load($yaml1);
    is utf8::is_utf8($hash->{foo}), !!0, 'ASCII string string does not have UTF8 flag on';
    is utf8::is_utf8($hash->{bar}), !!0, 'ASCII string string does not have UTF8 flag on';
    is utf8::is_utf8($hash->{baz}), !!0, 'ASCII string string does not have UTF8 flag on';
}


my $yaml2 = <<'...';
---
- foo
- bar
- baz
...

{
    my $array = Load($yaml2);
    is utf8::is_utf8($array->[0]), !!0, 'ASCII string string does not have UTF8 flag on';
    is utf8::is_utf8($array->[1]), !!0, 'ASCII string string does not have UTF8 flag on';
    is utf8::is_utf8($array->[2]), !!0, 'ASCII string string does not have UTF8 flag on';
}