OPM-Repository
view release on metacpan or search on metacpan
345678910111213141516171819202122use
strict;
use
warnings;
use
Test::More;
use
File::Spec;
use
File::Basename;
my
$xml_file
= File::Spec->catfile( dirname( __FILE__ ),
'data'
,
'otrs.xml'
);
my
$xml
=
do
{
local
(
@ARGV
, $/) =
$xml_file
; <> };
my
$source
= OPM::Repository::Source->new(
url
=>
$base_url
.
'otrs.xml'
,
content
=>
$xml
,
);
my
$master_slave
=
$source
->find(
name
=>
'OTRSMasterSlave'
,
framework
=>
'3.3'
);
is
$master_slave
,
$base_url
.
'OTRSMasterSlave-1.4.2.opm'
,
'MasterSlave for OTRS 3.3'
;
t/source_list.t view on Meta::CPAN
345678910111213141516171819202122use
strict;
use
warnings;
use
Test::More;
use
File::Spec;
use
File::Basename;
my
$xml_file
= File::Spec->catfile( dirname( __FILE__ ),
'data'
,
'otrs.xml'
);
my
$xml
=
do
{
local
(
@ARGV
, $/) =
$xml_file
; <> };
my
$source
= OPM::Repository::Source->new(
url
=>
$base_url
.
'otrs.xml'
,
content
=>
$xml
,
);
my
@check_list_21
=
qw(Calendar FAQ FileManager Support TimeAccounting WebMail)
;
is_deeply [
$source
->list(
framework
=>
'2.1'
) ], \
@check_list_21
,
"list of packages for OTRS 2.1"
;
t/source_min_max.t view on Meta::CPAN
345678910111213141516171819202122use
strict;
use
warnings;
use
Test::More;
use
File::Spec;
use
File::Basename;
my
$xml_file
= File::Spec->catfile( dirname( __FILE__ ),
'data'
,
'otrs.xml'
);
my
$xml
=
do
{
local
(
@ARGV
, $/) =
$xml_file
; <> };
my
$source
= OPM::Repository::Source->new(
url
=>
$base_url
.
'otrs.xml'
,
content
=>
$xml
,
);
my
$master_slave
=
$source
->find(
name
=>
'OTRSMasterSlave'
,
framework
=>
'3.3'
);
is
$master_slave
,
$base_url
.
'OTRSMasterSlave-1.4.2.opm'
,
'MasterSlave for OTRS 3.3'
;
( run in 1.138 second using v1.01-cache-2.11-cpan-e5176c747c2 )