Cleaned up Slave test a little

t/Slave.t

@@ -6,21 +6,20 @@ use SugarTrail::Repo;
 
 my $repo = SugarTrail::Repo->new(root => './t/data/strepo', vcs => 'git');
 
-my $m1 = $repo->load_stm(stm=>'/selftest/posititve/multiple_parameters.stm');
-ok($m1,             "multiple_parameters: master is true");
+my $data;
+$data->{mp} = $repo->load_stm(stm=>'/selftest/posititve/multiple_parameters.stm');
+$data->{mw} = $repo->load_stm(stm=>'/selftest/negative/multiple_warnings.stm');
 
-my $s1 = $m1->generate_slave({ proto => "imap", os => "w7a" });
-ok($s1,            "multiple_parameters: slave is true");
+ok($data->{mp}, "multiple_parameters: master is true");
+ok($data->{mw}, "multiple_warnings: master is true");
 
-my $m2 = $repo->load_stm(stm=>'/selftest/negative/multiple_warnings.stm');
-ok($m2,             "multiple_warnings: master is true");
+my $s1 = $data->{mp}->generate_slave({ proto => "imap", os => "w7a" });
+ok($s1,             "multiple_parameters: slave is true");
 
-my $s2 = $m2->generate_slave({ os => "w7a", arch => "amd64" });
-ok($s2,            "multiple_warnings: slave is true");
+my $s2 = $data->{mw}->generate_slave({ os => "w7a", arch => "amd64" });
+ok($s2,             "multiple_warnings: slave is true");
 
-&helper::dmup(m1=>\$m1);
 &helper::dmup(s1=>\$s1);
-&helper::dmup(m2=>\$m2);
 &helper::dmup(s2=>\$s2);
 
 done_testing();