Helios-Commands-SUnit.js 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628
  1. define("helios/Helios-Commands-SUnit", ["amber/boot", "helios/Helios-Commands-Tools"], function($boot){"use strict";
  2. var $core=$boot.api,nil=$boot.nil,$recv=$boot.asReceiver,$globals=$boot.globals;
  3. $core.addPackage('Helios-Commands-SUnit');
  4. $core.packages["Helios-Commands-SUnit"].innerEval = function (expr) { return eval(expr); };
  5. $core.packages["Helios-Commands-SUnit"].transport = {"type":"amd","amdNamespace":"helios"};
  6. $core.addClass('HLSUnitCommand', $globals.HLToolCommand, [], 'Helios-Commands-SUnit');
  7. //>>excludeStart("ide", pragmas.excludeIdeData);
  8. $globals.HLSUnitCommand.comment="I group the commands pertaining to Helios-SUnit (`HLSUnitModel`)";
  9. //>>excludeEnd("ide");
  10. $core.addMethod(
  11. $core.method({
  12. selector: "isValidFor:",
  13. protocol: 'testing',
  14. fn: function (aModel){
  15. var self=this;
  16. function $HLSUnitModel(){return $globals.HLSUnitModel||(typeof HLSUnitModel=="undefined"?nil:HLSUnitModel)}
  17. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  18. return $core.withContext(function($ctx1) {
  19. //>>excludeEnd("ctx");
  20. var $1;
  21. $1=$recv(aModel)._isKindOf_($HLSUnitModel());
  22. return $1;
  23. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  24. }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},$globals.HLSUnitCommand.klass)});
  25. //>>excludeEnd("ctx");
  26. },
  27. //>>excludeStart("ide", pragmas.excludeIdeData);
  28. args: ["aModel"],
  29. source: "isValidFor: aModel\x0a\x09^ aModel isKindOf: HLSUnitModel",
  30. referencedClasses: ["HLSUnitModel"],
  31. //>>excludeEnd("ide");
  32. messageSends: ["isKindOf:"]
  33. }),
  34. $globals.HLSUnitCommand.klass);
  35. $core.addClass('HLSUnitInvertSelectedCommand', $globals.HLSUnitCommand, [], 'Helios-Commands-SUnit');
  36. //>>excludeStart("ide", pragmas.excludeIdeData);
  37. $globals.HLSUnitInvertSelectedCommand.comment="I group the commands that invert selections";
  38. //>>excludeEnd("ide");
  39. $core.addMethod(
  40. $core.method({
  41. selector: "key",
  42. protocol: 'accessing',
  43. fn: function (){
  44. var self=this;
  45. return "i";
  46. },
  47. //>>excludeStart("ide", pragmas.excludeIdeData);
  48. args: [],
  49. source: "key\x0a\x09^ 'i'",
  50. referencedClasses: [],
  51. //>>excludeEnd("ide");
  52. messageSends: []
  53. }),
  54. $globals.HLSUnitInvertSelectedCommand.klass);
  55. $core.addMethod(
  56. $core.method({
  57. selector: "label",
  58. protocol: 'accessing',
  59. fn: function (){
  60. var self=this;
  61. return "Invert selection";
  62. },
  63. //>>excludeStart("ide", pragmas.excludeIdeData);
  64. args: [],
  65. source: "label\x0a\x09^'Invert selection'",
  66. referencedClasses: [],
  67. //>>excludeEnd("ide");
  68. messageSends: []
  69. }),
  70. $globals.HLSUnitInvertSelectedCommand.klass);
  71. $core.addClass('HLSUnitInvertSelectedClassesCommand', $globals.HLSUnitInvertSelectedCommand, [], 'Helios-Commands-SUnit');
  72. //>>excludeStart("ide", pragmas.excludeIdeData);
  73. $globals.HLSUnitInvertSelectedClassesCommand.comment="Invert the currently selected classes on a `HLSUnitModel`";
  74. //>>excludeEnd("ide");
  75. $core.addMethod(
  76. $core.method({
  77. selector: "category",
  78. protocol: 'accessing',
  79. fn: function (){
  80. var self=this;
  81. return "Classes";
  82. },
  83. //>>excludeStart("ide", pragmas.excludeIdeData);
  84. args: [],
  85. source: "category\x0a\x09^'Classes'",
  86. referencedClasses: [],
  87. //>>excludeEnd("ide");
  88. messageSends: []
  89. }),
  90. $globals.HLSUnitInvertSelectedClassesCommand);
  91. $core.addMethod(
  92. $core.method({
  93. selector: "execute",
  94. protocol: 'executing',
  95. fn: function (){
  96. var self=this;
  97. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  98. return $core.withContext(function($ctx1) {
  99. //>>excludeEnd("ctx");
  100. $recv(self._model())._invertSelectedClasses();
  101. return self;
  102. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  103. }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLSUnitInvertSelectedClassesCommand)});
  104. //>>excludeEnd("ctx");
  105. },
  106. //>>excludeStart("ide", pragmas.excludeIdeData);
  107. args: [],
  108. source: "execute\x0a\x09self model invertSelectedClasses",
  109. referencedClasses: [],
  110. //>>excludeEnd("ide");
  111. messageSends: ["invertSelectedClasses", "model"]
  112. }),
  113. $globals.HLSUnitInvertSelectedClassesCommand);
  114. $core.addMethod(
  115. $core.method({
  116. selector: "isActive",
  117. protocol: 'testing',
  118. fn: function (){
  119. var self=this;
  120. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  121. return $core.withContext(function($ctx1) {
  122. //>>excludeEnd("ctx");
  123. var $1;
  124. $1=$recv($recv(self["@model"])._selectedPackages())._notEmpty();
  125. return $1;
  126. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  127. }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLSUnitInvertSelectedClassesCommand)});
  128. //>>excludeEnd("ctx");
  129. },
  130. //>>excludeStart("ide", pragmas.excludeIdeData);
  131. args: [],
  132. source: "isActive\x0a\x09^model selectedPackages notEmpty",
  133. referencedClasses: [],
  134. //>>excludeEnd("ide");
  135. messageSends: ["notEmpty", "selectedPackages"]
  136. }),
  137. $globals.HLSUnitInvertSelectedClassesCommand);
  138. $core.addMethod(
  139. $core.method({
  140. selector: "key",
  141. protocol: 'accessing',
  142. fn: function (){
  143. var self=this;
  144. return "c";
  145. },
  146. //>>excludeStart("ide", pragmas.excludeIdeData);
  147. args: [],
  148. source: "key\x0a\x09^ 'c'",
  149. referencedClasses: [],
  150. //>>excludeEnd("ide");
  151. messageSends: []
  152. }),
  153. $globals.HLSUnitInvertSelectedClassesCommand.klass);
  154. $core.addMethod(
  155. $core.method({
  156. selector: "label",
  157. protocol: 'accessing',
  158. fn: function (){
  159. var self=this;
  160. return "Invert selected classes";
  161. },
  162. //>>excludeStart("ide", pragmas.excludeIdeData);
  163. args: [],
  164. source: "label\x0a\x09^ 'Invert selected classes'",
  165. referencedClasses: [],
  166. //>>excludeEnd("ide");
  167. messageSends: []
  168. }),
  169. $globals.HLSUnitInvertSelectedClassesCommand.klass);
  170. $core.addClass('HLSUnitInvertSelectedPackagesCommand', $globals.HLSUnitInvertSelectedCommand, [], 'Helios-Commands-SUnit');
  171. //>>excludeStart("ide", pragmas.excludeIdeData);
  172. $globals.HLSUnitInvertSelectedPackagesCommand.comment="Invert the currently selected packages on a `HLSUnitModel`";
  173. //>>excludeEnd("ide");
  174. $core.addMethod(
  175. $core.method({
  176. selector: "category",
  177. protocol: 'accessing',
  178. fn: function (){
  179. var self=this;
  180. return "Packages";
  181. },
  182. //>>excludeStart("ide", pragmas.excludeIdeData);
  183. args: [],
  184. source: "category\x0a\x09^'Packages'",
  185. referencedClasses: [],
  186. //>>excludeEnd("ide");
  187. messageSends: []
  188. }),
  189. $globals.HLSUnitInvertSelectedPackagesCommand);
  190. $core.addMethod(
  191. $core.method({
  192. selector: "execute",
  193. protocol: 'executing',
  194. fn: function (){
  195. var self=this;
  196. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  197. return $core.withContext(function($ctx1) {
  198. //>>excludeEnd("ctx");
  199. $recv(self._model())._invertSelectedPackages();
  200. return self;
  201. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  202. }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLSUnitInvertSelectedPackagesCommand)});
  203. //>>excludeEnd("ctx");
  204. },
  205. //>>excludeStart("ide", pragmas.excludeIdeData);
  206. args: [],
  207. source: "execute\x0a\x09self model invertSelectedPackages",
  208. referencedClasses: [],
  209. //>>excludeEnd("ide");
  210. messageSends: ["invertSelectedPackages", "model"]
  211. }),
  212. $globals.HLSUnitInvertSelectedPackagesCommand);
  213. $core.addMethod(
  214. $core.method({
  215. selector: "isActive",
  216. protocol: 'testing',
  217. fn: function (){
  218. var self=this;
  219. return true;
  220. },
  221. //>>excludeStart("ide", pragmas.excludeIdeData);
  222. args: [],
  223. source: "isActive\x0a\x09^true",
  224. referencedClasses: [],
  225. //>>excludeEnd("ide");
  226. messageSends: []
  227. }),
  228. $globals.HLSUnitInvertSelectedPackagesCommand);
  229. $core.addMethod(
  230. $core.method({
  231. selector: "key",
  232. protocol: 'accessing',
  233. fn: function (){
  234. var self=this;
  235. return "p";
  236. },
  237. //>>excludeStart("ide", pragmas.excludeIdeData);
  238. args: [],
  239. source: "key\x0a\x09^ 'p'",
  240. referencedClasses: [],
  241. //>>excludeEnd("ide");
  242. messageSends: []
  243. }),
  244. $globals.HLSUnitInvertSelectedPackagesCommand.klass);
  245. $core.addMethod(
  246. $core.method({
  247. selector: "label",
  248. protocol: 'accessing',
  249. fn: function (){
  250. var self=this;
  251. return "Invert selected packages";
  252. },
  253. //>>excludeStart("ide", pragmas.excludeIdeData);
  254. args: [],
  255. source: "label\x0a\x09^ 'Invert selected packages'",
  256. referencedClasses: [],
  257. //>>excludeEnd("ide");
  258. messageSends: []
  259. }),
  260. $globals.HLSUnitInvertSelectedPackagesCommand.klass);
  261. $core.addClass('HLSUnitRunTests', $globals.HLSUnitCommand, [], 'Helios-Commands-SUnit');
  262. //>>excludeStart("ide", pragmas.excludeIdeData);
  263. $globals.HLSUnitRunTests.comment="Run the test cases in the currently selected classes on a `HLSUnitModel`";
  264. //>>excludeEnd("ide");
  265. $core.addMethod(
  266. $core.method({
  267. selector: "execute",
  268. protocol: 'executing',
  269. fn: function (){
  270. var self=this;
  271. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  272. return $core.withContext(function($ctx1) {
  273. //>>excludeEnd("ctx");
  274. $recv(self._model())._runTests();
  275. return self;
  276. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  277. }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLSUnitRunTests)});
  278. //>>excludeEnd("ctx");
  279. },
  280. //>>excludeStart("ide", pragmas.excludeIdeData);
  281. args: [],
  282. source: "execute\x0a\x09self model runTests",
  283. referencedClasses: [],
  284. //>>excludeEnd("ide");
  285. messageSends: ["runTests", "model"]
  286. }),
  287. $globals.HLSUnitRunTests);
  288. $core.addMethod(
  289. $core.method({
  290. selector: "isActive",
  291. protocol: 'testing',
  292. fn: function (){
  293. var self=this;
  294. return true;
  295. },
  296. //>>excludeStart("ide", pragmas.excludeIdeData);
  297. args: [],
  298. source: "isActive\x0a\x09^true",
  299. referencedClasses: [],
  300. //>>excludeEnd("ide");
  301. messageSends: []
  302. }),
  303. $globals.HLSUnitRunTests);
  304. $core.addMethod(
  305. $core.method({
  306. selector: "key",
  307. protocol: 'accessing',
  308. fn: function (){
  309. var self=this;
  310. return "r";
  311. },
  312. //>>excludeStart("ide", pragmas.excludeIdeData);
  313. args: [],
  314. source: "key\x0a\x09^'r'",
  315. referencedClasses: [],
  316. //>>excludeEnd("ide");
  317. messageSends: []
  318. }),
  319. $globals.HLSUnitRunTests.klass);
  320. $core.addMethod(
  321. $core.method({
  322. selector: "label",
  323. protocol: 'accessing',
  324. fn: function (){
  325. var self=this;
  326. return "Run Tests";
  327. },
  328. //>>excludeStart("ide", pragmas.excludeIdeData);
  329. args: [],
  330. source: "label\x0a\x09^'Run Tests'",
  331. referencedClasses: [],
  332. //>>excludeEnd("ide");
  333. messageSends: []
  334. }),
  335. $globals.HLSUnitRunTests.klass);
  336. $core.addClass('HLSUnitSelectAllCommand', $globals.HLSUnitCommand, [], 'Helios-Commands-SUnit');
  337. //>>excludeStart("ide", pragmas.excludeIdeData);
  338. $globals.HLSUnitSelectAllCommand.comment="I group the select all commands";
  339. //>>excludeEnd("ide");
  340. $core.addMethod(
  341. $core.method({
  342. selector: "key",
  343. protocol: 'accessing',
  344. fn: function (){
  345. var self=this;
  346. return "a";
  347. },
  348. //>>excludeStart("ide", pragmas.excludeIdeData);
  349. args: [],
  350. source: "key\x0a\x09^ 'a'",
  351. referencedClasses: [],
  352. //>>excludeEnd("ide");
  353. messageSends: []
  354. }),
  355. $globals.HLSUnitSelectAllCommand.klass);
  356. $core.addMethod(
  357. $core.method({
  358. selector: "label",
  359. protocol: 'accessing',
  360. fn: function (){
  361. var self=this;
  362. return "Select all";
  363. },
  364. //>>excludeStart("ide", pragmas.excludeIdeData);
  365. args: [],
  366. source: "label\x0a\x09^ 'Select all'",
  367. referencedClasses: [],
  368. //>>excludeEnd("ide");
  369. messageSends: []
  370. }),
  371. $globals.HLSUnitSelectAllCommand.klass);
  372. $core.addClass('HLSUnitSelectAllClassesCommand', $globals.HLSUnitSelectAllCommand, [], 'Helios-Commands-SUnit');
  373. //>>excludeStart("ide", pragmas.excludeIdeData);
  374. $globals.HLSUnitSelectAllClassesCommand.comment="Select all available test classes based on what packages are selected on a `HLSUnitModel`";
  375. //>>excludeEnd("ide");
  376. $core.addMethod(
  377. $core.method({
  378. selector: "category",
  379. protocol: 'accessing',
  380. fn: function (){
  381. var self=this;
  382. return "Classes";
  383. },
  384. //>>excludeStart("ide", pragmas.excludeIdeData);
  385. args: [],
  386. source: "category\x0a\x09^'Classes'",
  387. referencedClasses: [],
  388. //>>excludeEnd("ide");
  389. messageSends: []
  390. }),
  391. $globals.HLSUnitSelectAllClassesCommand);
  392. $core.addMethod(
  393. $core.method({
  394. selector: "execute",
  395. protocol: 'executing',
  396. fn: function (){
  397. var self=this;
  398. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  399. return $core.withContext(function($ctx1) {
  400. //>>excludeEnd("ctx");
  401. $recv(self._model())._selectAllClasses();
  402. return self;
  403. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  404. }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLSUnitSelectAllClassesCommand)});
  405. //>>excludeEnd("ctx");
  406. },
  407. //>>excludeStart("ide", pragmas.excludeIdeData);
  408. args: [],
  409. source: "execute\x0a\x09self model selectAllClasses",
  410. referencedClasses: [],
  411. //>>excludeEnd("ide");
  412. messageSends: ["selectAllClasses", "model"]
  413. }),
  414. $globals.HLSUnitSelectAllClassesCommand);
  415. $core.addMethod(
  416. $core.method({
  417. selector: "isActive",
  418. protocol: 'testing',
  419. fn: function (){
  420. var self=this;
  421. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  422. return $core.withContext(function($ctx1) {
  423. //>>excludeEnd("ctx");
  424. var $1;
  425. $1=$recv($recv(self["@model"])._selectedPackages())._notEmpty();
  426. return $1;
  427. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  428. }, function($ctx1) {$ctx1.fill(self,"isActive",{},$globals.HLSUnitSelectAllClassesCommand)});
  429. //>>excludeEnd("ctx");
  430. },
  431. //>>excludeStart("ide", pragmas.excludeIdeData);
  432. args: [],
  433. source: "isActive\x0a\x09^model selectedPackages notEmpty",
  434. referencedClasses: [],
  435. //>>excludeEnd("ide");
  436. messageSends: ["notEmpty", "selectedPackages"]
  437. }),
  438. $globals.HLSUnitSelectAllClassesCommand);
  439. $core.addMethod(
  440. $core.method({
  441. selector: "key",
  442. protocol: 'accessing',
  443. fn: function (){
  444. var self=this;
  445. return "c";
  446. },
  447. //>>excludeStart("ide", pragmas.excludeIdeData);
  448. args: [],
  449. source: "key\x0a\x09^ 'c'",
  450. referencedClasses: [],
  451. //>>excludeEnd("ide");
  452. messageSends: []
  453. }),
  454. $globals.HLSUnitSelectAllClassesCommand.klass);
  455. $core.addMethod(
  456. $core.method({
  457. selector: "label",
  458. protocol: 'accessing',
  459. fn: function (){
  460. var self=this;
  461. return "Select all classes";
  462. },
  463. //>>excludeStart("ide", pragmas.excludeIdeData);
  464. args: [],
  465. source: "label\x0a\x09^ 'Select all classes'",
  466. referencedClasses: [],
  467. //>>excludeEnd("ide");
  468. messageSends: []
  469. }),
  470. $globals.HLSUnitSelectAllClassesCommand.klass);
  471. $core.addClass('HLSUnitSelectAllPackagesCommand', $globals.HLSUnitSelectAllCommand, [], 'Helios-Commands-SUnit');
  472. //>>excludeStart("ide", pragmas.excludeIdeData);
  473. $globals.HLSUnitSelectAllPackagesCommand.comment="Select all packages with test cases on a `HLSUnitModel`";
  474. //>>excludeEnd("ide");
  475. $core.addMethod(
  476. $core.method({
  477. selector: "category",
  478. protocol: 'accessing',
  479. fn: function (){
  480. var self=this;
  481. return "Packages";
  482. },
  483. //>>excludeStart("ide", pragmas.excludeIdeData);
  484. args: [],
  485. source: "category\x0a\x09^'Packages'",
  486. referencedClasses: [],
  487. //>>excludeEnd("ide");
  488. messageSends: []
  489. }),
  490. $globals.HLSUnitSelectAllPackagesCommand);
  491. $core.addMethod(
  492. $core.method({
  493. selector: "execute",
  494. protocol: 'executing',
  495. fn: function (){
  496. var self=this;
  497. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  498. return $core.withContext(function($ctx1) {
  499. //>>excludeEnd("ctx");
  500. $recv(self._model())._selectAllPackages();
  501. return self;
  502. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  503. }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLSUnitSelectAllPackagesCommand)});
  504. //>>excludeEnd("ctx");
  505. },
  506. //>>excludeStart("ide", pragmas.excludeIdeData);
  507. args: [],
  508. source: "execute\x0a\x09self model selectAllPackages",
  509. referencedClasses: [],
  510. //>>excludeEnd("ide");
  511. messageSends: ["selectAllPackages", "model"]
  512. }),
  513. $globals.HLSUnitSelectAllPackagesCommand);
  514. $core.addMethod(
  515. $core.method({
  516. selector: "isActive",
  517. protocol: 'testing',
  518. fn: function (){
  519. var self=this;
  520. return true;
  521. },
  522. //>>excludeStart("ide", pragmas.excludeIdeData);
  523. args: [],
  524. source: "isActive\x0a\x09^true",
  525. referencedClasses: [],
  526. //>>excludeEnd("ide");
  527. messageSends: []
  528. }),
  529. $globals.HLSUnitSelectAllPackagesCommand);
  530. $core.addMethod(
  531. $core.method({
  532. selector: "key",
  533. protocol: 'accessing',
  534. fn: function (){
  535. var self=this;
  536. return "p";
  537. },
  538. //>>excludeStart("ide", pragmas.excludeIdeData);
  539. args: [],
  540. source: "key\x0a\x09^ 'p'",
  541. referencedClasses: [],
  542. //>>excludeEnd("ide");
  543. messageSends: []
  544. }),
  545. $globals.HLSUnitSelectAllPackagesCommand.klass);
  546. $core.addMethod(
  547. $core.method({
  548. selector: "label",
  549. protocol: 'accessing',
  550. fn: function (){
  551. var self=this;
  552. return "Select all packages";
  553. },
  554. //>>excludeStart("ide", pragmas.excludeIdeData);
  555. args: [],
  556. source: "label\x0a\x09^ 'Select all packages'",
  557. referencedClasses: [],
  558. //>>excludeEnd("ide");
  559. messageSends: []
  560. }),
  561. $globals.HLSUnitSelectAllPackagesCommand.klass);
  562. });