外挂编程

开发平台：

Windows_Unix

unittests.pl.svn-base：源码内容

							#!/usr/bin/env perl
use strict;
no strict 'refs';
use FindBin qw($RealBin);
use lib "$RealBin";
use lib "$RealBin/..";
use lib "$RealBin/../deps";
use Test::More qw(no_plan);
my @tests = qw(CallbackListTest ObjectListTest ActorListTest WhirlpoolTest
	SetTest SkillTest InventoryListTest
	TaskManagerTest TaskWithSubtaskTest TaskChainedTest
	PluginsHookTest);
if ($^O eq 'MSWin32') {
	push @tests, qw(HttpReaderTest);
}
@tests = @ARGV if (@ARGV);
foreach my $module (@tests) {
	$module =~ s/.pm$//;
	eval {
		require "${module}.pm";
	};
	if ($@) {
		$@ =~ s/(@INC contains: .*?) //s;
		print STDERR "Cannot load unit test $module:n$@n";
		exit 1;
	}
	my $start = "${module}::start";
	$start->();
}

						