#!/usr/bin/perl -w
#
# Check that comments in PO files are correctly parsed
#
use strict;
use Test::More tests => 6;
use_ok('Locale::Maketext::Extract');
my $msgid = 'A random string to check that comments work';
my $lex = Locale::Maketext::Extract->new();
ok( $lex, 'Locale::Maketext::Extract object created');
$lex->read_po('t/comments.po');
# Here '#' and newlines are kept together with the comment
# Don't know if it's correct or elegant
is(
$lex->msg_comment($msgid),
'Some user comment' . "\n"
);
$lex->write_po('t/comments_out.po');
$lex->clear();
is(
$lex->msg_comment($msgid),
undef,
'Comment should be gone with clear()'
);
# Read back the new po file and check that
# the comment is readable again
$lex->read_po('t/comments_out.po');
is(
$lex->msg_comment($msgid),
'Some user comment' . "\n"
);
ok(unlink('t/comments_out.po'));