added Dockerfile plus started on automated tests

This commit is contained in:
Rudis Muiznieks 2020-07-18 15:24:06 -05:00
parent fc16e6d621
commit 475eca5f82
4 changed files with 199 additions and 36 deletions

6
.gitignore vendored
View File

@ -1,4 +1,2 @@
dotplan.pid data/*
dotplan.log test/data/*
*.db
plans/*

16
Dockerfile Normal file
View File

@ -0,0 +1,16 @@
from alpine:latest
run apk add wget gnupg sqlite build-base perl perl-dev perl-app-cpanminus
run cpanm --notest IPC::Run DBD::SQLite Net::DNS::Resolver Crypt::Eksblowfish::Bcrypt JSON URI::Escape HTML::Entities String::ShellQuote Net::Server HTTP::Server::Simple
run mkdir -p /opt/data/plans
copy schema.sql /opt/data
run cat /opt/data/schema.sql | sqlite3 /opt/data/users.db
run rm /opt/data/schema.sql
run apk del build-base perl-dev perl-app-cpanminus wget sqlite
copy server.pl /opt
workdir /opt
entrypoint ["/usr/bin/perl", "server.pl"]

32
ctl
View File

@ -1,32 +0,0 @@
#!/usr/bin/env sh
cmd=$1
killserver() {
if [ -f "dotplan.pid" ]; then
kill -9 $(cat dotplan.pid)
rm dotplan.pid
fi
}
if [ "$cmd" = "run" ]; then
killserver
perl server.pl
elif [ "$cmd" = "daemon" ]; then
killserver
perl server.pl -d
elif [ "$cmd" = "kill" ]; then
killserver
elif [ "$cmd" = "initdb" ]; then
if [ -f "users.db" ]; then
rm users.db
fi
cat schema.sql | sqlite3 users.db
else
echo 'Usage: ctl [command]'
echo
echo 'Commands:'
echo ' run'
echo ' kill'
echo ' initdb'
fi

181
test/run.sh Executable file
View File

@ -0,0 +1,181 @@
#!/usr/bin/env bash
BASEDIR=$(dirname "$0")
PORT=14227
TEST_USER=testuser@example.com
###################
# Utility Functions
###################
RED='\033[0;31m'
GREEN='\033[0;32m'
BOLD='\033[1m'
NC='\033[0m'
wait_file() {
local file="$1"
local wait_seconds="${2:-10}"
until test $((wait_seconds--)) -eq 0 -o -f "$file" ; do sleep 1; done
((++wait_seconds))
}
curl_test() {
test_name=$1;shift
expect_response_code=$1;shift
expect_content_type=$1;shift
TEST_CONTENT=$(curl -s -H "Content-Type: application/json" -w '%{stderr}%{response_code}|%{content_type}' "$@" 2>"$BASEDIR/data/err")
exit_code=$?
printf -- "- ${BOLD}TEST $test_name:${NC} "
if [ $exit_code -ne 0 ]; then
printf "${RED}FAIL${NC} with exit code $exit_code\n"
return 1
fi
stderr=$(<"$BASEDIR/data/err")
response_code=$(echo $stderr | cut -f1 -d'|')
content_type=$(echo $stderr | cut -f2 -d'|')
if [ "$response_code" != "$expect_response_code" ]; then
printf "${RED}FAIL${NC} with response code $response_code\n"
return 1
fi
if [ "$content_type" != "$expect_content_type" ]; then
printf "${RED}FAIL${NC} with content type $content_type\n"
return 1
fi
printf "${GREEN}PASS${NC}\n"
return 0
}
assert_equal() {
check_name=$1;shift
actual=$1;shift
expected=$1;shift
printf " - ${BOLD}CHECK $check_name:${NC} "
if [ "$actual" != "$expected" ]; then
printf "${RED}FAIL${NC} \"$actual\" != \"$expected\"\n"
return 1
fi
printf "${GREEN}PASS${NC}\n"
return 0;
}
assert_equal_jq() {
selector=$1;shift
expected=$1;shift
printf " - ${BOLD}CHECK $selector:${NC} "
actual=$(echo "$TEST_CONTENT" | jq -r "$selector")
if [ "$actual" != "$expected" ]; then
printf "${RED}FAIL${NC} \"$actual\" != \"$expected\"\n"
return 1
fi
printf "${GREEN}PASS${NC}\n"
return 0;
}
############
# Test Setup
############
TEST_CONTENT=
printf "Setting up test server on port $PORT...\n\n"
rm -rf "$BASEDIR/data"
mkdir -p "$BASEDIR/data/plans"
sqlite3 "$BASEDIR/data/test.db" < "$BASEDIR/../schema.sql"
# run the test server
PORT=$PORT \
PID_FILE="$BASEDIR/data/test.pid" \
LOG_FILE="$BASEDIR/data/test.log" \
DATABASE="$BASEDIR/data/test.db" \
PLAN_DIR="$BASEDIR/data/plans" \
SENDMAIL=/usr/bin/true \
perl "$BASEDIR/../server.pl" -d >>/dev/null 2>>/dev/null
wait_file "$BASEDIR/data/test.pid" || {
echo "Pid file didn't appear after $? seconds, bailing."
exit 1
}
#######
# Tests
#######
REQ_DATA='{"password":"test1234"}'
curl_test 'Register a new user' 200 'application/json' -XPOST -d "$REQ_DATA" localhost:$PORT/users/$TEST_USER \
&& assert_equal_jq '.email' $TEST_USER
curl_test 'Rate limit registrations' 429 'application/json' -XPOST -d "$REQ_DATA" localhost:$PORT/users/$TEST_USER
token=$(echo "select pw_token from users where email='$TEST_USER'" | sqlite3 "$BASEDIR/data/test.db")
curl_test 'Reject bad verification token' 400 'text/html' localhost:$PORT/users/$TEST_USER?token=thisiswrong
curl_test 'Reject bad verification email' 404 'text/html' localhost:$PORT/users/testuser@exmapl3.com?token=$token
curl_test 'Verify email address' 200 'text/html' localhost:$PORT/users/$TEST_USER?token=$token
curl_test 'Reject incorrect email' 401 'application/json' -u testuser@exampl3.com:test1234 localhost:$PORT/token
curl_test 'Reject incorrect password' 401 'application/json' -u $TEST_USER:thisiswrong localhost:$PORT/token
curl_test 'Get authentication token' 200 'application/json' -u $TEST_USER:test1234 localhost:$PORT/token
token=$(echo "$TEST_CONTENT" | jq -r '.token')
curl_test 'No plan by default' 404 'text/plain' localhost:$PORT/plan/$TEST_USER
curl_test 'Reject bad authentication token' 401 'application/json' -XPUT -d '{"plan":"something","auth":"wrong"}' localhost:$PORT/plan/$TEST_USER
curl_test 'Create a plan' 200 'application/json' -XPUT -d "{\"plan\":\"something\",\"auth\":\"$token\"}" localhost:$PORT/plan/$TEST_USER \
&& assert_equal_jq '.success' 1
curl_test 'Get initial plan' 200 'application/json' localhost:$PORT/plan/$TEST_USER?format=json \
&& assert_equal_jq '.plan' 'something'
curl_test 'Create a plan' 200 'application/json' -XPUT -d "{\"plan\":\"some&thing\\nelse\",\"auth\":\"$token\"}" localhost:$PORT/plan/$TEST_USER \
&& assert_equal_jq '.success' 1
curl_test 'Get updated plan json using accept' 200 'application/json' -H 'Accept: application/json' localhost:$PORT/plan/$TEST_USER \
&& assert_equal_jq '.plan' 'some&thing
else'
curl_test 'Get updated plan json using querystring' 200 'application/json' localhost:$PORT/plan/$TEST_USER?format=json \
&& assert_equal_jq '.plan' 'some&thing
else'
curl_test 'Get updated plan html using accept' 200 'text/html' -H 'Accept: text/html' localhost:$PORT/plan/$TEST_USER \
&& assert_equal 'html content' "$TEST_CONTENT" 'some&amp;thing<br>
else'
curl_test 'Get updated plan html using querystring' 200 'text/html' localhost:$PORT/plan/$TEST_USER?format=html \
&& assert_equal 'html content' "$TEST_CONTENT" 'some&amp;thing<br>
else'
curl_test 'Get updated plan text' 200 'text/plain' localhost:$PORT/plan/$TEST_USER \
&& assert_equal 'text content' "$TEST_CONTENT" 'some&thing
else'
curl_test 'Check missing plan in json using accept' 404 'application/json' -H 'Accept: application/json' localhost:$PORT/plan/testuser@exampl3.com
curl_test 'Check missing plan in json using querystring' 404 'application/json' localhost:$PORT/plan/testuser@exampl3.com?format=json
curl_test 'Check missing plan in html using accept' 404 'text/html' -H 'Accept: text/html' localhost:$PORT/plan/testuser@exampl3.com
curl_test 'Check missing plan in html using querystring' 404 'text/html' localhost:$PORT/plan/testuser@exampl3.com?format=html
curl_test 'Check missing plan in text by omitting accept' 404 'text/plain' localhost:$PORT/plan/testuser@exampl3.com
###############
# Test Teardown
###############
printf "\nTearing down...\n"
if [ -f "$BASEDIR/data/test.pid" ]; then
kill -9 `cat "$BASEDIR/data/test.pid"`
rm "$BASEDIR/data/test.pid"
fi
printf "Tests complete.\n"