Commit | Line | Data |
be96f5c3 |
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', |
de044c36 |
58 | noyamlperl => 1, |
be96f5c3 |
59 | ); |