t/get_app_icons.t

   1 use 5.010_000;
   2 use strict;
   3 use utf8;
   4 use Test::More tests => 4;
   5
   6 require_ok ('Clawsker');
   7
   8 use Clawsker;
   9
  10 ok ( defined &Clawsker::get_app_icons, 'has function' );
  11
  12 my $icons = Clawsker::get_app_icons;
  13
  14 ok ( 'ARRAY' eq ref ($icons), 'returns an array ref' );
  15
  16 ok ( 3 == @$icons, 'contains 3 elements' );
  17