Use {List,Sub}::Util instead of List::MoreUtils and Sub::Name

[dbsrgits/DBIx-Class-Schema-Loader.git] / maint / travis-ci_scripts / 10_before_install.bash

#!/bin/bash

# Stop pre-started RDBMS and sync for some settle time
run_or_err "Stopping MySQL"       "sudo /etc/init.d/mysql stop"
run_or_err "Stopping PostgreSQL"  "sudo /etc/init.d/postgresql stop"
/bin/sync

# Sanity check VM before continuing
echo "
=============================================================================

= Startup Meminfo
$(free -m -t)

============================================================================="

CI_VM_MIN_FREE_MB=2000
if [[ "$(free -m | grep 'buffers/cache:' | perl -p -e '$_ = (split /\s+/, $_)[3]')" -lt "$CI_VM_MIN_FREE_MB" ]]; then
  SHORT_CIRCUIT_SMOKE=1
  echo_err "
=============================================================================

CI virtual machine stuck in a state with a lot of memory locked for no reason.
Under Travis this state usually results in a failed build.
Short-circuiting buildjob to avoid false negatives, please restart it manually.

============================================================================="
fi

if [[ -n "$SHORT_CIRCUIT_SMOKE" ]] ; then return ; fi

# Different boxes we run on may have different amount of hw threads
# Hence why we need to query
# Originally we used to read /sys/devices/system/cpu/online
# but it is not available these days (odd). Thus we fall to
# the alwas-present /proc/cpuinfo
# The oneliner is a tad convoluted - basicaly what we do is
# slurp the entire file and get the index off the last
# `processor    : XX` line
#
# We also divide the result by a factor, otherwise the travis VM gets
# overloaded (the amount of available swap is just TOOOO damn small)
export NUMTHREADS="$(( ( $(perl -0777 -n -e 'print (/ (?: .+ ^ processor \s+ : \s+ (\d+) ) (?! ^ processor ) /smx)' < /proc/cpuinfo) + 1 ) / 3 ))"

export CACHE_DIR="/tmp/poormanscache"

export SCHEMA_LOADER_TESTS_BACKCOMPAT=1

# these will be installed no matter what, also some extras unless CLEANTEST
common_packages="libapp-nopaste-perl tree"

if [[ "$CLEANTEST" = "true" ]]; then

  apt_install $common_packages

else

  apt_install $common_packages unixodbc-dev expect

### config mysql
  run_or_err "Installing minimizing MySQL config" "sudo cp maint/travis-ci_scripts/configs/minimal_mysql_travis.cnf /etc/mysql/conf.d/ && sudo chmod 644 /etc/mysql/conf.d/*.cnf"
  run_or_err "Starting MySQL" "sudo /etc/init.d/mysql start"
  run_or_err "Creating MySQL TestDB" "mysql -e 'create database dbic_test;'"
  export DBICTEST_MYSQL_DSN='dbi:mysql:database=dbic_test;host=127.0.0.1'
  export DBICTEST_MYSQL_USER=root

### config pg
  run_or_err "Starting PostgreSQL" "sudo /etc/init.d/postgresql start"
  run_or_err "Creating PostgreSQL TestDB" "psql -c 'create database dbic_test;' -U postgres"
  export DBICTEST_PG_DSN='dbi:Pg:database=dbic_test;host=127.0.0.1'
  export DBICTEST_PG_USER=postgres

### config firebird
  if [[ "$DBICTEST_FIREBIRD" = "true" ]]; then

    #
    # FIXME these debconf lines should automate the firebird config but do not :(((
    sudo bash -c 'echo -e "firebird2.5-super\tshared/firebird/enabled\tboolean\ttrue" | debconf-set-selections'
    sudo bash -c 'echo -e "firebird2.5-super\tshared/firebird/sysdba_password/new_password\tpassword\t123" | debconf-set-selections'

    apt_install firebird2.5-super firebird2.5-dev

    # poor man's deb config
    EXPECT_FB_SCRIPT='
      spawn dpkg-reconfigure --frontend=text firebird2.5-super
      expect "Enable Firebird server?"
      send "\177\177\177\177yes\r"
      expect "Password for SYSDBA"
      send "123\r"
      sleep 1
      expect eof
    '
    # creating testdb
    # FIXME - this step still fails from time to time >:(((
    # has to do with the FB reconfiguration I suppose
    # for now if it fails twice - simply skip FB testing
    for i in 1 2 ; do

      run_or_err "Re-configuring Firebird" "
        sync
        DEBIAN_FRONTEND=text sudo expect -c '$EXPECT_FB_SCRIPT'
        sleep 1
        sync
        # restart the server for good measure
        sudo /etc/init.d/firebird2.5-super stop || true
        sleep 1
        sync
        sudo /etc/init.d/firebird2.5-super start
        sleep 1
        sync
      "

      if run_or_err "Creating Firebird TestDB" \
        "echo \"CREATE DATABASE '/var/lib/firebird/2.5/data/dbic_test.fdb';\" | sudo isql-fb -u sysdba -p 123"
      then

        run_or_err "Fetching and building Firebird ODBC driver" '
          cd "$(mktemp -d)"
          wget -qO- http://sourceforge.net/projects/firebird/files/firebird-ODBC-driver/2.0.3-Release/OdbcJdbc-src-2.0.3.154.tar.gz/download | tar -xz
          cd OdbcJdbc/Builds/Gcc.lin
          perl -p -i -e "s|/usr/lib64|/usr/lib/x86_64-linux-gnu|g" ../makefile.environ
          make -f makefile.linux
          sudo make -f makefile.linux install
        '

        sudo bash -c 'cat >> /etc/odbcinst.ini' <<< "
[Firebird]
Description     = InterBase/Firebird ODBC Driver
Driver          = /usr/lib/x86_64-linux-gnu/libOdbcFb.so
Setup           = /usr/lib/x86_64-linux-gnu/libOdbcFb.so
Threading       = 1
FileUsage       = 1
"

        export DBICTEST_FIREBIRD_DSN=dbi:Firebird:dbname=/var/lib/firebird/2.5/data/dbic_test.fdb
        export DBICTEST_FIREBIRD_USER=SYSDBA
        export DBICTEST_FIREBIRD_PASS=123

        export DBICTEST_FIREBIRD_INTERBASE_DSN=dbi:InterBase:dbname=/var/lib/firebird/2.5/data/dbic_test.fdb
        export DBICTEST_FIREBIRD_INTERBASE_USER=SYSDBA
        export DBICTEST_FIREBIRD_INTERBASE_PASS=123

        export DBICTEST_FIREBIRD_ODBC_DSN="dbi:ODBC:Driver=Firebird;Dbname=/var/lib/firebird/2.5/data/dbic_test.fdb"
        export DBICTEST_FIREBIRD_ODBC_USER=SYSDBA
        export DBICTEST_FIREBIRD_ODBC_PASS=123

        break
      fi

    done
  fi

### config oracle
  if [[ "$DBICTEST_ORA" = "true" ]]; then
    run_or_err "Installing dummy multiarch bc package" '
      bc_tempdir="$(mktemp -d)"
      wget -O "$bc_tempdir/bc-multiarch_1.0_all.deb" -q http://ilmari.org/bc-multiarch/bc-multiarch_1.0_all.deb
      sudo dpkg -i "$bc_tempdir/bc-multiarch_1.0_all.deb" || sudo bash -c "source maint/travis-ci_scripts/common.bash && apt_install -f"
    '

    run_or_err "Cloning poor man's cache from github" "git clone --depth=1 --single-branch --branch=oracle/10.2.0 https://github.com/poortravis/poormanscache.git $CACHE_DIR && $CACHE_DIR/reassemble"
    run_or_err "Installing OracleXE manually from deb" "sudo dpkg -i $CACHE_DIR/apt_cache/oracle-xe_10.2.0.1-1.1_i386.deb || sudo bash -c 'source maint/travis-ci_scripts/common.bash && apt_install -f'"

    SRV_ORA_HOME=/usr/lib/oracle/xe/app/oracle/product/10.2.0/server

    # without this some of the more zealous tests can exhaust the amount
    # of listeners and oracle is too slow to spin extras up :(
    sudo bash -c "echo -e '\nprocesses=150' >> $SRV_ORA_HOME/config/scripts/init.ora"

    EXPECT_ORA_SCRIPT='
      spawn /etc/init.d/oracle-xe configure

      sleep 1
      set send_slow {1 .005}

      expect "Specify the HTTP port that will be used for Oracle Application Express"
      sleep 0.5
      send -s "8021\r"

      expect "Specify a port that will be used for the database listener"
      sleep 0.5
      send -s "1521\r"

      expect "Specify a password to be used for database accounts"
      sleep 0.5
      send -s "adminpass\r"

      expect "Confirm the password"
      sleep 0.5
      send -s "adminpass\r"

      expect "Do you want Oracle Database 10g Express Edition to be started on boot"
      sleep 0.5
      send -s "n\r"

      sleep 0.5
      expect "Configuring Database"

      sleep 1
      expect eof
      wait
    '

    # if we do not redirect to some random file, but instead try to capture
    # into a var the way run_or_err does - everything hangs
    # FIXME: I couldn't figure it out after 3 hours of headdesking,
    # would be nice to know the reason eventually
    run_or_err "Configuring OracleXE" "sudo $(which expect) -c '$EXPECT_ORA_SCRIPT' &>/tmp/ora_configure_10.2.log"

    export DBICTEST_ORA_DSN=dbi:Oracle://localhost:1521/XE
    export DBICTEST_ORA_USER=dbic_test
    export DBICTEST_ORA_PASS=abc123456
    export DBICTEST_ORA_EXTRAUSER_DSN="$DBICTEST_ORA_DSN"
    export DBICTEST_ORA_EXTRAUSER_USER=dbic_test_extra
    export DBICTEST_ORA_EXTRAUSER_PASS=abc123456

    run_or_err "Create Oracle users" "ORACLE_SID=XE ORACLE_HOME=$SRV_ORA_HOME $SRV_ORA_HOME/bin/sqlplus -L -S system/adminpass @/dev/stdin <<< '
      CREATE USER $DBICTEST_ORA_USER IDENTIFIED BY $DBICTEST_ORA_PASS;
      GRANT connect,resource TO $DBICTEST_ORA_USER;
      CREATE USER $DBICTEST_ORA_EXTRAUSER_USER IDENTIFIED BY $DBICTEST_ORA_EXTRAUSER_PASS;
      GRANT connect,resource TO $DBICTEST_ORA_EXTRAUSER_USER;
    '"

    export ORACLE_HOME="$CACHE_DIR/ora_instaclient/x86-64/oracle_instaclient_10.2.0.5.0"
  fi

### config db2exc
  if [[ "$DBICTEST_DB2" = "true" ]]; then
    sudo bash -c 'echo "deb http://archive.canonical.com/ubuntu precise partner" >> /etc/apt/sources.list'
    run_or_err "Updating apt sources" "sudo apt-get update"
    apt_install db2exc

    # WTF is this world-writable?
    # Strip the write bit so it doesn't trip Ubuntu's symlink-in-/tmp attack mitigation
    sudo chmod -R o-w ~dasusr1/das

    run_or_err "Restarting DB2" "sudo /etc/init.d/db2exc restart"

    export DB2_HOME=/opt/ibm/db2/V9.7
    export DBICTEST_DB2_DSN=dbi:DB2:DATABASE=DBICTEST
    export DBICTEST_DB2_USER=db2inst1
    export DBICTEST_DB2_PASS=abc123456

    run_or_err "Setting up DB2 users" "echo -e '$DBICTEST_DB2_PASS\n$DBICTEST_DB2_PASS' | sudo passwd $DBICTEST_DB2_USER"
    run_or_err "Creating DB2 database" "sudo -u db2inst1 -i db2 'CREATE DATABASE DBICTEST'"
    run_or_err "Activating DB2 database" "sudo -u db2inst1 -i db2 'ACTIVATE DATABASE DBICTEST'"
  fi

fi

# The debian package is oddly broken - uses a /bin/env based shebang
# so nothing works under a brew, fixed in libapp-nopaste-perl 0.92-3
# http://changelogs.ubuntu.com/changelogs/pool/universe/liba/libapp-nopaste-perl/libapp-nopaste-perl_0.96-1/changelog
#
# Since the vm runs an old version of umbongo fix things ourselves
sudo /usr/bin/perl -p -i -e 's|#!/usr/bin/env perl|#!/usr/bin/perl|' $(which nopaste)