Why do we need an except clause here?  The exception is caught and turned into a test failure.  Why not just let the exception fly and become an error result?  Then you wouldn't need to pragma the except.