Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / sam-t2 / devtools / amd64 / lib / python2.4 / test / test_dl.py

#! /usr/bin/env python
"""Test dlmodule.c
  Roger E. Masse  revised strategy by Barry Warsaw
"""

import dl
from test.test_support import verbose,TestSkipped

sharedlibs = [
   ('/usr/lib/libc.so', 'getpid'),
   ('/lib/libc.so.6', 'getpid'),
   ('/usr/bin/cygwin1.dll', 'getpid'),
   ]

for s, func in sharedlibs:
   try:
       if verbose:
           print 'trying to open:', s,
       l = dl.open(s)
   except dl.error, err:
       if verbose:
           print 'failed', repr(str(err))
       pass
   else:
       if verbose:
           print 'succeeded...',
       l.call(func)
       l.close()
       if verbose:
           print 'worked!'
       break
else:
   raise TestSkipped, 'Could not open any shared libraries'