1234567891011121314151617181920212223242526
  1. use Test::More;
  2. use lib 'lib';
  3. use helper;
  4. use SugarTrail::Repo;
  5. my $repo = SugarTrail::Repo->new(root => './t/data/strepo', vcs => 'git');
  6. my $m1 = $repo->load_stm(stm=>'/selftest/posititve/multiple_parameters.stm');
  7. ok($m1, "multiple_parameters: master is true");
  8. my $s1 = $m1->generate_slave({ proto => "imap", os => "w7a" });
  9. ok($s1, "multiple_parameters: slave is true");
  10. my $m2 = $repo->load_stm(stm=>'/selftest/negative/multiple_warnings.stm');
  11. ok($m2, "multiple_warnings: master is true");
  12. my $s2 = $m2->generate_slave({ os => "w7a", arch => "amd64" });
  13. ok($s2, "multiple_warnings: slave is true");
  14. &helper::dmup(m1=>\$m1);
  15. &helper::dmup(s1=>\$s1);
  16. &helper::dmup(m2=>\$m2);
  17. &helper::dmup(s2=>\$s2);
  18. done_testing();