root/lang/perl/Text-Chalow-Parser/trunk/t/01_parse.t @ 5530

use strict;
use Test::More tests => 20;

use Text::Chalow::Parser;


my $changelog = << 'ChangeLog'
2008-01-20  Tatsuwo  <yto at example.com>

        * ChangeLogReader.pm: 
        good-bye message-top, message-bottom

        * Hello[CAT2]:
hello

2008-01-19  Tatsuwo  <yto at example.com>

        * Good: 
        bad

2007-03-11  YAMASHITA Tatsuo  <yto at nais.to>

        * chalow[CAT1][CAT2]: add use URI::Escape;

2007-02-05  YAMASHITA Tatsuo  <yto at nais.to>

        * chalow[CAT1]: move to chalow.org

        * p:hohohoho

2006-01-30  Mr. Oreore

        * p:secret: hogehoge

2006-01-20  Mr. Oreore

        * hoge[CAT1][CAT2]: uhihi

        * foo[CAT2]: bar
ChangeLog
        ;

my $rcp1 = new Text::Chalow::Parser();
ok($rcp1);
$rcp1->parse_string(\$changelog);
is(keys %{$rcp1->{all}}, 5);
ok($rcp1->{all}->{"2006-01-20"}->{1}{ho} eq "foo");
is(@{$rcp1->{all}->{"2006-01-20"}->{1}{cat}}, 1);
ok($rcp1->{all}->{"2006-01-20"}->{2}{co} eq "uhihi\n");
ok($rcp1->{all}->{"2006-01-20"}->{2}{a} eq "Mr. Oreore");
is(@{$rcp1->{all}->{"2006-01-20"}->{2}{cat}}, 2);
is($rcp1->{all}->{"2006-01-20"}->{curid}, 2);
is($rcp1->{all}->{"2007-02-05"}->{curid}, 1);

my $rcp2 = new Text::Chalow::Parser(stop_date => "2007-03-01");
ok($rcp2);
$rcp2->parse_string(\$changelog);
is(keys %{$rcp2->{all}}, 3);
ok($rcp2->{all}->{"2008-01-20"}->{1}{co} eq "\nhello\n");
is(@{$rcp2->{all}->{"2008-01-20"}->{1}{cat}}, 1);
ok($rcp2->{all}->{"2008-01-19"}->{1}{co} eq "\nbad\n");

is($rcp1->{STAT}->{CAT}->{"CAT1"}, $rcp2->{STAT}->{CAT}->{"CAT1"});
is($rcp1->{STAT}->{CAT}->{"CAT2"}, $rcp2->{STAT}->{CAT}->{"CAT2"});
is($rcp1->{STAT}->{ym}->{"2008-01"}, $rcp2->{STAT}->{ym}->{"2008-01"});
is(keys %{$rcp1->{STAT}->{md}->{"01-20"}}, keys %{$rcp2->{STAT}->{md}->{"01-20"}});

is($rcp1->{STAT}->{ymd}->{"2008-01-20"}, 2);
is($rcp1->{STAT}->{all}, 7);