mirror of https://gitee.com/Nocallback/dejagnu.git
Rob Savoye
25 years ago
9 changed files with 553 additions and 44 deletions
@ -0,0 +1,215 @@ |
|||||
|
/*
|
||||
|
* Copyright (C) 2000, 2001 Free Software Foundation, Inc. |
||||
|
* |
||||
|
* This program is free software; you can redistribute it and/or modify |
||||
|
* it under the terms of the GNU General Public License as published by |
||||
|
* the Free Software Foundation; either version 2 of the License, or |
||||
|
* (at your option) any later version. |
||||
|
* |
||||
|
* This program is distributed in the hope that it will be useful, |
||||
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
||||
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||||
|
* GNU General Public License for more details. |
||||
|
|
||||
|
* You should have received a copy of the GNU General Public License |
||||
|
* along with this program; if not, write to the Free Software |
||||
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
||||
|
*/ |
||||
|
|
||||
|
/* This is the include generated by configuring */ |
||||
|
#include <config.h> |
||||
|
|
||||
|
#ifndef __DEJAGNU_H__ |
||||
|
#define __DEJAGNU_H__ |
||||
|
|
||||
|
#include <stdio.h> |
||||
|
|
||||
|
static int passed; |
||||
|
static int failed; |
||||
|
static int untest; |
||||
|
static int unresolve; |
||||
|
|
||||
|
inline void |
||||
|
pass (const char *s) { |
||||
|
passed++; |
||||
|
printf ("\tPASSED: %s\n", s); |
||||
|
} |
||||
|
|
||||
|
inline void |
||||
|
fail (const char *s) { |
||||
|
failed++; |
||||
|
printf ("\tFAILED: %s\n", s); |
||||
|
} |
||||
|
|
||||
|
inline void |
||||
|
untested (const char *s) { |
||||
|
untest++; |
||||
|
printf ("\tUNTESTED: %s\n", s); |
||||
|
} |
||||
|
|
||||
|
inline void |
||||
|
unresolved (const char *s) { |
||||
|
unresolve++; |
||||
|
printf ("\tUNRESOLVED: %s\n", s); |
||||
|
} |
||||
|
|
||||
|
inline void |
||||
|
totals (void) { |
||||
|
printf ("\nTotals:\n"); |
||||
|
printf ("\t#passed:\t\t%d\n", passed); |
||||
|
printf ("\t#failed:\t\t%d\n", failed); |
||||
|
if (untest) |
||||
|
printf ("\t#untested:\t\t%d\n", untest); |
||||
|
if (unresolve) |
||||
|
printf ("\t#unresolved:\t\t%d\n", unresolved); |
||||
|
} |
||||
|
|
||||
|
#ifdef __cplusplus |
||||
|
|
||||
|
#include <iostream> |
||||
|
#include <iomanip> |
||||
|
#include <fstream> |
||||
|
#include <string> |
||||
|
#include <strstream> |
||||
|
|
||||
|
char *outstate[] = { |
||||
|
"FAILED: ", |
||||
|
"PASSED: ", |
||||
|
"UNTESTED: ", |
||||
|
"UNRESOLVED: " |
||||
|
}; |
||||
|
|
||||
|
#if 0 |
||||
|
extern ios& __iomanip_testout (ios&, int); |
||||
|
inline smanip<int> testout (int n) { |
||||
|
return smanip<int> (__iomanip_testout, n); |
||||
|
} |
||||
|
ios & __iomanip_testout (ios& i, int x) { |
||||
|
return i; |
||||
|
} |
||||
|
|
||||
|
template<class T> |
||||
|
class OMANIP { |
||||
|
private: |
||||
|
T i; |
||||
|
ostream &(*f)(ostream&, T); |
||||
|
public: |
||||
|
OMANIP(ostream& (*ff)(ostream&, T), T ii) : f(ff), i(ii) { |
||||
|
} |
||||
|
friend ostream operator<<(ostream& us, OMANIP& m) { |
||||
|
return m.f(os,m.i); |
||||
|
} |
||||
|
}; |
||||
|
|
||||
|
ostream& |
||||
|
freakout(ostream& os, int x) { |
||||
|
return os << "FREAKOUT" ; |
||||
|
// return x << "TESTOUT " << x ;
|
||||
|
} |
||||
|
|
||||
|
OMANIP<int> testout(int i) { |
||||
|
return OMANIP<int>(&freakout,i); |
||||
|
} |
||||
|
#endif |
||||
|
|
||||
|
char *testout (int x) { |
||||
|
const int len = 128; |
||||
|
static char buf[len]; |
||||
|
static ostrstream oss(buf, len, ios::out); |
||||
|
oss.seekp(ios::beg); |
||||
|
oss << outstate[x] << ends; |
||||
|
return buf; |
||||
|
} |
||||
|
|
||||
|
enum teststate {FAILED, PASSED,UNTESTED,UNRESOLVED} laststate; |
||||
|
|
||||
|
class TestState { |
||||
|
private: |
||||
|
teststate laststate; |
||||
|
string lastmsg; |
||||
|
public: |
||||
|
TestState(void) { |
||||
|
passed = 0; |
||||
|
failed = 0; |
||||
|
untest = 0; |
||||
|
unresolve = 0; |
||||
|
} |
||||
|
~TestState(void) { |
||||
|
totals(); |
||||
|
}; |
||||
|
|
||||
|
void testrun (bool b, string s) { |
||||
|
if (b) |
||||
|
pass (s); |
||||
|
else |
||||
|
fail (s); |
||||
|
} |
||||
|
|
||||
|
void pass (string s) { |
||||
|
passed++; |
||||
|
laststate = PASSED; |
||||
|
lastmsg = s; |
||||
|
cout << "\t" << testout(PASSED) << s << endl; |
||||
|
} |
||||
|
void pass (const char *c) { |
||||
|
string s = c; |
||||
|
pass (s); |
||||
|
} |
||||
|
|
||||
|
void fail (string s) { |
||||
|
failed++; |
||||
|
laststate = FAILED; |
||||
|
lastmsg = s; |
||||
|
cout << "\t" << testout(FAILED) << s << endl; |
||||
|
} |
||||
|
void fail (const char *c) { |
||||
|
string s = c; |
||||
|
fail (s); |
||||
|
} |
||||
|
|
||||
|
void untested (string s) { |
||||
|
untest++; |
||||
|
laststate = UNTESTED; |
||||
|
lastmsg = s; |
||||
|
cout << "\t" << testout(UNTESTED) << s << endl; |
||||
|
} |
||||
|
void untested (const char *c) { |
||||
|
string s = c; |
||||
|
untested (s); |
||||
|
} |
||||
|
|
||||
|
void unresolved (string s) { |
||||
|
unresolve++; |
||||
|
laststate = UNRESOLVED; |
||||
|
lastmsg = s; |
||||
|
cout << "\t" << testout(UNRESOLVED) << s << endl; |
||||
|
} |
||||
|
void unresolved (const char *c) { |
||||
|
string s = c; |
||||
|
unresolved (s); |
||||
|
} |
||||
|
void totals (void) { |
||||
|
cout << "\t#passed:\t\t" << passed << endl; |
||||
|
cout << "\t#failed:\t\t" << failed << endl; |
||||
|
if (untest) |
||||
|
cout << "\t#untested:\t\t" << untest << endl; |
||||
|
if (unresolve) |
||||
|
cout << "\t#unresolved:\t\t" << unresolve << endl; |
||||
|
} |
||||
|
|
||||
|
friend ostream & operator << (ostream &os, TestState& t) { |
||||
|
return os << "\t" << outstate[t.laststate] << t.lastmsg ; |
||||
|
} |
||||
|
|
||||
|
int GetState(void) { |
||||
|
return laststate; |
||||
|
} |
||||
|
string GetMsg(void) { |
||||
|
return lastmsg; |
||||
|
} |
||||
|
}; |
||||
|
|
||||
|
#endif // __cplusplus
|
||||
|
#endif // _DEJAGNU_H_
|
||||
|
|
||||
|
|
||||
@ -0,0 +1,174 @@ |
|||||
|
# a hairy pattern to recognize text |
||||
|
set text "\[- A-Za-z0-9\.\;\"\_\:\'\`\(\)\!\#\=\+\?\&\*]" |
||||
|
|
||||
|
set SIZE size |
||||
|
if { [which $SIZE] == 0 } { |
||||
|
perror "Can't find $SIZE." |
||||
|
} |
||||
|
|
||||
|
# Get the size of the various section in an object file |
||||
|
proc exe_size {object} { |
||||
|
global SIZE |
||||
|
|
||||
|
# Make sure size exists |
||||
|
if { [which $SIZE] == 0 } { |
||||
|
return [list "-1" "Can't find $SIZE."] |
||||
|
} else { |
||||
|
verbose "Using $SIZE for \"size\" program." 2 |
||||
|
} |
||||
|
set status [catch "exec $SIZE -V" output] |
||||
|
if {[regexp "GNU size" $output] == 0} { |
||||
|
perror "Need GNU size from the binutils" 0 |
||||
|
return [list "-1" "Need GNU size."] |
||||
|
} |
||||
|
|
||||
|
# Get the object size. We pass -x, to force hex output |
||||
|
verbose "Getting the object file size for $object" 2 |
||||
|
set status [catch "exec $SIZE -x $object" output] |
||||
|
verbose -log "Size of $object is\n$output" 2 |
||||
|
|
||||
|
# Remove the header line from the size output. This currently only |
||||
|
# works with GNU size |
||||
|
regsub "text.*filename\[\r\n\]*" $output "" output |
||||
|
|
||||
|
# look for the size of the .text section |
||||
|
regexp "\[\r\n\]*0x\[0-9a-fA-F\]*" $output text |
||||
|
regsub "\[\r\n\]*0x\[0-9a-fA-F\]*\[ \t\]*" $output "" output |
||||
|
|
||||
|
# look for the size of the .data section |
||||
|
regexp "0x\[0-9a-fA-F\]*\[ \t\]*" $output data |
||||
|
regsub "0x\[0-9a-fA-F\]*\[ \t\]*" $output "" output |
||||
|
|
||||
|
# Values returns as hex |
||||
|
return [list $text $data] |
||||
|
} |
||||
|
|
||||
|
# Run the host's native compiler, not the cross one. Filter out the |
||||
|
# warnings and other extraneous stuff. |
||||
|
# Returns: |
||||
|
# A "" (empty) string if everything worked, or the |
||||
|
# output if there was a problem. |
||||
|
proc host_compile {compline} { |
||||
|
global INCLUDES |
||||
|
global LIBS |
||||
|
global CXX, CC |
||||
|
|
||||
|
# execute the compiler |
||||
|
verbose "Compiling for the host using: $CC $INCLUDES $LIBS $compline" 2 |
||||
|
set status [catch "exec $CC $INCLUDES $LIBS $compline" comp_output]; |
||||
|
verbose "Compiler returned $comp_output" 2 |
||||
|
|
||||
|
# prune common warnings and other stuff we can safely ignore |
||||
|
set comp_output [prune_warnings $comp_output]; |
||||
|
|
||||
|
# Trim multiple CR/LF pairs out to keep things consistant |
||||
|
regsub "^\[\r\n\]+" $comp_output "" comp_output; |
||||
|
|
||||
|
# if we got a compiler error, log it |
||||
|
if { [lindex $status 0] != 0 } { |
||||
|
verbose -log "compiler exited with status [lindex $status 0]"; |
||||
|
} |
||||
|
if { [lindex $status 1] != "" } { |
||||
|
verbose -log "output is:\n[lindex $status 1]" 2; |
||||
|
} |
||||
|
|
||||
|
# return the filtered output |
||||
|
return ${comp_output} |
||||
|
} |
||||
|
|
||||
|
# Execute the executable file, and anaylyse the output for the |
||||
|
# test state keywords. |
||||
|
# Returns: |
||||
|
# A "" (empty) string if everything worked, or an error message |
||||
|
# if there was a problem. |
||||
|
proc host_execute {args} { |
||||
|
global text |
||||
|
|
||||
|
set timeoutmsg "Timed out: Never got started, " |
||||
|
set timeout 100 |
||||
|
set file all |
||||
|
set timetol 0 |
||||
|
set arguments "" |
||||
|
|
||||
|
expect_before buffer_full { perror "Buffer full" } |
||||
|
|
||||
|
if { [llength $args] == 0} { |
||||
|
set executable $args |
||||
|
} else { |
||||
|
set executable [string trimleft [lindex [split $args " "] 0] "\{"] |
||||
|
set params [string trimleft [lindex [split $args " "] 1] "\{"] |
||||
|
set params [string trimright $params "\}"] |
||||
|
} |
||||
|
|
||||
|
verbose "The executable is $executable" 2 |
||||
|
if ![file exists ${executable}] { |
||||
|
perror "The executable, \"$executable\" is missing" 0 |
||||
|
return "No source file found" |
||||
|
} |
||||
|
|
||||
|
# spawn the executable and look for the DejaGnu output messages from the |
||||
|
# test case. |
||||
|
# spawn -noecho -open [open "|./${executable}" "r"] |
||||
|
spawn -noecho "./${executable}" ${params} |
||||
|
expect { |
||||
|
-re "\[0-9\]\[0-9\]:..:..:${text}\r\n" { |
||||
|
regsub "\[\n\r\t\]*NOTE: " $expect_out(0,string) "" output |
||||
|
verbose "$output" 3 |
||||
|
set timetol 0 |
||||
|
exp_continue |
||||
|
} |
||||
|
-re "NOTE:${text}*" { |
||||
|
regsub "\[\n\r\t\]*NOTE: " $expect_out(0,string) "" output |
||||
|
verbose "$output" 2 |
||||
|
set timetol 0 |
||||
|
exp_continue |
||||
|
} |
||||
|
-re "PASSED:${text}*" { |
||||
|
regsub "\[\n\r\t\]*PASSED: " $expect_out(0,string) "" output |
||||
|
pass "$output" |
||||
|
set timetol 0 |
||||
|
exp_continue |
||||
|
} |
||||
|
-re "FAILED:${text}*" { |
||||
|
regsub "\[\n\r\t\]*FAILED: " $expect_out(0,string) "" output |
||||
|
fail "$output" |
||||
|
set timetol 0 |
||||
|
exp_continue |
||||
|
} |
||||
|
-re "UNTESTED:${text}*" { |
||||
|
regsub "\[\n\r\t\]*TESTED: " $expect_out(0,string) "" output |
||||
|
untested "$output" |
||||
|
set timetol 0 |
||||
|
exp_continue |
||||
|
} |
||||
|
-re "UNRESOLVED:${text}*" { |
||||
|
regsub "\[\n\r\t\]*UNRESOLVED: " $expect_out(0,string) "" output |
||||
|
unresolved "$output" |
||||
|
set timetol 0 |
||||
|
exp_continue |
||||
|
} |
||||
|
-re "Totals" { |
||||
|
verbose "All done" 2 |
||||
|
} |
||||
|
eof { |
||||
|
# unresolved "${executable} died prematurely" |
||||
|
# catch close |
||||
|
# return "${executable} died prematurely" |
||||
|
} |
||||
|
timeout { |
||||
|
warning "Timed out executing test case" |
||||
|
if { $timetol <= 2 } { |
||||
|
incr timetol |
||||
|
exp_continue |
||||
|
} else { |
||||
|
- catch close |
||||
|
return "Timed out executing test case" |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
# force a close of the executable to be safe. |
||||
|
catch close |
||||
|
return "" |
||||
|
} |
||||
|
|
||||
Loading…
Reference in new issue