run_tests.sh

#!/usr/bin/env bash
set -ue

echo "Currently not functional, need to fix the tests first" >&2
exit 1

export IMG="r-py.sif"
echo "Using Singularity image: ${IMG}"

#
################# Verify R version (label)
#
version () {
  singularity inspect "${IMG}" | \
    grep "R_Version" | \
    awk '{print $2}'
}


# singularity exec "$IMG" R -q -e "stopifnot(getRversion() == '$(version)')"



WD="$PWD"
set -x

#
################ Test container setup
#
cd "$WD"
mkdir test 
mkdir test/container-r

cd test/container-r
cp -L ../../r-py.sif .
cp ../../scripts/outside/* 

#
################ Test project creation
#
cd ..
mkdir project-r
cd project-r
../container-r/createproject --yes

#
################ Test cexec working dir
#
wd="$(./cexec pwd)"
test "$wd" = "/proj"

mkdir subdir
cd subdir
wd="$(../cexec pwd)"
test "$wd" = "/proj/subdir"


#
################ RStudio: setup
#
cd "$WD"
mkdir test/container-rstudio
cd test/container-rstudio
cp -L ../../rstudio.sif .
singularity run rstudio.sif setup

#
################ RStudio: project creation
#
cd ..
mkdir project-rstudio
cd project-rstudio
../container-rstudio/createproject --yes

#
################ RStudio: cexec working dir
#
wd="$(./rstudio exec pwd)"
test "$wd" = "/proj"

mkdir subdir
cd subdir
wd="$(../rstudio exec pwd)"
test "$wd" = "/proj/subdir"
cd ..

#
################ RStudio: start, list, stop, restart 
#

# Set RStudio passwort "test"
cat  >.rstudio-passwd <<'EOF'
$6$LqGleFffXVZs1uew$SQRgaAXw18WLbfKagMGGkbz5ZZ/zEsIDWDT4Q4L5P5x9ZcfYpAH18eZUppOvOY.AGfP5B0Sn20pPoFbBPKBv71
EOF
./rstudio start test
# wait until RStudio ist started
sleep 5s 

mkdir listtest
cd listtest
n="$(../rstudio list | wc -l)"
test "$n" = 2 # header and 1 running instance
cd ..
  

./rstudio stop test
sleep 5s
./rstudio start test

sleep 5s
./rstudio stop test

echo "All tests passed!"