This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update CPAN-Meta-YAML to CPAN version 0.010
[perl5.git] / cpan / CPAN-Meta-YAML / t / 17_toolbar.t
1 # Testing of a known-bad file from an editor
2
3 use strict;
4 use warnings;
5
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 );