home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-bin / lib / dejagnu / util-defs.exp < prev    next >
Encoding:
Text File  |  1996-10-12  |  3.0 KB  |  108 lines
  1. #   Copyright (C) 1988, 1990, 1991, 1992 , 1993 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. #
  23. # util_test -- run a utility and test the result.
  24. #             Takes four parameters.
  25. #             Parameters:
  26. #                First one is the command line arguments
  27. #                Second one is the file name
  28. #                Third one is the regexp style pattern to match for a PASS,
  29. #             Returns:
  30. #                1 if the test failed,
  31. #                0 if the test passes,
  32. #               -1 if there was an internal error.
  33. #
  34. proc util_test { args } {
  35.     global verbose
  36.     # get the parameters
  37.     set cmd    [lindex $args 0]
  38.     verbose     "Utility to execute is $cmd" 2
  39.     set cmd_arg [lindex $args 1]
  40.     verbose     "Command line arguments are $cmd_arg" 2
  41.     set file    [lindex $args 2]
  42.     verbose     "The file name to use is $file" 2
  43.     set pattern [lindex $args 3]
  44.     verbose    "The pattern to match is \"$pattern\"" 2
  45.  
  46.     verbose "Looking to match \"$pattern\"" 1
  47.  
  48.     if [info exists file] then {
  49.     if ![string match "" $file] then {
  50.         if ![file exists $file] then {
  51.         perror "$file doesn't exist"
  52.         return -1
  53.         }
  54.     }
  55.     }
  56.  
  57. #
  58. # run the utility to be tested and analyze the results
  59. #
  60.     set comp_output [util_start $cmd $cmd_arg $file]
  61.  
  62.      if [regexp "$pattern" $comp_output] then {
  63.     return 0
  64.     }
  65.  
  66.     if [string match "" $comp_output] then {
  67.     return 1
  68.     } else {
  69.     if $verbose>=2 then {
  70.         verbose "$comp_output"
  71.     } else {
  72.         send_log "$comp_output\n"
  73.     }
  74.     }
  75.     return 1
  76. }
  77.  
  78. # util_start -- run the utility.
  79. #               return NULL or the output
  80. #
  81. proc util_start { args } {
  82.     set cmd    [lindex $args 0]
  83.     set cmd_arg [lindex $args 1]
  84.     set file    [lindex $args 2]
  85.  
  86.     if {[which $cmd] == 0} then {
  87.         perror "Can't find $cmd"
  88.     return ""
  89.     }
  90.  
  91.     verbose "Spawning \"$cmd $cmd_arg $file\""
  92.     catch "exec $cmd $cmd_arg $file" comp_output
  93.     if ![string match "" $comp_output] then {    
  94.         send_log "$comp_output\n"
  95.         verbose "$comp_output" 2
  96.     }
  97.     return $comp_output
  98. }
  99.  
  100. #
  101. # add some basic error trapping. These mostly catch programming error's
  102. # within the tests themselves
  103. #
  104. expect_before {
  105.     buffer_full           { error "Internal buffer is full" }
  106.     "can't open 'nmtest'" { error "Can't open test file" }
  107. }
  108.