lib/Parse/CPAN/Meta/t/17_toolbar.t

   1 #!/usr/bin/perl
   2
   3 # Testing of a known-bad file from an editor
   4
   5 BEGIN {
   6         if( $ENV{PERL_CORE} ) {
   7                 chdir 't';
   8                 @INC = ('../lib', 'lib');
   9         }
  10         else {
  11                 unshift @INC, 't/lib/';
  12         }
  13 }
  14
  15 use strict;
  16 BEGIN {
  17         $|  = 1;
  18         $^W = 1;
  19 }
  20
  21 use File::Spec::Functions ':ALL';
  22 use Parse::CPAN::Meta::Test;
  23 # use Test::More skip_all => 'Temporarily ignoring failing test';
  24 use Test::More tests(1, 1);
  25
  26
  27
  28
  29
  30 #####################################################################
  31 # Testing that Perl::Smith config files work
  32
  33 my $toolbar_file = catfile( test_data_directory(), 'toolbar.yml' );
  34 my $toolbar      = load_ok( 'toolbar.yml', $toolbar_file, 100 );
  35
  36 yaml_ok(
  37         $toolbar,
  38         [ {
  39                 main_toolbar => [
  40                         'item file-new',
  41                         'item file-open',
  42                         'item file-print#',
  43                         'item file-close#',
  44                         'item file-save-all',
  45                         'item file-save',
  46                         undef,
  47                         'item edit-changes-undo',
  48                         'item edit-changes-redo',
  49                         undef,
  50                         'item edit-cut',
  51                         'item edit-copy',
  52                         'item edit-paste',
  53                         'item edit-replace',
  54                         'item edit-delete',
  55                 ]
  56         } ],
  57         'toolbar.yml',
  58         noyamlperl => 1,
  59 );