store(&NAME) '032 - caps control'
c Description: Tests Caps Lock env set
c keys: [K_1][K_CAPS][K_2][SHIFT K_3][K_4][K_CAPS][K_5][K_CAPS][K_6][K_SHIFT][K_7]
c expected: pass.pass.pass.pass.pass.pass.pass.
c capsLock: 0
c context:

store(&version) '10.0'

store(&shiftfreescaps) '1'
store(&capsononly) '1'

begin Unicode > use(Main)

group(Main) using keys

+ [CAPS K_1] > 'fail.'
+ [NCAPS K_1] > 'pass.'

+ [NCAPS K_2] > 'fail.'
+ [CAPS K_2] > 'pass.'

c Shift will free caps lock when it is released, so this test should still have Caps Lock on.
+ [NCAPS SHIFT K_3] > 'fail.'
+ [CAPS SHIFT K_3] > 'pass.'

+ [CAPS K_4] > 'fail.'
+ [NCAPS K_4] > 'pass.'

+ [NCAPS K_5] > 'fail.'
+ [CAPS K_5] > 'pass.'

+ [NCAPS K_6] > 'fail.'
+ [CAPS K_6] > 'pass.'

c Shift was pressed and released ([K_SHIFT]) so Caps should be off before this
+ [CAPS K_7] > 'fail.'
+ [NCAPS K_7] > 'pass.'