William Bowling is sharing code with you

Bitbucket is a code hosting site. Unlimited public and private repositories. Free for small teams.

Don't show this again

wbowling / adium (fork of adium / adium)

Fork of Adium for patches/improvements

Clone this repository (size: 338.7 MB): HTTPS / SSH 
hg clone https://bitbucket.org/wbowling/adium
hg clone ssh://hg@bitbucket.org/wbowling/adium

adium / ASUnitTests / MakeAccount.applescript

  • bfdbbb6fd385
  • 16 loc
  • 357 bytes
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

global HandyAdiumScripts

on run
        tell application "Adium"
                set c to count accounts
                tell service "AIM"
                        set newAccount to make new account with properties {name:"test"}
                end tell
                if (count accounts) is not c + 1 then
                        --for some reason, I failed to make an account.
                        --no cleanup is necessary
                        error
                end
                delete newAccount
        end tell
end run