__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
package TestYAMLTests;
use lib 'inc';
use Test::Base -Base;
@TestYAMLTests::EXPORT = qw(Load Dump n2y y2n nyny get_block_by_name);
sub load_config() {
my $config_file = shift;
my $config = {};
return $config unless -f $config_file;
open CONFIG, $config_file or die $!;
my $yaml = do {local $/; <CONFIG>};
if ($yaml =~ /^yaml_module:\s+([\w\:]+)/m) {
$config->{yaml_module} = $1;
}
if ($yaml =~ /^use_blib:\s+([01])/m) {
$config->{use_blib} = $1;
}
$config->{use_blib} ||= 0;
return $config;
}
my $yaml_module;
BEGIN {
my $config = load_config('t/yaml_tests.yaml');
if ($config->{use_blib}) {
eval "use blib; 1" or die $@;
}
$yaml_module = $ENV{PERL_YAML_TESTS_MODULE} || $config->{yaml_module}
or die "Can't determine which YAML module to use for this test.";
eval "require $yaml_module; 1" or die $@;
$Y::T = $yaml_module;
}
sub get_block_by_name() {
(my ($self), @_) = find_my_self(@_);
$self->{blocks_by_name} ||= do {
my $hash = {};
for my $block ($self->blocks) {
$hash->{$block->name} = $block;
}
$hash;
};
my $name = shift;
my $object = $self->{blocks_by_name}{$name}
or die "Can't find test named '$name'\n";
return $object;
}
sub nyny() {
(my ($self), @_) = find_my_self(@_);
my $test = $self->get_block_by_name(@_);
my $perl = eval $test->perl;
my $result = Dump(Load(Dump($perl)));
for my $section (qw'yaml3 yaml yaml2') {
my $yaml = $test->$section or next;
if ($result eq $yaml) {
is $result, $yaml, "NYNY: " . $test->name;
return;
}
}
my $yaml = $test->yaml;
is $result, $yaml, "NYNY: " . $test->name;
}
sub n2y() {
(my ($self), @_) = find_my_self(@_);
my $test = $self->get_block_by_name(@_);
my $perl = eval $test->perl;
my $result = Dump($perl);
for my $section (qw'yaml3 yaml yaml2') {
my $yaml = $test->$section or next;
if ($result eq $yaml) {
is $result, $yaml, "Dump: " . $test->name;
return;
}
}
my $yaml = $test->yaml;
is $result, $yaml, "Dump: " . $test->name;
}
sub y2n() {
(my ($self), @_) = find_my_self(@_);
my $test = $self->get_block_by_name(@_);
my $perl = eval $test->perl;
my $yaml = $test->yaml;
is_deeply Load($yaml), $perl, "Load: " . $test->name;
}
sub Load() {
no strict 'refs';
&{$yaml_module . "::Load"}(@_);
}
sub Dump() {
no strict 'refs';
&{$yaml_module . "::Dump"}(@_);
}
no_diff;
delimiters ('===', '+++');
package TestYAMLTests::Filter;
use Test::Base::Filter -Base;
sub load_yaml {
TestYAMLTests::Load(@_);
}
sub dump_yaml {
TestYAMLTests::Load(@_);
}
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| data | Folder | 0755 |
|
|
| oop | Folder | 0755 |
|
|
| 000-require-modules.t | File | 274 B | 0644 |
|
| TestYAML.pm | File | 153 B | 0644 |
|
| TestYAMLTests.pm | File | 2.73 KB | 0644 |
|
| alias.t | File | 2.02 KB | 0644 |
|
| api.t | File | 1.49 KB | 0644 |
|
| ascii.t | File | 869 B | 0644 |
|
| author-pod-syntax.t | File | 300 B | 0644 |
|
| binary.t | File | 379 B | 0644 |
|
| blessed.t | File | 1.98 KB | 0644 |
|
| boolean-boolean.t | File | 781 B | 0644 |
|
| boolean-invalid.t | File | 1013 B | 0644 |
|
| boolean-jsonpp.t | File | 765 B | 0644 |
|
| boolean.t | File | 1.28 KB | 0644 |
|
| bug-pvf.t | File | 231 B | 0644 |
|
| bug-stack.t | File | 258 B | 0644 |
|
| code.t | File | 1.47 KB | 0644 |
|
| dump-heuristics.t | File | 265 B | 0644 |
|
| dump-int.t | File | 945 B | 0644 |
|
| dump.t | File | 227 B | 0644 |
|
| duplicate-keys.t | File | 507 B | 0644 |
|
| empty.t | File | 738 B | 0644 |
|
| empty.yaml | File | 0 B | 0644 |
|
| error.t | File | 1.48 KB | 0644 |
|
| file.t | File | 852 B | 0644 |
|
| glob.t | File | 665 B | 0644 |
|
| indent.t | File | 334 B | 0644 |
|
| io-handle.t | File | 1.36 KB | 0644 |
|
| leak.t | File | 1 KB | 0644 |
|
| libyaml-version.t | File | 248 B | 0644 |
|
| load-blessed.t | File | 1.7 KB | 0644 |
|
| load.t | File | 230 B | 0644 |
|
| load_standard_tags.t | File | 1.32 KB | 0644 |
|
| loadfile-empty.t | File | 171 B | 0644 |
|
| long_plain_wrap.t | File | 421 B | 0644 |
|
| magic.t | File | 280 B | 0644 |
|
| native.t | File | 348 B | 0644 |
|
| null.t | File | 831 B | 0644 |
|
| numbers.t | File | 1.07 KB | 0644 |
|
| path-class.t | File | 544 B | 0644 |
|
| pl_sv_undef.t | File | 397 B | 0644 |
|
| private.t | File | 474 B | 0644 |
|
| quote.t | File | 538 B | 0644 |
|
| ref-scalar.t | File | 985 B | 0644 |
|
| regexp.t | File | 2.27 KB | 0644 |
|
| string_nulls.t | File | 239 B | 0644 |
|
| tags.t | File | 554 B | 0644 |
|
| tied.t | File | 2.14 KB | 0644 |
|
| utf8.t | File | 1.53 KB | 0644 |
|
| yaml_tests.yaml | File | 55 B | 0644 |
|