1
0

Helios-Workspace-Tests.js 1.2 KB

1234567891011121314151617181920212223
  1. smalltalk.addPackage('Helios-Workspace-Tests');
  2. smalltalk.addClass('HLCodeWidgetTest', smalltalk.TestCase, [], 'Helios-Workspace-Tests');
  3. smalltalk.addMethod(
  4. smalltalk.method({
  5. selector: "testKeyMap",
  6. category: 'tests',
  7. fn: function (){
  8. var self=this;
  9. function $HashedCollection(){return smalltalk.HashedCollection||(typeof HashedCollection=="undefined"?nil:HashedCollection)}
  10. function $HLCodeWidget(){return smalltalk.HLCodeWidget||(typeof HLCodeWidget=="undefined"?nil:HLCodeWidget)}
  11. return smalltalk.withContext(function($ctx1) {
  12. _st(self)._assert_(_st(_st($HLCodeWidget())._pcKeyMap())._isKindOf_($HashedCollection()));
  13. _st(self)._assert_(_st(_st($HLCodeWidget())._macKeyMap())._isKindOf_($HashedCollection()));
  14. return self}, function($ctx1) {$ctx1.fill(self,"testKeyMap",{},smalltalk.HLCodeWidgetTest)})},
  15. args: [],
  16. source: "testKeyMap\x0a\x22Key maps are a collection of associations.\x22\x0aself assert: ( HLCodeWidget pcKeyMap isKindOf: HashedCollection ).\x0aself assert: ( HLCodeWidget macKeyMap isKindOf: HashedCollection ).",
  17. messageSends: ["assert:", "isKindOf:", "pcKeyMap", "macKeyMap"],
  18. referencedClasses: ["HashedCollection", "HLCodeWidget"]
  19. }),
  20. smalltalk.HLCodeWidgetTest);