sugar-trail/t/Repo.t

use Test::More;

use lib 'lib';
use helper;

BEGIN { use_ok( 'SugarTrail::Repo' ); }
require_ok( 'SugarTrail::Repo' );

my $repo = SugarTrail::Repo->new(root => './t/data/strepo', vcs => 'git');
ok($repo,           "repo is true");

my $stm = $repo->load_stm(stm=>'/release/rc.stm');
ok($stm,            "stm is true");

ok($stm->parse_headers(), "parse_headers() returns 6");
ok($stm->parse_headers(), "parse_headers() still returns 6");
is($stm->parse_body(), 13, "parse_body() returns 13");
is($stm->parse_body(), 13, "parse_body() still returns 13");

&helper::dmupp(stm=>$stm);

my $sts = $stm->generate_sts({ proto => "imap" });
ok($sts,            "sts is true");
&helper::dmupp(sts=>$sts);

done_testing();