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