unittests.pl
上传用户:market2
上传日期:2018-11-18
资源大小:18786k
文件大小:1k
源码类别:

外挂编程

开发平台:

Windows_Unix

  1. #!/usr/bin/env perl
  2. use strict;
  3. no strict 'refs';
  4. use FindBin qw($RealBin);
  5. use lib "$RealBin";
  6. use lib "$RealBin/..";
  7. use lib "$RealBin/../deps";
  8. use Test::More qw(no_plan);
  9. my @tests = qw(CallbackListTest ObjectListTest ActorListTest WhirlpoolTest
  10. SetTest SkillTest InventoryListTest
  11. TaskManagerTest TaskWithSubtaskTest TaskChainedTest
  12. PluginsHookTest);
  13. if ($^O eq 'MSWin32') {
  14. push @tests, qw(HttpReaderTest);
  15. }
  16. @tests = @ARGV if (@ARGV);
  17. foreach my $module (@tests) {
  18. $module =~ s/.pm$//;
  19. eval {
  20. require "${module}.pm";
  21. };
  22. if ($@) {
  23. $@ =~ s/(@INC contains: .*?) //s;
  24. print STDERR "Cannot load unit test $module:n$@n";
  25. exit 1;
  26. }
  27. my $start = "${module}::start";
  28. $start->();
  29. }