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