view release on metacpan or  search on metacpan

t/Linux-DesktopFiles.t  view on Meta::CPAN

#!perl -T

#########################

use strict;
use warnings;

use Test::More tests => 17;
BEGIN { use_ok('Linux::DesktopFiles') }

#########################

my $obj = Linux::DesktopFiles->new(keys_to_keep => [qw(Name GenericName Comment Comment[ro] Terminal Icon Exec)],
                                   categories   => [qw(Game Archiving GTK)],);

my $t_file       = 't/file.desktop';
my $desktop_file = (-f $t_file) ? $t_file : (-f $0) ? 'file.desktop' : ();

$obj->parse(\my %hash, $desktop_file);

my $info = $hash{Archiving}[0];

ok($info->{Name} eq "The right name",                 "Name");
ok($info->{GenericName} eq "Also this name is right", "GenericName");
ok($info->{Exec} eq "some_command -z -9",             "Exec");
ok($info->{Comment} eq "This is a test!",             "Comment");
ok($info->{'Comment[ro]'} eq "Acesta este un test!",  "Comment[ro]");
ok($info->{Terminal} eq "true",                       "Terminal");
ok($info->{Icon} eq "icon_name",                      "Icon");

my %entry = $obj->parse_desktop_file($desktop_file);

is($entry{Name},     'The right name',     'Name');
is($entry{Exec},     'some_command -z -9', 'Exec');
is($entry{Terminal}, 'true',               'Terminal');
is($entry{Icon},     'icon_name',          'Icon');

is(join(';', @{$entry{Categories}}), 'GTK;Archiving');
ok(exists($entry{SubCategories}{GTK}));
ok(exists($entry{SubCategories}{Utility}));
is(join(';', @{$entry{SubCategories}{Utility}}), 'Archiving');
is(join(';', @{$entry{SubCategories}{GTK}}),     '');