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

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

外挂编程

开发平台：

Windows_Unix

ObjectListTest.pm：源码内容
  1. package ObjectListTest;
  3. use strict;
  4. use Test::More;
  5. use Utils::ObjectList;
  7. {
  8. # A random class that's only used for testing ObjectList.
  9. package ObjectListTest::Object;
  10. sub new {
  11. return bless {}, $_[0];
  12. }
  13. }
  15. sub start {
  16. print "### Starting ObjectListTestn";
  17. ObjectListTest->new()->run();
  18. }
  20. ###################################
  22. sub new {
  23. my ($class) = @_;
  24. return bless {}, $class;
  25. }
  27. # Run the test.
  28. sub run {
  29. my ($self) = @_;
  30. $self->testAdd();
  31. $self->testClear();
  32. $self->testRemove();
  33. $self->testClear();
  34. $self->testDuplicate();
  35. }
  37. # Reset to the initial condition.
  38. sub init {
  39. my ($self) = @_;
  40. $self->{list} = new ObjectList;
  41. for (my $i = 1; $i <= 6; $i++) {
  42. $self->{"item$i"} = $self->createTestObject();
  43. }
  44. is($self->{list}->size(), 0);
  45. $self->{list}->checkValidity();
  46. }
  48. sub createTestObject {
  49. return new ObjectListTest::Object;
  50. }
  52. sub testAdd {
  53. my ($self) = @_;
  54. $self->init();
  55. my %indices;
  56. my @items;
  57. my $addCalled = 0;
  59. my $sub = sub {
  60. my $arg = $_[2];
  61. ok($arg->[0] == $items[$#items]);
  62. $addCalled++;
  63. };
  64. my $ID = $self->{list}->onAdd()->add(undef, $sub);
  66. for (my $i = 0; $i < 10; $i++) {
  67. my $item = $self->createTestObject();
  68. push @items, $item;
  70. my $index = $self->{list}->add($item);
  71. is($self->{list}->size(), $i + 1);
  72. $self->{list}->checkValidity();
  74. # Test whether previous indices didn't change.
  75. for (my $j = 0; $j < $i; $j++) {
  76. ok($self->{list}->get($j) == $items[$j]);
  77. }
  79. # Test whether we don't get duplicate indices.
  80. ok(!exists $indices{$index});
  81. $indices{$index} = 1;
  82. }
  84. is_deeply($self->{list}->getItems(), @items);
  85. $self->{list}->onAdd()->remove($ID);
  86. }
  88. sub testRemove {
  89. my ($self) = @_;
  90. $self->init();
  92. my $index1 = $self->{list}->add($self->{item1});
  93. my $index2 = $self->{list}->add($self->{item2});
  94. my $index3 = $self->{list}->add($self->{item3});
  95. my $index4 = $self->{list}->add($self->{item4});
  96. my $index5 = $self->{list}->add($self->{item5});
  97. my ($deletedItem, $deletedIndex);
  99. my $sub = sub {
  100. my $arg = $_[2];
  101. ok($arg->[0] == $deletedItem);
  102. };
  103. $self->{list}->onRemove()->add(undef, $sub);
  105. # Delete item 2
  106. $deletedItem = $self->{item2};
  107. $deletedIndex = $index2;
  108. $self->{list}->remove($deletedItem);
  109. is($self->{list}->size(), 4);
  110. ok($self->{list}->get($index1) == $self->{item1});
  111. ok(!defined $self->{list}->get($index2));
  112. ok($self->{list}->get($index3) == $self->{item3});
  113. ok($self->{list}->get($index4) == $self->{item4});
  114. ok($self->{list}->get($index5) == $self->{item5});
  115. is($self->{list}->find($self->{item1}), $index1);
  116. is($self->{list}->find($self->{item2}), -1);
  117. is($self->{list}->find($self->{item3}), $index3);
  118. is($self->{list}->find($self->{item4}), $index4);
  119. is($self->{list}->find($self->{item5}), $index5);
  120. is($self->{list}->find($self->{item6}), -1);
  121. is_deeply($self->{list}->getItems(), [$self->{item1}, $self->{item3}, $self->{item4}, $self->{item5}]);
  122. $self->{list}->checkValidity();
  124. # Delete item 4
  125. $deletedItem = $self->{item4};
  126. $deletedIndex = $index4;
  127. $self->{list}->remove($deletedItem);
  128. is($self->{list}->size(), 3);
  129. ok($self->{list}->get($index1) == $self->{item1});
  130. ok(!defined $self->{list}->get($index2));
  131. ok($self->{list}->get($index3) == $self->{item3});
  132. ok(!defined $self->{list}->get($index4));
  133. ok($self->{list}->get($index5) == $self->{item5});
  134. is($self->{list}->find($self->{item1}), $index1);
  135. is($self->{list}->find($self->{item2}), -1);
  136. is($self->{list}->find($self->{item3}), $index3);
  137. is($self->{list}->find($self->{item4}), -1);
  138. is($self->{list}->find($self->{item5}), $index5);
  139. is($self->{list}->find($self->{item6}), -1);
  140. is_deeply($self->{list}->getItems(), [$self->{item1}, $self->{item3}, $self->{item5}]);
  141. $self->{list}->checkValidity();
  143. # Put back item 2
  144. my $index = $self->{list}->add($self->{item2});
  145. is($index, $index2);
  146. is($self->{list}->size(), 4);
  147. ok($self->{list}->get($index1) == $self->{item1});
  148. ok($self->{list}->get($index2) == $self->{item2});
  149. ok($self->{list}->get($index3) == $self->{item3});
  150. ok(!defined $self->{list}->get($index4));
  151. ok($self->{list}->get($index5) == $self->{item5});
  152. is($self->{list}->find($self->{item1}), $index1);
  153. is($self->{list}->find($self->{item2}), $index2);
  154. is($self->{list}->find($self->{item3}), $index3);
  155. is($self->{list}->find($self->{item4}), -1);
  156. is($self->{list}->find($self->{item5}), $index5);
  157. is($self->{list}->find($self->{item6}), -1);
  158. is_deeply($self->{list}->getItems(), [$self->{item1}, $self->{item2}, $self->{item3}, $self->{item5}]);
  159. $self->{list}->checkValidity();
  161. # Remove nonexistant item
  162. ok(!$self->{list}->remove($self->{item6}));
  163. is($self->{list}->size(), 4);
  164. ok($self->{list}->get($index1) == $self->{item1});
  165. ok($self->{list}->get($index2) == $self->{item2});
  166. ok($self->{list}->get($index3) == $self->{item3});
  167. ok(!defined $self->{list}->get($index4));
  168. ok($self->{list}->get($index5) == $self->{item5});
  169. is($self->{list}->find($self->{item1}), $index1);
  170. is($self->{list}->find($self->{item2}), $index2);
  171. is($self->{list}->find($self->{item3}), $index3);
  172. is($self->{list}->find($self->{item4}), -1);
  173. is($self->{list}->find($self->{item5}), $index5);
  174. is($self->{list}->find($self->{item6}), -1);
  175. is_deeply($self->{list}->getItems(), [$self->{item1}, $self->{item2}, $self->{item3}, $self->{item5}]);
  176. $self->{list}->checkValidity();
  178. # Put back item 4
  179. $index = $self->{list}->add($self->{item4});
  180. is($index, $index4);
  181. is($self->{list}->size(), 5);
  182. ok($self->{list}->get($index1) == $self->{item1});
  183. ok($self->{list}->get($index2) == $self->{item2});
  184. ok($self->{list}->get($index3) == $self->{item3});
  185. ok($self->{list}->get($index4) == $self->{item4});
  186. ok($self->{list}->get($index5) == $self->{item5});
  187. is($self->{list}->find($self->{item1}), $index1);
  188. is($self->{list}->find($self->{item2}), $index2);
  189. is($self->{list}->find($self->{item3}), $index3);
  190. is($self->{list}->find($self->{item4}), $index4);
  191. is($self->{list}->find($self->{item5}), $index5);
  192. is($self->{list}->find($self->{item6}), -1);
  193. is_deeply($self->{list}->getItems(), [$self->{item1}, $self->{item2}, $self->{item3}, $self->{item4}, $self->{item5}]);
  194. $self->{list}->checkValidity();
  195. }
  197. sub testClear {
  198. my ($self) = @_;
  199. my $clearBeginCalled = 0;
  200. my $clearEndCalled = 0;
  201. my $oldSize;
  203. my $sub1 = sub {
  204. $clearBeginCalled++;
  205. is($self->{list}->size(), $oldSize);
  206. };
  207. my $sub2 = sub {
  208. $clearEndCalled++;
  209. };
  211. my $ID1 = $self->{list}->onClearBegin()->add(undef, $sub1);
  212. my $ID2 = $self->{list}->onClearBegin()->add(undef, $sub2);
  213. $oldSize = $self->{list}->size();
  214. $self->{list}->clear();
  215. $self->{list}->onClearBegin()->remove($ID1);
  216. $self->{list}->onClearBegin()->remove($ID2);
  218. is($clearBeginCalled, 1);
  219. is($clearEndCalled, 1);
  220. is($self->{list}->size(), 0);
  221. $self->{list}->checkValidity();
  222. for (my $i = 0; $i < 15; $i++) {
  223. ok(!defined $self->{list}->get($i));
  224. }
  225. is_deeply($self->{list}->getItems(), []);
  226. }
  228. # Test addition and removal of duplicate items.
  229. sub testDuplicate {
  230. my ($self) = @_;
  232. $self->init();
  233. my $index1 = $self->{list}->add($self->{item1});
  234. my $index2 = $self->{list}->add($self->{item2});
  235. my $index3 = $self->{list}->add($self->{item1});
  236. my $index4 = $self->{list}->add($self->{item3});
  238. $self->{list}->remove($self->{item1});
  239. $self->{list}->remove($self->{item2});
  240. is($self->{list}->size(), 2);
  241. ok(!defined $self->{list}->get($index1));
  242. ok(!defined $self->{list}->get($index2));
  243. ok($self->{list}->get($index3) == $self->{item1});
  244. ok($self->{list}->get($index4) == $self->{item3});
  245. is_deeply($self->{list}->getItems(), [$self->{item1}, $self->{item3}]);
  246. $self->{list}->checkValidity();
  247. }
  249. 1;