diff options
| author | Jacob Bachmeyer <jcb@gnu.org> | 2020-12-27 21:42:01 -0600 |
|---|---|---|
| committer | Jacob Bachmeyer <jcb@gnu.org> | 2020-12-27 21:42:01 -0600 |
| commit | ecbcbae3dd945c5f5ca0eeda36b2be21df7d0b92 (patch) | |
| tree | 24b233bd9506a21b6998ecce2877d7eab4b9491a /lib | |
| parent | ee2e465eb8a2f9debafd13224fe45df3cb7d409e (diff) | |
| download | dejagnu-ecbcbae3dd945c5f5ca0eeda36b2be21df7d0b92.zip dejagnu-ecbcbae3dd945c5f5ca0eeda36b2be21df7d0b92.tar.gz dejagnu-ecbcbae3dd945c5f5ca0eeda36b2be21df7d0b92.tar.bz2 | |
Remove noise word "api" from "testsuite can call api" entrypoint
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/framework.exp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/framework.exp b/lib/framework.exp index 24afbed..d4cf6f9 100644 --- a/lib/framework.exp +++ b/lib/framework.exp @@ -1121,8 +1121,8 @@ namespace eval ::dejagnu {} proc testsuite_can { argv } { verbose "entering testsuite can $argv" 3 - if { [lrange $argv 0 1] eq "call api" } { - set call [lrange $argv 2 end] + if { [lindex $argv 0] eq "call" } { + set call [lrange $argv 1 end] set result [info exists ::dejagnu::apilist($call)] } else { error "unknown feature test: testsuite can $argv" @@ -1131,7 +1131,7 @@ proc testsuite_can { argv } { verbose "leaving testsuite can: $result" 3 return $result } -array set ::dejagnu::apilist { {testsuite can call api} 1 } +array set ::dejagnu::apilist { {testsuite can call} 1 } # Return a full file name in or near the testsuite # |