home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / binutils-2.2.1 / binutils / testsuite / config / unix.exp < prev    next >
Encoding:
Text File  |  1993-04-07  |  1.4 KB  |  46 lines
  1. #   Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
  2.  
  3. # This program is free software; you can redistribute it and/or modify
  4. # it under the terms of the GNU General Public License as published by
  5. # the Free Software Foundation; either version 2 of the License, or
  6. # (at your option) any later version.
  7. # 
  8. # This program is distributed in the hope that it will be useful,
  9. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. # GNU General Public License for more details.
  12. # 
  13. # You should have received a copy of the GNU General Public License
  14. # along with this program; if not, write to the Free Software
  15. # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  16.  
  17. # Please email any bugs, comments, and/or additions to this file to:
  18. # bug-dejagnu@prep.ai.mit.edu
  19.  
  20. # This file was written by Rob Savoye. (rob@cygnus.com)
  21.  
  22. load_lib util-defs.exp
  23.  
  24. #
  25. # nm_version -- extract and print the version number of nm
  26. #
  27. proc nm_version { } {
  28.     set tmp [exec $NM +version]
  29.     regexp " \[0-9\.\]+" $tmp version
  30.     clone_output "[which $NM] version $version\n"
  31.     unset tmp
  32.     unset version
  33. }
  34.  
  35. #
  36. # add some basic error trapping. These mostly catch programming error's
  37. # within the tests themselves
  38. #
  39. expect_before {
  40.     buffer_full           { error "internal buffer is full." }
  41.     "can't open '*'" { error "Can't open test file." }
  42. }
  43.  
  44.  
  45.  
  46.