ASUnitTests/CloseChat.applescript

   1 global HandyAdiumScripts
   2
   3 on run
   4         tell application "Adium"
   5                 set newChat to HandyAdiumScripts's makeNewChat()
   6                 tell account (HandyAdiumScripts's defaultAccount)
   7                         set newChat2 to make new chat with contacts {contact (HandyAdiumScripts's otherParticipant)} at end of chats of (get window of newChat)
   8                 end tell
   9                 set c to count chats of (get window of newChat)
  10                 close newChat2
  11                 if (count chats of (get window of newChat)) is not c - 1 then error
  12                 close (get window of newChat)
  13         end tell
  14 end run