mirror of
https://github.com/Ranchero-Software/NetNewsWire.git
synced 2024-12-18 12:28:37 +01:00
b04a4b83f2
AppleEvent — and add an XCTestCase that can run and verify results of AppleScripts that target Evergreen.
20 lines
456 B
AppleScript
20 lines
456 B
AppleScript
try
|
|
tell application "Evergreen"
|
|
open location "http://scripting.com/rss"
|
|
end tell
|
|
on error message
|
|
return {test_result:false, script_result:message}
|
|
end
|
|
|
|
-- open location is not expected to return a value
|
|
-- trying to access result should trigger an error, and that indicates a successful test
|
|
|
|
try
|
|
set getURLResult to the result
|
|
set testResult to false
|
|
on error message
|
|
set testResult to true
|
|
end try
|
|
|
|
return {test_result:testResult}
|