SUnit-Tests.js 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394
  1. smalltalk.addPackage('SUnit-Tests', {});
  2. smalltalk.addClass('SUnitAsyncTest', smalltalk.TestCase, ['flag'], 'SUnit-Tests');
  3. smalltalk.addMethod(
  4. "_fakeError",
  5. smalltalk.method({
  6. selector: "fakeError",
  7. category: 'tests',
  8. fn: function (){
  9. var self=this;
  10. self["@flag"]="bad";
  11. smalltalk.send(self,"_graceTime_",[(10)]);
  12. self["@flag"]=smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  13. self["@flag"]="ok";
  14. self["@flag"];
  15. return smalltalk.send(self,"_error_",["Intentional"]);
  16. })]),"_valueWithTimeout_",[(5)]);
  17. return self},
  18. args: [],
  19. source: "fakeError\x0a\x09flag := 'bad'.\x0a\x09self graceTime: 10.\x0a flag := (self async: [ flag := 'ok'. self error: 'Intentional' ]) valueWithTimeout: 5\x0a",
  20. messageSends: ["graceTime:", "valueWithTimeout:", "async:", "error:"],
  21. referencedClasses: []
  22. }),
  23. smalltalk.SUnitAsyncTest);
  24. smalltalk.addMethod(
  25. "_fakeErrorFailingInTearDown",
  26. smalltalk.method({
  27. selector: "fakeErrorFailingInTearDown",
  28. category: 'tests',
  29. fn: function (){
  30. var self=this;
  31. self["@flag"]="bad";
  32. smalltalk.send(self,"_graceTime_",[(10)]);
  33. self["@flag"]=smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  34. return smalltalk.send(self,"_error_",["Intentional"]);
  35. })]),"_valueWithTimeout_",[(5)]);
  36. return self},
  37. args: [],
  38. source: "fakeErrorFailingInTearDown\x0a\x09flag := 'bad'.\x0a\x09self graceTime: 10.\x0a flag := (self async: [ self error: 'Intentional' ]) valueWithTimeout: 5\x0a",
  39. messageSends: ["graceTime:", "valueWithTimeout:", "async:", "error:"],
  40. referencedClasses: []
  41. }),
  42. smalltalk.SUnitAsyncTest);
  43. smalltalk.addMethod(
  44. "_fakeFailure",
  45. smalltalk.method({
  46. selector: "fakeFailure",
  47. category: 'tests',
  48. fn: function (){
  49. var self=this;
  50. self["@flag"]="bad";
  51. smalltalk.send(self,"_graceTime_",[(10)]);
  52. self["@flag"]=smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  53. self["@flag"]="ok";
  54. self["@flag"];
  55. return smalltalk.send(self,"_assert_",[false]);
  56. })]),"_valueWithTimeout_",[(5)]);
  57. return self},
  58. args: [],
  59. source: "fakeFailure\x0a\x09flag := 'bad'.\x0a\x09self graceTime: 10.\x0a flag := (self async: [ flag := 'ok'. self assert: false ]) valueWithTimeout: 5\x0a",
  60. messageSends: ["graceTime:", "valueWithTimeout:", "async:", "assert:"],
  61. referencedClasses: []
  62. }),
  63. smalltalk.SUnitAsyncTest);
  64. smalltalk.addMethod(
  65. "_fakeMultipleGraceTimeFailing",
  66. smalltalk.method({
  67. selector: "fakeMultipleGraceTimeFailing",
  68. category: 'tests',
  69. fn: function (){
  70. var self=this;
  71. smalltalk.send(self,"_graceTime_",[(100)]);
  72. smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  73. smalltalk.send(self,"_graceTime_",[(5)]);
  74. return smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  75. return smalltalk.send(self,"_finished",[]);
  76. })]),"_valueWithTimeout_",[(10)]);
  77. })]),"_valueWithTimeout_",[(5)]);
  78. return self},
  79. args: [],
  80. source: "fakeMultipleGraceTimeFailing\x0a\x09self graceTime: 100.\x0a (self async: [\x0a\x09\x09self graceTime: 5.\x0a (self async: [ self finished ]) valueWithTimeout: 10\x0a\x09]) valueWithTimeout: 5\x0a",
  81. messageSends: ["graceTime:", "valueWithTimeout:", "async:", "finished"],
  82. referencedClasses: []
  83. }),
  84. smalltalk.SUnitAsyncTest);
  85. smalltalk.addMethod(
  86. "_fakeMultipleGraceTimePassing",
  87. smalltalk.method({
  88. selector: "fakeMultipleGraceTimePassing",
  89. category: 'tests',
  90. fn: function (){
  91. var self=this;
  92. smalltalk.send(self,"_graceTime_",[(10)]);
  93. smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  94. smalltalk.send(self,"_graceTime_",[(20)]);
  95. return smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  96. return smalltalk.send(self,"_finished",[]);
  97. })]),"_valueWithTimeout_",[(10)]);
  98. })]),"_valueWithTimeout_",[(5)]);
  99. return self},
  100. args: [],
  101. source: "fakeMultipleGraceTimePassing\x0a\x09self graceTime: 10.\x0a (self async: [\x0a\x09\x09self graceTime: 20.\x0a (self async: [ self finished ]) valueWithTimeout: 10\x0a\x09]) valueWithTimeout: 5\x0a",
  102. messageSends: ["graceTime:", "valueWithTimeout:", "async:", "finished"],
  103. referencedClasses: []
  104. }),
  105. smalltalk.SUnitAsyncTest);
  106. smalltalk.addMethod(
  107. "_fakeTimeout",
  108. smalltalk.method({
  109. selector: "fakeTimeout",
  110. category: 'tests',
  111. fn: function (){
  112. var self=this;
  113. smalltalk.send(self,"_graceTime_",[(4)]);
  114. smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  115. return smalltalk.send(self,"_finished",[]);
  116. })]),"_valueWithTimeout_",[(5)]);
  117. return self},
  118. args: [],
  119. source: "fakeTimeout\x0a\x09self graceTime: 4.\x0a (self async: [ self finished ]) valueWithTimeout: 5\x0a",
  120. messageSends: ["graceTime:", "valueWithTimeout:", "async:", "finished"],
  121. referencedClasses: []
  122. }),
  123. smalltalk.SUnitAsyncTest);
  124. smalltalk.addMethod(
  125. "_setUp",
  126. smalltalk.method({
  127. selector: "setUp",
  128. category: 'running',
  129. fn: function (){
  130. var self=this;
  131. self["@flag"]="ok";
  132. return self},
  133. args: [],
  134. source: "setUp\x0a\x09flag := 'ok'\x0a",
  135. messageSends: [],
  136. referencedClasses: []
  137. }),
  138. smalltalk.SUnitAsyncTest);
  139. smalltalk.addMethod(
  140. "_sortedSelectors_",
  141. smalltalk.method({
  142. selector: "sortedSelectors:",
  143. category: 'private',
  144. fn: function (aCollection){
  145. var self=this;
  146. var $1;
  147. $1=smalltalk.send(smalltalk.send(aCollection,"_collect_",[(function(each){
  148. return smalltalk.send(each,"_selector",[]);
  149. })]),"_sorted",[]);
  150. return $1;
  151. },
  152. args: ["aCollection"],
  153. source: "sortedSelectors: aCollection\x0a\x09^(aCollection collect: [:each | each selector]) sorted",
  154. messageSends: ["sorted", "collect:", "selector"],
  155. referencedClasses: []
  156. }),
  157. smalltalk.SUnitAsyncTest);
  158. smalltalk.addMethod(
  159. "_tearDown",
  160. smalltalk.method({
  161. selector: "tearDown",
  162. category: 'running',
  163. fn: function (){
  164. var self=this;
  165. smalltalk.send(self,"_assert_equals_",["ok",self["@flag"]]);
  166. return self},
  167. args: [],
  168. source: "tearDown\x0a\x09self assert: 'ok' equals: flag\x0a",
  169. messageSends: ["assert:equals:"],
  170. referencedClasses: []
  171. }),
  172. smalltalk.SUnitAsyncTest);
  173. smalltalk.addMethod(
  174. "_testAsyncErrorsAndFailures",
  175. smalltalk.method({
  176. selector: "testAsyncErrorsAndFailures",
  177. category: 'tests',
  178. fn: function (){
  179. var self=this;
  180. var $1,$2,$4,$6,$5,$3;
  181. var suite;
  182. var runner;
  183. var result;
  184. var assertBlock;
  185. suite=smalltalk.send(["fakeError", "fakeErrorFailingInTearDown", "fakeFailure", "testPass"],"_collect_",[(function(each){
  186. return smalltalk.send(smalltalk.send(self,"_class",[]),"_selector_",[each]);
  187. })]);
  188. runner=smalltalk.send((smalltalk.TestSuiteRunner || TestSuiteRunner),"_on_",[suite]);
  189. smalltalk.send(self,"_graceTime_",[(200)]);
  190. result=smalltalk.send(runner,"_result",[]);
  191. assertBlock=smalltalk.send(self,"_async_",[(function(){
  192. smalltalk.send(self,"_assert_equals_",[["fakeError"],smalltalk.send(self,"_sortedSelectors_",[smalltalk.send(result,"_errors",[])])]);
  193. smalltalk.send(self,"_assert_equals_",[["fakeErrorFailingInTearDown", "fakeFailure"],smalltalk.send(self,"_sortedSelectors_",[smalltalk.send(result,"_failures",[])])]);
  194. return smalltalk.send(self,"_finished",[]);
  195. })]);
  196. $1=smalltalk.send(runner,"_announcer",[]);
  197. $2=(smalltalk.ResultAnnouncement || ResultAnnouncement);
  198. $3=(function(ann){
  199. $4=smalltalk.send(smalltalk.send(ann,"_result",[]),"__eq_eq",[result]);
  200. $5=(function(){
  201. $6=smalltalk.send(smalltalk.send(result,"_runs",[]),"__eq",[smalltalk.send(result,"_total",[])]);
  202. return smalltalk.send($6,"_ifTrue_",[assertBlock]);
  203. });
  204. return smalltalk.send($4,"_ifTrue_",[$5]);
  205. });
  206. smalltalk.send($1,"_on_do_",[$2,$3]);
  207. smalltalk.send(runner,"_run",[]);
  208. return self},
  209. args: [],
  210. source: "testAsyncErrorsAndFailures\x0a\x09| suite runner result assertBlock |\x0a\x09suite := #('fakeError' 'fakeErrorFailingInTearDown' 'fakeFailure' 'testPass') collect: [ :each | self class selector: each ].\x0a runner := TestSuiteRunner on: suite.\x0a self graceTime: 200.\x0a\x09result := runner result.\x0a assertBlock := self async: [\x0a\x09\x09self assert: #('fakeError') equals: (self sortedSelectors: result errors).\x0a\x09\x09self assert: #('fakeErrorFailingInTearDown' 'fakeFailure') equals: (self sortedSelectors: result failures).\x0a\x09\x09self finished\x0a \x09].\x0a runner announcer on: ResultAnnouncement do: [:ann |\x0a \x09ann result == result ifTrue: [ result runs = result total ifTrue: assertBlock ]].\x0a\x09runner run",
  211. messageSends: ["collect:", "selector:", "class", "on:", "graceTime:", "result", "async:", "assert:equals:", "sortedSelectors:", "errors", "failures", "finished", "on:do:", "ifTrue:", "=", "total", "runs", "==", "announcer", "run"],
  212. referencedClasses: ["TestSuiteRunner", "ResultAnnouncement"]
  213. }),
  214. smalltalk.SUnitAsyncTest);
  215. smalltalk.addMethod(
  216. "_testAsyncNeedsGraceTime",
  217. smalltalk.method({
  218. selector: "testAsyncNeedsGraceTime",
  219. category: 'tests',
  220. fn: function (){
  221. var self=this;
  222. smalltalk.send(self,"_should_raise_",[(function(){
  223. return smalltalk.send(self,"_async_",[(function(){
  224. })]);
  225. }),(smalltalk.Error || Error)]);
  226. smalltalk.send(self,"_graceTime_",[(0)]);
  227. smalltalk.send(self,"_shouldnt_raise_",[(function(){
  228. return smalltalk.send(self,"_async_",[(function(){
  229. })]);
  230. }),(smalltalk.Error || Error)]);
  231. smalltalk.send(self,"_finished",[]);
  232. return self},
  233. args: [],
  234. source: "testAsyncNeedsGraceTime\x0a self should: [ self async: [ ] ] raise: Error.\x0a self graceTime: 0.\x0a self shouldnt: [ self async: [ ] ] raise: Error.\x0a self finished\x0a",
  235. messageSends: ["should:raise:", "async:", "graceTime:", "shouldnt:raise:", "finished"],
  236. referencedClasses: ["Error"]
  237. }),
  238. smalltalk.SUnitAsyncTest);
  239. smalltalk.addMethod(
  240. "_testFinishedNeedsGraceTime",
  241. smalltalk.method({
  242. selector: "testFinishedNeedsGraceTime",
  243. category: 'tests',
  244. fn: function (){
  245. var self=this;
  246. smalltalk.send(self,"_should_raise_",[(function(){
  247. return smalltalk.send(self,"_finished",[]);
  248. }),(smalltalk.Error || Error)]);
  249. smalltalk.send(self,"_graceTime_",[(0)]);
  250. smalltalk.send(self,"_shouldnt_raise_",[(function(){
  251. return smalltalk.send(self,"_finished",[]);
  252. }),(smalltalk.Error || Error)]);
  253. return self},
  254. args: [],
  255. source: "testFinishedNeedsGraceTime\x0a self should: [ self finished ] raise: Error.\x0a self graceTime: 0.\x0a self shouldnt: [ self finished ] raise: Error.\x0a",
  256. messageSends: ["should:raise:", "finished", "graceTime:", "shouldnt:raise:"],
  257. referencedClasses: ["Error"]
  258. }),
  259. smalltalk.SUnitAsyncTest);
  260. smalltalk.addMethod(
  261. "_testIsAsyncReturnsCorrectValues",
  262. smalltalk.method({
  263. selector: "testIsAsyncReturnsCorrectValues",
  264. category: 'tests',
  265. fn: function (){
  266. var self=this;
  267. smalltalk.send(self,"_deny_",[smalltalk.send(self,"_isAsync",[])]);
  268. smalltalk.send(self,"_graceTime_",[(0)]);
  269. smalltalk.send(self,"_assert_",[smalltalk.send(self,"_isAsync",[])]);
  270. smalltalk.send(self,"_finished",[]);
  271. smalltalk.send(self,"_deny_",[smalltalk.send(self,"_isAsync",[])]);
  272. return self},
  273. args: [],
  274. source: "testIsAsyncReturnsCorrectValues\x0a self deny: self isAsync.\x0a self graceTime: 0.\x0a self assert: self isAsync.\x0a self finished.\x0a self deny: self isAsync\x0a",
  275. messageSends: ["deny:", "isAsync", "graceTime:", "assert:", "finished"],
  276. referencedClasses: []
  277. }),
  278. smalltalk.SUnitAsyncTest);
  279. smalltalk.addMethod(
  280. "_testPass",
  281. smalltalk.method({
  282. selector: "testPass",
  283. category: 'tests',
  284. fn: function (){
  285. var self=this;
  286. self["@flag"]="bad";
  287. smalltalk.send(self,"_graceTime_",[(10)]);
  288. self["@flag"]=smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  289. smalltalk.send(self,"_assert_",[true]);
  290. smalltalk.send(self,"_finished",[]);
  291. self["@flag"]="ok";
  292. return self["@flag"];
  293. })]),"_valueWithTimeout_",[(5)]);
  294. return self},
  295. args: [],
  296. source: "testPass\x0a\x09flag := 'bad'.\x0a\x09self graceTime: 10.\x0a flag := (self async: [ self assert: true. self finished. flag := 'ok' ]) valueWithTimeout: 5\x0a",
  297. messageSends: ["graceTime:", "valueWithTimeout:", "async:", "assert:", "finished"],
  298. referencedClasses: []
  299. }),
  300. smalltalk.SUnitAsyncTest);
  301. smalltalk.addMethod(
  302. "_testTimeouts",
  303. smalltalk.method({
  304. selector: "testTimeouts",
  305. category: 'tests',
  306. fn: function (){
  307. var self=this;
  308. var $1,$2,$4,$6,$5,$3;
  309. var suite;
  310. var runner;
  311. var result;
  312. var assertBlock;
  313. suite=smalltalk.send(["fakeTimeout", "fakeMultipleGraceTimeFailing", "fakeMultipleGraceTimePassing", "testPass"],"_collect_",[(function(each){
  314. return smalltalk.send(smalltalk.send(self,"_class",[]),"_selector_",[each]);
  315. })]);
  316. runner=smalltalk.send((smalltalk.TestSuiteRunner || TestSuiteRunner),"_on_",[suite]);
  317. smalltalk.send(self,"_graceTime_",[(200)]);
  318. result=smalltalk.send(runner,"_result",[]);
  319. assertBlock=smalltalk.send(self,"_async_",[(function(){
  320. smalltalk.send(self,"_assert_",[smalltalk.send(smalltalk.send(result,"_errors",[]),"_isEmpty",[])]);
  321. smalltalk.send(self,"_assert_equals_",[["fakeMultipleGraceTimeFailing", "fakeTimeout"],smalltalk.send(self,"_sortedSelectors_",[smalltalk.send(result,"_failures",[])])]);
  322. return smalltalk.send(self,"_finished",[]);
  323. })]);
  324. $1=smalltalk.send(runner,"_announcer",[]);
  325. $2=(smalltalk.ResultAnnouncement || ResultAnnouncement);
  326. $3=(function(ann){
  327. $4=smalltalk.send(smalltalk.send(ann,"_result",[]),"__eq_eq",[result]);
  328. $5=(function(){
  329. $6=smalltalk.send(smalltalk.send(result,"_runs",[]),"__eq",[smalltalk.send(result,"_total",[])]);
  330. return smalltalk.send($6,"_ifTrue_",[assertBlock]);
  331. });
  332. return smalltalk.send($4,"_ifTrue_",[$5]);
  333. });
  334. smalltalk.send($1,"_on_do_",[$2,$3]);
  335. smalltalk.send(runner,"_run",[]);
  336. return self},
  337. args: [],
  338. source: "testTimeouts\x0a\x09| suite runner result assertBlock |\x0a\x09suite := #('fakeTimeout' 'fakeMultipleGraceTimeFailing' 'fakeMultipleGraceTimePassing' 'testPass') collect: [ :each | self class selector: each ].\x0a runner := TestSuiteRunner on: suite.\x0a self graceTime: 200.\x0a\x09result := runner result.\x0a assertBlock := self async: [\x0a\x09\x09self assert: result errors isEmpty.\x0a\x09\x09self assert: #('fakeMultipleGraceTimeFailing' 'fakeTimeout') equals: (self sortedSelectors: result failures).\x0a\x09\x09self finished\x0a \x09].\x0a runner announcer on: ResultAnnouncement do: [:ann |\x0a \x09ann result == result ifTrue: [ result runs = result total ifTrue: assertBlock ]].\x0a\x09runner run",
  339. messageSends: ["collect:", "selector:", "class", "on:", "graceTime:", "result", "async:", "assert:", "isEmpty", "errors", "assert:equals:", "sortedSelectors:", "failures", "finished", "on:do:", "ifTrue:", "=", "total", "runs", "==", "announcer", "run"],
  340. referencedClasses: ["TestSuiteRunner", "ResultAnnouncement"]
  341. }),
  342. smalltalk.SUnitAsyncTest);
  343. smalltalk.addMethod(
  344. "_testTwoAsyncPassesWithFinishedOnlyOneIsRun",
  345. smalltalk.method({
  346. selector: "testTwoAsyncPassesWithFinishedOnlyOneIsRun",
  347. category: 'tests',
  348. fn: function (){
  349. var self=this;
  350. var x;
  351. self["@flag"]="bad";
  352. smalltalk.send(self,"_graceTime_",[(10)]);
  353. x=(0);
  354. self["@flag"]=smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  355. smalltalk.send(self,"_finished",[]);
  356. self["@flag"]="ok";
  357. self["@flag"];
  358. x=smalltalk.send(x,"__plus",[(1)]);
  359. x;
  360. return smalltalk.send(self,"_assert_equals_",[(1),x]);
  361. })]),"_valueWithTimeout_",[(0)]);
  362. self["@flag"]=smalltalk.send(smalltalk.send(self,"_async_",[(function(){
  363. smalltalk.send(self,"_finished",[]);
  364. self["@flag"]="ok";
  365. self["@flag"];
  366. x=smalltalk.send(x,"__plus",[(1)]);
  367. x;
  368. return smalltalk.send(self,"_assert_equals_",[(1),x]);
  369. })]),"_valueWithTimeout_",[(0)]);
  370. return self},
  371. args: [],
  372. source: "testTwoAsyncPassesWithFinishedOnlyOneIsRun\x0a\x09| x |\x0a\x09flag := 'bad'.\x0a\x09self graceTime: 10.\x0a x := 0.\x0a flag := (self async: [ self finished. flag := 'ok'. x := x+1. self assert: 1 equals: x ]) valueWithTimeout: 0.\x0a flag := (self async: [ self finished. flag := 'ok'. x := x+1. self assert: 1 equals: x ]) valueWithTimeout: 0.\x0a",
  373. messageSends: ["graceTime:", "valueWithTimeout:", "async:", "finished", "+", "assert:equals:"],
  374. referencedClasses: []
  375. }),
  376. smalltalk.SUnitAsyncTest);