Add a test for keymaps

@rcsimm caught a super simple bug in HLCodeWidget#pcKeyMap and I'd like
no one to ever have to deal with it again - this test will ensure that
key maps returned by HLCodeWidget are always collections of
associations.

js/Helios-Workspace-Tests.deploy.js

@@ -0,0 +1,18 @@
+smalltalk.addPackage('Helios-Workspace-Tests');
+smalltalk.addClass('HLCodeWidgetTest', smalltalk.TestCase, [], 'Helios-Workspace-Tests');
+smalltalk.addMethod(
+smalltalk.method({
+selector: "testKeyMap",
+fn: function (){
+var self=this;
+function $HashedCollection(){return smalltalk.HashedCollection||(typeof HashedCollection=="undefined"?nil:HashedCollection)}
+function $HLCodeWidget(){return smalltalk.HLCodeWidget||(typeof HLCodeWidget=="undefined"?nil:HLCodeWidget)}
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st($HLCodeWidget())._pcKeyMap())._isKindOf_($HashedCollection()));
+_st(self)._assert_(_st(_st($HLCodeWidget())._macKeyMap())._isKindOf_($HashedCollection()));
+return self}, function($ctx1) {$ctx1.fill(self,"testKeyMap",{},smalltalk.HLCodeWidgetTest)})},
+messageSends: ["assert:", "isKindOf:", "pcKeyMap", "macKeyMap"]}),
+smalltalk.HLCodeWidgetTest);
+
+
+

js/Helios-Workspace-Tests.js

@@ -0,0 +1,23 @@
+smalltalk.addPackage('Helios-Workspace-Tests');
+smalltalk.addClass('HLCodeWidgetTest', smalltalk.TestCase, [], 'Helios-Workspace-Tests');
+smalltalk.addMethod(
+smalltalk.method({
+selector: "testKeyMap",
+category: 'as yet unclassified',
+fn: function (){
+var self=this;
+function $HashedCollection(){return smalltalk.HashedCollection||(typeof HashedCollection=="undefined"?nil:HashedCollection)}
+function $HLCodeWidget(){return smalltalk.HLCodeWidget||(typeof HLCodeWidget=="undefined"?nil:HLCodeWidget)}
+return smalltalk.withContext(function($ctx1) { 
+_st(self)._assert_(_st(_st($HLCodeWidget())._pcKeyMap())._isKindOf_($HashedCollection()));
+_st(self)._assert_(_st(_st($HLCodeWidget())._macKeyMap())._isKindOf_($HashedCollection()));
+return self}, function($ctx1) {$ctx1.fill(self,"testKeyMap",{},smalltalk.HLCodeWidgetTest)})},
+args: [],
+source: "testKeyMap\x0a\x22Key maps are a collection of associations.\x22\x0aself assert: ( HLCodeWidget pcKeyMap isKindOf: HashedCollection ).\x0aself assert: ( HLCodeWidget macKeyMap isKindOf: HashedCollection ).",
+messageSends: ["assert:", "isKindOf:", "pcKeyMap", "macKeyMap"],
+referencedClasses: ["HashedCollection", "HLCodeWidget"]
+}),
+smalltalk.HLCodeWidgetTest);
+
+
+

st/Helios-Workspace-Tests.st

@@ -0,0 +1,13 @@
+Smalltalk current createPackage: 'Helios-Workspace-Tests'!
+TestCase subclass: #HLCodeWidgetTest
+	instanceVariableNames: ''
+	package: 'Helios-Workspace-Tests'!
+
+!HLCodeWidgetTest methodsFor: 'as yet unclassified'!
+
+testKeyMap
+"Key maps are a collection of associations."
+self assert: ( HLCodeWidget pcKeyMap isKindOf: HashedCollection ).
+self assert: ( HLCodeWidget macKeyMap isKindOf: HashedCollection ).
+! !
+