mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
11 lines
303 B
Smalltalk
11 lines
303 B
Smalltalk
tests
|
|
testSimpleChainMatches
|
|
|e eCtrl |
|
|
e := self eventKey: $e.
|
|
eCtrl := self eventKey: $e ctrl: true.
|
|
|
|
self assert: (($e ctrl, $e) matches: {eCtrl}).
|
|
self assert: ($e ctrl matches: {eCtrl. e}).
|
|
|
|
self deny: (($e ctrl, $e) matches: {eCtrl. self eventKey: $a}).
|
|
self deny: ($e ctrl matches: {e}). |