1use Config::Std {def_sep => '='};
2use Test::More 'no_plan';
3
4my $input_file = 'test.cfg';
5
6my %config;
7
8ok eval{ read_config $input_file => %config }    => 'Read succeeded';
9diag( $@ ) if $@;
10
11$config{'Extra Eq'}{'key 1'} = 'extra key 1';
12push @{$config{Named}{list}}, 'an extra line';
13
14ok eval{ write_config %config }                  => 'Write succeeded';
15
16ok open(my $fh, '<', $input_file)                => 'File opened';
17
18ok my @config = <$fh>                            => 'File read';
19
20ok my @extra = <DATA>                            => 'DATA loaded';
21
22is_deeply [@config[-4..-1]], [@extra[-4..-1]]    => 'Extra content correct';
23
24__DATA__
25
26[Extra Eq]
27
28key 1 = extra key 1
29
30