Helios-Workspace-Tests.js 1.2 KB

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