Helios-Workspace-Tests.js 1.5 KB

123456789101112131415161718192021222324252627282930
  1. define("amber_core/Helios-Workspace-Tests", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/SUnit"], function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Helios-Workspace-Tests');
  3. smalltalk.packages["Helios-Workspace-Tests"].transport = {"type":"amd","amdNamespace":"amber_core"};
  4. smalltalk.addClass('HLCodeWidgetTest', smalltalk.TestCase, [], 'Helios-Workspace-Tests');
  5. smalltalk.addMethod(
  6. smalltalk.method({
  7. selector: "testKeyMap",
  8. category: 'tests',
  9. fn: function (){
  10. var self=this;
  11. function $HLCodeWidget(){return smalltalk.HLCodeWidget||(typeof HLCodeWidget=="undefined"?nil:HLCodeWidget)}
  12. function $HashedCollection(){return smalltalk.HashedCollection||(typeof HashedCollection=="undefined"?nil:HashedCollection)}
  13. return smalltalk.withContext(function($ctx1) {
  14. var $1;
  15. $1=_st(_st($HLCodeWidget())._pcKeyMap())._isKindOf_($HashedCollection());
  16. $ctx1.sendIdx["isKindOf:"]=1;
  17. self._assert_($1);
  18. $ctx1.sendIdx["assert:"]=1;
  19. self._assert_(_st(_st($HLCodeWidget())._macKeyMap())._isKindOf_($HashedCollection()));
  20. return self}, function($ctx1) {$ctx1.fill(self,"testKeyMap",{},smalltalk.HLCodeWidgetTest)})},
  21. args: [],
  22. 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)",
  23. messageSends: ["assert:", "isKindOf:", "pcKeyMap", "macKeyMap"],
  24. referencedClasses: ["HLCodeWidget", "HashedCollection"]
  25. }),
  26. smalltalk.HLCodeWidgetTest);
  27. });