d659526b5a
This commit is generated using: % perl misc/devel/tidy.pl *within* ktd, to get the same version of perltidy than what will be used by our CI (currently v20230309). Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
74 lines
1.4 KiB
Perl
Executable file
74 lines
1.4 KiB
Perl
Executable file
use Modern::Perl;
|
|
use Test::More;
|
|
|
|
use YAML::XS;
|
|
use Template;
|
|
use Encode;
|
|
use utf8;
|
|
|
|
my $template = Template->new( ENCODING => 'UTF-8' );
|
|
|
|
my $vars;
|
|
my $output;
|
|
$template->process( 't/db_dependent/data/syspref.pref', $vars, \$output );
|
|
|
|
my $yaml = YAML::XS::Load( Encode::encode_utf8($output) );
|
|
my $syspref_1 = $yaml->{Test}->{Testing}->[0];
|
|
my $syspref_2 = $yaml->{Test}->{Testing}->[1];
|
|
my $syspref_3 = $yaml->{Test}->{Testing}->[2];
|
|
my $syspref_4 = $yaml->{Test}->{Testing}->[3];
|
|
is_deeply(
|
|
$syspref_1,
|
|
[
|
|
"Do it",
|
|
{
|
|
choices => {
|
|
on => "certainly",
|
|
off => "I don't think so"
|
|
},
|
|
pref => "syspref_1"
|
|
}
|
|
]
|
|
);
|
|
is_deeply(
|
|
$syspref_2,
|
|
[
|
|
{
|
|
choices => {
|
|
0 => "really don't do",
|
|
'' => "Do",
|
|
dont => "Don't do"
|
|
},
|
|
pref => "syspref_2"
|
|
},
|
|
"it."
|
|
]
|
|
);
|
|
is_deeply(
|
|
$syspref_3,
|
|
[
|
|
"We love unicode",
|
|
{
|
|
choices => {
|
|
no => "Not really",
|
|
'★' => "❤️"
|
|
},
|
|
pref => "syspref_3"
|
|
}
|
|
],
|
|
);
|
|
is_deeply(
|
|
$syspref_4,
|
|
[
|
|
"List of fields",
|
|
{
|
|
choices => {
|
|
16 => 16,
|
|
"020" => "020",
|
|
123 => 123
|
|
},
|
|
pref => "syspref_4"
|
|
}
|
|
]
|
|
);
|
|
done_testing;
|