ASUnitTests/CantSetVersion.applescript

   1 global HandyAdiumScripts
   2
   3 on run
   4         tell application "Adium"
   5                 set v to (get version)
   6                 try
   7                         set version to "dummy"
   8                         --never get here
   9                         set version to v --restore
  10                         error
  11                 on error number num --trap all errors
  12                         if num is -2700 then error -- if the error is the default error, caused by the 'error' directive, pass it along the chain
  13                         --otherwise, the command threw correctly
  14                 end try
  15         end tell
  16 end run