Helios-Commands-SUnit.js 15 KB

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