开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
InventoryListTest.pm
资源名称：openkore-2.0.7.zip　[点击查看]
上传用户：market2
上传日期：2018-11-18
资源大小：18786k
文件大小：4k
源码类别：

外挂编程

开发平台：

Windows_Unix

InventoryListTest.pm：源码内容
  1. package InventoryListTest;
  3. # TODO: write test for deepCopy()
  5. use strict;
  6. use Test::More;
  7. use InventoryList;
  8. use Actor::Item;
  9. use ObjectListTest;
  10. use base qw(ObjectListTest);
  12. sub start {
  13. print "### Starting InventoryListTestn";
  14. InventoryListTest->new()->run();
  15. }
  17. #########################
  19. my $count = 0;
  21. sub run {
  22. my ($self) = @_;
  23. $self->SUPER::run();
  24. $self->testGetAndRemoveByName();
  25. $self->testNameChange();
  26. $self->testNonstackableItems();
  27. }
  29. # overloaded
  30. sub init {
  31. my ($self) = @_;
  32. $count = 0;
  33. $self->{list} = new InventoryList();
  34. for (my $i = 1; $i <= 6; $i++) {
  35. $self->{"item$i"} = $self->createTestObject();
  36. }
  37. is($self->{list}->size(), 0);
  38. $self->{list}->checkValidity();
  39. }
  41. # overloaded
  42. sub createTestObject {
  43. my ($self, $name) = @_;
  44. my $item = new Actor::Item();
  45. $count++;
  46. if (defined $name) {
  47. $item->{name} = $name;
  48. } else {
  49. $item->{name} = "Item $count";
  50. }
  51. return $item;
  52. }
  54. # overloaded
  55. sub testDuplicate {
  56. # Do nothing; InventoryList doesn't allow duplicates.
  57. }
  59. sub testGetAndRemoveByName {
  60. my ($self) = @_;
  61. $self->init();
  62. my $list = $self->{list};
  64. $list->add($self->{item1});
  65. $list->add($self->{item2});
  66. $list->add($self->{item3});
  67. is($list->size(), 3);
  68. ok($list->getByName($self->{item1}{name}) == $self->{item1});
  69. ok($list->getByName($self->{item2}{name}) == $self->{item2});
  70. ok($list->getByName($self->{item3}{name}) == $self->{item3});
  71. ok(!defined $list->getByName($self->{item4}{name}));
  72. ok(!defined $list->getByName($self->{item5}{name}));
  73. ok(!defined $list->getByName($self->{item6}{name}));
  74. $list->checkValidity();
  76. my $result = $list->removeByName($self->{item2}{name});
  77. ok($result);
  78. is($list->size(), 2);
  79. ok($list->getByName($self->{item1}{name}) == $self->{item1});
  80. ok(!defined $list->getByName($self->{item2}{name}));
  81. ok($list->getByName($self->{item3}{name}) == $self->{item3});
  82. ok(!defined $list->getByName($self->{item4}{name}));
  83. ok(!defined $list->getByName($self->{item5}{name}));
  84. ok(!defined $list->getByName($self->{item6}{name}));
  85. $list->checkValidity();
  87. my $result = $list->removeByName($self->{item2}{name});
  88. ok(!$result);
  89. is($list->size(), 2);
  90. ok($list->getByName($self->{item1}{name}) == $self->{item1});
  91. ok(!defined $list->getByName($self->{item2}{name}));
  92. ok($list->getByName($self->{item3}{name}) == $self->{item3});
  93. ok(!defined $list->getByName($self->{item4}{name}));
  94. ok(!defined $list->getByName($self->{item5}{name}));
  95. ok(!defined $list->getByName($self->{item6}{name}));
  96. $list->checkValidity();
  98. my $result = $list->removeByName($self->{item4}{name});
  99. ok(!$result);
  100. is($list->size(), 2);
  101. ok($list->getByName($self->{item1}{name}) == $self->{item1});
  102. ok(!defined $list->getByName($self->{item2}{name}));
  103. ok($list->getByName($self->{item3}{name}) == $self->{item3});
  104. ok(!defined $list->getByName($self->{item4}{name}));
  105. ok(!defined $list->getByName($self->{item5}{name}));
  106. ok(!defined $list->getByName($self->{item6}{name}));
  107. $list->checkValidity();
  108. }
  110. sub testNameChange {
  111. my ($self) = @_;
  112. $self->init();
  113. my $list = $self->{list};
  114. my $item1 = $self->{item1};
  115. my $item2 = $self->{item2};
  116. my $item3 = $self->{item3};
  118. $list->add($item1);
  119. $item1->setName("Jellopy");
  120. ok($list->getByName("Jellopy") == $item1);
  121. ok(!$list->getByName("Item 1"));
  122. $list->checkValidity();
  124. $list->add($item2);
  125. $list->add($item3);
  126. ok($list->getByName("Jellopy") == $item1);
  127. ok($list->getByName("Item 2") == $item2);
  128. ok($list->getByName("Item 3") == $item3);
  129. ok(!$list->getByName("Item 1"));
  130. $list->checkValidity();
  132. $item2->setName("Gold");
  133. ok($list->getByName("Jellopy") == $item1);
  134. ok($list->getByName("Gold") == $item2);
  135. ok($list->getByName("Item 3") == $item3);
  136. ok(!$list->getByName("Item 1"));
  137. ok(!$list->getByName("Item 2"));
  138. $list->checkValidity();
  140. ok($list->getByName("jellopy") == $item1);
  141. ok($list->getByName("gold") == $item2);
  142. ok($list->getByName("item 3") == $item3);
  143. }
  145. sub testNonstackableItems {
  146. my ($self) = @_;
  147. $self->init();
  148. my $list = $self->{list};
  149. my $item1 = $self->createTestObject("Sword");
  150. my $item2 = $self->createTestObject("Jellopy");
  151. my $item3 = $self->createTestObject("Sword");
  152. my $item4 = $self->createTestObject("Katana");
  153. my $tmp;
  155. $list->add($item1);
  156. $list->add($item2);
  157. $list->add($item3);
  158. $list->add($item4);
  159. is($list->size(), 4);
  160. $tmp = $list->getByName('Sword');
  161. ok($tmp == $item1 || $tmp == $item3);
  162. $list->checkValidity();
  163. }
  165. 1;