12345678910111213141516171819202122232425262728
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use Test::More;
  5. use lib 'lib';
  6. use helper;
  7. use SugarTrail::Repo;
  8. my $repo = SugarTrail::Repo->new(root => './t/data/strepo', vcs => 'git');
  9. my $data;
  10. $data->{mp} = $repo->load_master(source=>'/selftest/positive/multiple_parameters.stm');
  11. $data->{mw} = $repo->load_master(source=>'/selftest/negative/multiple_warnings.stm');
  12. ok($data->{mp}, "multiple_parameters: master is true");
  13. ok($data->{mw}, "multiple_warnings: master is true");
  14. my $s1 = $data->{mp}->generate_slave({ proto => "imap", os => "w7a" });
  15. ok($s1, "multiple_parameters: slave is true");
  16. my $s2 = $data->{mw}->generate_slave({ os => "w7a", arch => "amd64" });
  17. ok($s2, "multiple_warnings: slave is true");
  18. &helper::dmup(s1=>\$s1);
  19. &helper::dmup(s2=>\$s2);
  20. done_testing();