cpan/CPAN-Meta-YAML/t/17_toolbar.t

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