[ SYSTEM ]: Linux srv.persadacompanies.com 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
[ SERVER ]: Apache | PHP: 8.4.20
[ USER ]: persadamedika | IP: 45.64.1.108
GEFORCE FILE MANAGER
/
usr
/
share
/
doc
/
perl-CPAN-Meta
/
t
/
parse-cpan-meta
/
UPLOAD:
NAME
SIZE
QUICK PERMS
ACTIONS
📄 02_api.t
7,903 B
SET
[ EDIT ]
|
[ DEL ]
📄 03_functions.t
562 B
SET
[ EDIT ]
|
[ DEL ]
📄 04_export.t
446 B
SET
[ EDIT ]
|
[ DEL ]
📄 05_errors.t
408 B
SET
[ EDIT ]
|
[ DEL ]
DELETE SELECTED
[ CLOSE ]
EDIT: 03_functions.t
#!/usr/bin/perl delete $ENV{PERL_YAML_BACKEND}; delete $ENV{PERL_JSON_BACKEND}; # Testing of basic document structures use strict; BEGIN { $| = 1; $^W = 1; } use Test::More tests => 2; use Parse::CPAN::Meta (); my $one = <<'END_YAML'; --- - foo END_YAML my $two = <<'END_YAML'; --- - foo --- - bar END_YAML my $one_scalar_tiny = Parse::CPAN::Meta::Load( $one ); my $two_scalar_tiny = Parse::CPAN::Meta::Load( $two ); is_deeply( $one_scalar_tiny, [ 'foo' ], 'one: Parsed correctly' ); is_deeply( $two_scalar_tiny, [ 'bar' ], 'two: Parsed correctly' );