ASUnitTests/CantSetServiceName.applescript

   1 global HandyAdiumScripts
   2
   3 on run
   4         tell application "Adium"
   5                 set n to (get name of service "AIM")
   6                 set s to (get service "AIM")
   7                 try
   8                         set name of service "AIM" to "dummy"
   9                         --should never get here!
  10                         set name of s to n --restore
  11                         --actually this won't restore because service names are what's
  12                         --used in objectSpecifier to refer to these objects...
  13                         error
  14                 on error number num
  15                         if num is -2700 then error
  16                 end try
  17         end tell
  18 end run