#!/usr/bin/perl
use Test::More;
use strict;
use warnings;
use Config::IniFiles;
use File::Spec;
eval "use File::Temp qw(tempdir)";
plan skip_all => "File::Temp required for testing" if $@;
plan tests => 2;
{
my $dir_name = tempdir(CLEANUP => 1);
my $filename = File::Spec->catfile($dir_name, "foo.ini");
my $data = join "", <DATA>;
open F, '>', $filename;
print F $data;
close F;
my $ini = Config::IniFiles->new(-file => $filename, -nomultiline => 1);
# TEST
ok(defined($ini), "Ini was initialised");
$ini->RewriteConfig;
my $content;
{
open my $fh, '<', $filename;
local $/;
$content = <$fh>;
}
ok($content !~ /EOT/ && $content =~ /^a=1/m && $content =~ /^a=2/m,
"No multiline is output");
}
__DATA__
[section]
a = 1
a = 2