NetNewsWire/EvergreenTests/ScriptingTests/scripts/selectAnArticle.applescript

property uparrowKeyCode : 126
property downarrowKeyCode : 125
property rightarrowKeyCode : 124
property leftarrowKeyCode : 123

to activateEvergreen()
	tell application "Evergreen"
		activate
	end tell
end activateEvergreen

to multipleKeyCodes(keycode, numberOfKeys)
	tell application "System Events"
		tell process "Evergreen"
			repeat numberOfKeys times
				key code keycode
			end repeat
		end tell
	end tell
end multipleKeyCodes

try
    activateEvergreen()
	multipleKeyCodes(rightarrowKeyCode, 1)
on error message
	return {test_result:false, script_result:message}
end try

return {test_result:true, script_result:"selected an article"}