How to check whether ssh-agent already contains an identity?

[kwin]

In issue 6 it is described how to add new identities to the ssh-agent. In case you have a protected ssh key you always need to provide the passphrase in case you add it. Therefore it would be good to only add an identity if it is not yet there. Is there a reliable method which could be used to check whether ssh-agent already contains an identity?