<s> import unittest <EOL> from ctypes import POINTER <EOL> import comtypes <EOL> from comtypes . client import CreateObject , GetModule <EOL> GetModule ( '<STR_LIT>' ) <EOL> from comtypes . gen . Accessibility import IAccessible <EOL> class TestCase ( unittest . TestCase ) : <EOL> def setUp ( self ) : <EOL> self . ie = CreateObject ( '<STR_LIT>' ) <EOL> def tearDown ( self ) : <EOL> self . ie . Quit ( ) <EOL> del self . ie <EOL> def test ( self ) : <EOL> ie = self . ie <EOL> ie . navigate2 ( "<STR_LIT>" , <NUM_LIT:0> ) <EOL> sp = ie . Document . Body . QueryInterface ( comtypes . IServiceProvider ) <EOL> pacc = sp . QueryService ( IAccessible . _iid_ , IAccessible ) <EOL> self . failUnlessEqual ( type ( pacc ) , POINTER ( IAccessible ) ) <EOL> if __name__ == "<STR_LIT:__main__>" : <EOL> unittest . main ( ) </s>
