scripts/build/test_suite.sh
author "Yann E. MORIN" <yann.morin.1998@anciens.enib.fr>
Tue Aug 02 18:28:10 2011 +0200 (2011-08-02)
changeset 2590 b64cfb67944e
permissions -rw-r--r--
scripts/functions: svn retrieval first tries the mirror for tarballs

The svn download helper looks for the local tarballs dir to see if it
can find a pre-downloaded tarball, and if it does not find it, does
the actual fetch to upstream via svn.

In the process, it does not even try to get a tarball from the local
mirror, which can be useful if the mirror has been pre-populated
manually (or with a previously downloaded tree).

Fake a tarball get with the standard tarball-download helper, but
without specifying any upstream URL, which makes the helper directly
try the LAN mirror.

Of course, if no mirror is specified, no URL wil be available, and
the standard svn retrieval will kick in.

Reported-by: ANDY KENNEDY <ANDY.KENNEDY@adtran.com>
Signed-off-by: "Yann E. MORIN" <yann.morin.1998@anciens.enib.fr>
mgl@1965
     1
# Wrapper to build the test suite facilities
mgl@1965
     2
#
mgl@1965
     3
# Current assumption: test suites are independent of each other
mgl@1965
     4
#                     - no order handling required.
mgl@1965
     5
mgl@1965
     6
# List all test suite facilities, and parse their scripts
mgl@1965
     7
CT_TEST_SUITE_FACILITY_LIST=
mgl@1965
     8
for f in "${CT_LIB_DIR}/scripts/build/test_suite/"*.sh; do
mgl@1965
     9
    _f="$(basename "${f}" .sh)"
mgl@1965
    10
    __f="CT_TEST_SUITE_${_f}"
mgl@1965
    11
    __f=`echo ${__f} | tr "[:lower:]" "[:upper:]"`
mgl@1965
    12
    if [ "${!__f}" = "y" ]; then
mgl@1965
    13
        CT_DoLog DEBUG "Enabling test suite '${_f}'"
mgl@1965
    14
        . "${f}"
mgl@1965
    15
        CT_TEST_SUITE_FACILITY_LIST="${CT_TEST_SUITE_FACILITY_LIST} ${_f}"
mgl@1965
    16
    else
mgl@1965
    17
        CT_DoLog DEBUG "Disabling test suite '${_f}'"
mgl@1965
    18
    fi
mgl@1965
    19
done
mgl@1965
    20
mgl@1965
    21
# Download the test suite facilities
mgl@1965
    22
do_test_suite_get() {
mgl@1965
    23
    for f in ${CT_TEST_SUITE_FACILITY_LIST}; do
mgl@1965
    24
        do_test_suite_${f}_get
mgl@1965
    25
    done
mgl@1965
    26
}
mgl@1965
    27
mgl@1965
    28
# Extract and patch the test suite facilities
mgl@1965
    29
do_test_suite_extract() {
mgl@1965
    30
    for f in ${CT_TEST_SUITE_FACILITY_LIST}; do
mgl@1965
    31
        do_test_suite_${f}_extract
mgl@1965
    32
    done
mgl@1965
    33
}
mgl@1965
    34
mgl@1965
    35
# Build the test suite facilities
mgl@1965
    36
do_test_suite() {
mgl@1965
    37
    for f in ${CT_TEST_SUITE_FACILITY_LIST}; do
mgl@1965
    38
        do_test_suite_${f}_build
mgl@1965
    39
    done
mgl@1965
    40
}
mgl@1965
    41