use strict;
use warnings;
use Test::More tests => 10;
use Text::XLogfile ':all';
my $equals_key = { 'a=b' => 1 };
my $colon_key = { 'a:b' => 1 };
my $newline_key = { "a\nb" => 1 };
my $colon_value = { 1 => 'a:b' };
my $newline_value = { 1 => "a\nb" };
for (
[$equals_key, "a_b=1"],
[$colon_key, "a_b=1"],
[$newline_key, "a b=1"],
[$colon_value, "1=a_b"],
[$newline_value, "1=a b"],
)
{
my ($hash, $expected) = @$_;
my $logline = eval { make_xlogline($hash, 1) };
is($@, '', "no error");
(my $report = $expected) =~ s/\n/\\n/g;
is($logline, $expected, "Trying to make logline: '$report'");
}