ASUnitTests/CantSetAdiumsName.applescript

   1 global HandyAdiumScripts
   2
   3 on run
   4         tell application "Adium"
   5                 set n to (get name)
   6                 try
   7                         set name to "dummy"
   8                         --never get here
   9                         set name to n --reset
  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