ASUnitTests/CloseChatWindow.applescript

   1 global HandyAdiumScripts
   2
   3 on run
   4         tell application "Adium"
   5                 set newChat to HandyAdiumScripts's makeNewChatWindow()
   6                 set cw to (count chat windows)
   7                 close newChat
   8                 delay 1
   9                 if (count chat windows) is not cw - 1 then
  10                         --ooh! A helpful message.
  11                         --trying to close again isn't going to help... So I won't restore.
  12                         error ("count chat windows is " & (count chat windows) & " rather than " & (cw - 1))
  13                 end
  14                 if (exists newChat) then
  15                         --testing that closing makes something not exist
  16                         --Again, if this fails, not much I can do to restore.
  17                         error
  18                 end
  19         end tell
  20 end run