#!/bin/sh

###############################################################################
#
#   Copyright © International Business Machines  Corp., 2009
#
#   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.
#
# DESCRIPTION
#      Run all tests under the functional, performance, and stress directories.
#      Format and summarize the results.
#
# AUTHOR
#      Darren Hart <dvhart@linux.intel.com>
#
# HISTORY
#      2009-Nov-9: Initial version by Darren Hart <dvhart@linux.intel.com>
#
###############################################################################

# Test for a color capable shell and pass the result to the subdir scripts
global USE_COLOR := '0'
tput setf 7
if test $Status -eq 0 {
    global USE_COLOR := '1'
    tput sgr0
}
export USE_COLOR

shell {cd functional; ./run.sh}
(CommandList
  children: [
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:USE_COLOR) op:Equal rhs:{(0)} spids:[68])]
      spids: [68]
    )
    (C {(tput)} {(setf)} {(7)})
    (If
      arms: [
        (if_arm
          cond: [
            (Sentence
              child: (C {(Lit_Other "[")} {($ VSub_QMark "$?")} {(-eq)} {(0)} {(Lit_Other "]")})
              terminator: <Op_Semi ";">
            )
          ]
          action: [
            (Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(LhsName name:USE_COLOR) op:Equal rhs:{(1)} spids:[93])]
              spids: [93]
            )
            (C {(tput)} {(sgr0)})
          ]
          spids: [-1 90]
        )
      ]
      spids: [-1 101]
    )
    (C {(export)} {(USE_COLOR)})
    (Subshell
      child: 
        (CommandList
          children: [
            (Sentence child:(C {(cd)} {(functional)}) terminator:<Op_Semi ";">)
            (C {(./run.sh)})
          ]
        )
      spids: [108 115]
    )
  ]
)