外挂编程

开发平台：

Windows_Unix

SkillTest.pm：源码内容

							# Unit test for Skill
package SkillTest;
use Test::More;
use Skill;
sub start {
	print "### Starting SkillTestn";
	Skill::StaticInfo::parseSkillsDatabase("skills.txt");
	Skill::StaticInfo::parseSPDatabase("skillssp.txt");
	testStaticInfo();
	testStaticSPInfo();
	testDynamicInfo();
	testUnknownSkills();
}
sub testStaticInfo {
	print "Testing static information conversion...n";
	my $skill = new Skill(name => "Blessing");
	is($skill->getName(), "Blessing");
	is($skill->getIDN(), 34);
	is($skill->getHandle(), "AL_BLESSING");
	$skill = new Skill(name => "blessing");
	is($skill->getName(), "Blessing");
	is($skill->getIDN(), 34);
	is($skill->getHandle(), "AL_BLESSING");
	$skill = new Skill(idn => 5);
	is($skill->getName(), "Bash");
	is($skill->getIDN(), 5);
	is($skill->getHandle(), "SM_BASH");
	$skill = new Skill(handle => "NV_BASIC");
	is($skill->getName(), "Basic Skill");
	is($skill->getIDN(), 1);
	is($skill->getHandle(), "NV_BASIC");
}
sub testStaticSPInfo {
	print "Testing static SP usage information...n";
	my $skill = new Skill(name => "Blessing");
	is($skill->getSP(1), 28);
	is($skill->getSP(5), 44);
	is($skill->getSP(10), 64);
	my $skill = new Skill(handle => "SM_BASH");
	is($skill->getSP(1), 8);
	is($skill->getSP(5), 8);
	is($skill->getSP(10), 15);
}
sub testDynamicInfo {
	print "Testing dynamic information conversion...n";
	Skill::DynamicInfo::clear();
	Skill::DynamicInfo::add(42, "MC_MAMMONITE", 3, 5, 1, Skill::TARGET_ENEMY);
	Skill::DynamicInfo::add(456, "ABC_COMBO_BREAKER", 4, 15, 20, Skill::TARGET_ENEMY);
	my $skill = new Skill(idn => 42);
	is($skill->getName(), "Mammonite");
	is($skill->getIDN(), 42);
	is($skill->getHandle(), "MC_MAMMONITE");
	is($skill->getSP(1), undef);
	is($skill->getSP(3), 5);
	is($skill->getRange(), 1);
	$skill = new Skill(handle => "ABC_COMBO_BREAKER");
	is($skill->getName(), "Combo Breaker");
	is($skill->getIDN(), 456);
	is($skill->getHandle(), "ABC_COMBO_BREAKER");
	is($skill->getSP(1), undef);
	is($skill->getSP(4), 15);
	is($skill->getRange(), 20);
	$skill = new Skill(name => "Mammonite");
	is($skill->getName(), "Mammonite");
	is($skill->getIDN(), 42);
	is($skill->getHandle(), "MC_MAMMONITE");
	is($skill->getRange(), 1);
}
sub testUnknownSkills {
	print "Testing unknown skills...n";
	my $skill = new Skill(handle => "UNKNOWN");
	is($skill->getName(), "Unknown");
	is($skill->getIDN(), undef);
	is($skill->getHandle(), undef);
	is($skill->getSP(1), undef);
	$skill = new Skill(idn => 1234);
	is($skill->getName(), "Unknown 1234");
	is($skill->getIDN(), 1234);
	is($skill->getHandle(), undef);
	is($skill->getSP(1), undef);
}
1;

						