Helios-Workspace-Tests.st 370 B

12345678910111213
  1. Smalltalk createPackage: 'Helios-Workspace-Tests'!
  2. TestCase subclass: #HLCodeWidgetTest
  3. slots: {}
  4. package: 'Helios-Workspace-Tests'!
  5. !HLCodeWidgetTest methodsFor: 'tests'!
  6. testKeyMap
  7. "Key maps are a collection of associations."
  8. self assert: (HLCodeWidget pcKeyMap isKindOf: HashedCollection).
  9. self assert: (HLCodeWidget macKeyMap isKindOf: HashedCollection)
  10. ! !