*! Version 1.0    (STB-52 dm73)
/*
Direct comments to: 

John Hendrickx <J.Hendrickx@mailbox.kun.nl>
Nijmegen Business School
University of Nijmegen
P.O. Box 9108
6500 HK Nijmegen
The Netherlands 

Desmat is available at 
http://baserv.uci.kun.nl/~johnh/desmat/stata/

Version 1.0, August 4 1999
*/

program define tstall
  version 6.0
  * first argument may be the "equal" option for testparm"
  local eq `1'
  local i 1
  local term="${term`i'}"
  while "`term'" ~= "" {
    tokenize "`term'", parse("-")
    local varn="``1'[varn]'"
    display "Testing `varn':"
    if "`3'" == "" {
      * don't test for equality of a single variable, even if requested
      testparm `term'
    }
    else {
      testparm `term', `eq'
    }
    local i=`i'+1
    local term="${term`i'}"
  }
end