#!/usr/bin/perl
use_ok
'OPM::Maker::Command::sopm'
;
my
$dir
= File::Spec->rel2abs( dirname __FILE__ );
my
$json
= File::Spec->catfile(
$dir
,
'TestPre.json'
);
my
$sopm
= File::Spec->catfile(
$dir
,
'Test.sopm'
);
my
@files
= <
$dir
/*.sopm>;
unlink
@files
;
my
@files_check
= <
$dir
/*.sopm>;
ok !
@files_check
;
OPM::Maker::Command::sopm::execute(
undef
, {
config
=>
$json
}, [
$dir
] );
ok -e
$sopm
;
my
$version
=
$OPM::Maker::Command::sopm::VERSION
;
my
$content
=
do
{
local
(
@ARGV
, $/) =
$sopm
; <> };
my
$check
=
qq~<?xml version="1.0" encoding="utf-8" ?>
<otrs_package version="1.0">
<!-- GENERATED WITH OPM::Maker::Command::sopm ($version) -->
<Name>Test</Name>
<Version>0.0.3</Version>
<Framework>4.0.x</Framework>
<Vendor>Perl-Services.de</Vendor>
<Description Lang="en">Test sopm command</Description>
<License>GNU AFFERO GENERAL PUBLIC LICENSE Version 3, November 2007</License>
<Filelist>
<File Permission="644" Location="01_code_uninstall.t" />
<File Permission="644" Location="02_code_uninstall_pre.t" />
<File Permission="644" Location="03_code_uninstall_pre_3.t" />
<File Permission="644" Location="Test.json" />
<File Permission="644" Location="TestPre.json" />
<File Permission="644" Location="TestPre3.json" />
</Filelist>
<CodeInstall Type="post"><![CDATA[
\$Kernel::OM->Get('var::packagesetup::' . \$Param{Structure}->{Name}->{Content} )->CodeInstall();
]]></CodeInstall>
<CodeUninstall Type="pre"><![CDATA[
\$Kernel::OM->Get('var::packagesetup::' . \$Param{Structure}->{Name}->{Content} )->CodeUninstall();
]]></CodeUninstall>
</otrs_package>
~
;
is_string
$content
,
$check
;
done_testing();