Added basic tests

t/Repo.t

@@ -0,0 +1,18 @@
+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');
+&helper::dmup(repo=>$repo);
+ok($repo,           "repo is true");
+
+my $stm = $repo->load_stm(stm=>'/release/rc.stm');
+&helper::dmup(stm=>$stm);
+ok($stm,            "stm is true");
+
+
+done_testing();

t/data/strepo/release/rc.stm

@@ -0,0 +1,15 @@
+Name: Release Client
+Component: ~
+Description: Basic release criterion
+Owner: some.guy@example.com
+Various ISTQB BS: this; that...
+
+This is the release client protocol.  Here the body starts...
+
+# Main #
+1.  Check A
+    > result is a
+2. Check IMAPIsm        {proto==imap}
+2. Check POP3ism        {proto==pop3}
+    > result is OK
+