sometimes fork() isn't available
[perl.git] / 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 );