Helios-Workspace-Tests.js 1.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142
  1. define(["amber/boot", "require", "amber/core/SUnit"], function($boot,requirejs){"use strict";
  2. var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
  3. var $pkg = $core.addPackage("Helios-Workspace-Tests");
  4. $pkg.innerEval = function (expr) { return eval(expr); };
  5. $pkg.transport = {"type":"amd","amdNamespace":"helios"};
  6. $core.addClass("HLCodeWidgetTest", $globals.TestCase, [], "Helios-Workspace-Tests");
  7. $core.addMethod(
  8. $core.method({
  9. selector: "testKeyMap",
  10. protocol: "tests",
  11. //>>excludeStart("ide", pragmas.excludeIdeData);
  12. args: [],
  13. source: "testKeyMap\x0a\x09\x22Key maps are a collection of associations.\x22\x0a\x09self assert: (HLCodeWidget pcKeyMap isKindOf: HashedCollection).\x0a\x09self assert: (HLCodeWidget macKeyMap isKindOf: HashedCollection)",
  14. referencedClasses: ["HLCodeWidget", "HashedCollection"],
  15. //>>excludeEnd("ide");
  16. pragmas: [],
  17. messageSends: ["assert:", "isKindOf:", "pcKeyMap", "macKeyMap"]
  18. }, function ($methodClass){ return function (){
  19. var self=this,$self=this;
  20. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  21. return $core.withContext(function($ctx1) {
  22. //>>excludeEnd("ctx");
  23. [$self._assert_([$recv($recv($globals.HLCodeWidget)._pcKeyMap())._isKindOf_($globals.HashedCollection)
  24. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  25. ,$ctx1.sendIdx["isKindOf:"]=1
  26. //>>excludeEnd("ctx");
  27. ][0])
  28. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  29. ,$ctx1.sendIdx["assert:"]=1
  30. //>>excludeEnd("ctx");
  31. ][0];
  32. $self._assert_($recv($recv($globals.HLCodeWidget)._macKeyMap())._isKindOf_($globals.HashedCollection));
  33. return self;
  34. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  35. }, function($ctx1) {$ctx1.fill(self,"testKeyMap",{})});
  36. //>>excludeEnd("ctx");
  37. }; }),
  38. $globals.HLCodeWidgetTest);
  39. });