X-Git-Url: https://git.cworth.org/git?a=blobdiff_plain;f=test;h=d8a46ec970edf2bc40e4b382c48e1979a5ea1501;hb=2690233f317b87e7336b0404ae711837e726d5cf;hp=a75f515fbe4bfda34fa6dbb1b80d5fda4761442b;hpb=0f22d39849b66d510a9795f1547b700372690c51;p=empires-server

diff --git a/test b/test
index a75f515..d8a46ec 100755
--- a/test
+++ b/test
@@ -1,74 +1,403 @@
-#!/bin/sh
-set -e
+#!/bin/bash
 
-ENDPOINT=http://localhost:3000
+usage ()
+{
+    echo "Usage:$0 <URL-to-test>"
+}
+
+if [ $# -lt 1 ]; then
+    echo "Error: No test URL given." >&2
+    echo "" >&2
+    usage >&2
+    exit 1
+fi
+
+URL=$1
+CURL="curl --silent --show-error"
+
+_TEST_SECTION()
+{
+    echo ""
+    echo $1
+    echo $1 | sed -e "s/./$2/g"
+}
+
+TEST_SECTION()
+{
+    _TEST_SECTION "$1" =
+}
+
+TEST_SUBSECTION()
+{
+    _TEST_SECTION "$1" -
+}
+
+TEST()
+{
+    printf "    $1"
+    printf "%*s" $(( 52 - ${#1} )) | tr ' ' '.'
+    (( tests_total++ )) || true
+}
+
+# Result of test depends on the exit status of last command
+TEST_END()
+{
+    if [ $? -eq 0 ]; then
+        echo -n "OK"
+    else
+        (( tests_failed++ )) || true
+        echo -n "FAIL"
+    fi
+
+    # If we got an argument, append it after test result
+    if [ -n "$1" ]; then
+        echo " $1"
+    else
+        echo ""
+    fi
+}
+
+# Print report of all previous test results
+TEST_REPORT()
+{
+    echo ""
+    echo "Test Report"
+    echo "==========="
+
+    if [ "$tests_failed" == "" ]; then
+        echo "All $tests_total tests passed."
+        echo ""
+        return 0
+    else
+        echo "$tests_failed of $tests_total tests failed."
+        echo ""
+        return 1
+    fi
+}
+
+# Does a string contain a regular expression pattern
+#
+# Example:
+#
+#    contains "All's well that ends well" "s.well"
+contains()
+{
+    grep -q "$2" <<< $1
+}
+
+# POST to a URL endpoint with optional JSON data
+#
+# Usage:
+#
+# curl_post <ENDPOINT> [data] [CURL_OPTIONS]
+curl_post()
+{
+    $CURL ${3:-} -X POST ${2:+-H 'Content-Type: application/json' -d "$2"} $URL/$1
+}
+
+# PUT to a URL endpoint with optional JSON data
+#
+# Usage:
+#
+# curl_post <ENDPOINT> [data] [CURL_OPTIONS]
+curl_put()
+{
+    $CURL ${3:-} -X PUT ${2:+-H 'Content-Type: application/json' -d "$2"} $URL/$1
+}
+
+# GET from a URL endpoint
+#
+# Usage:
+#
+# curl_get <ENDPOINT> [CURL_OPTIONS]
+curl_get()
+{
+    $CURL ${2:-} $URL/$1
+}
+
+# Create a new game of the specified engine type
+#
+# Usage:
+#
+# new_game <ENGINE>
+new_game()
+{
+    curl_post new/$1 | jq -r .
+}
+
+TEST_SECTION "LMNO (super-site for games)"
+
+TEST_SUBSECTION "Testing home page"
+home_page=$($CURL $URL)
+
+TEST "Contains 'Join Game'"
+contains "$home_page" "Join Game"
+TEST_END
+
+TEST "Contains 'Host a new game'"
+contains "$home_page" "Host a new game"
+TEST_END
+
+TEST_SUBSECTION "Creating some new games"
+
+TEST "Empires"
+empires_game_id=$(new_game empires)
+test "$empires_game_id" != ""
+TEST_END $empires_game_id
+
+TEST "Tic Tac Toe"
+tictactoe_game_id=$(new_game tictactoe)
+test "$tictactoe_game_id" != ""
+TEST_END $tictactoe_game_id
+
+TEST_SUBSECTION "Test redirects"
+
+TEST "Redirect of /GAMEID at top level"
+redirect=$(curl_get $empires_game_id)
+test "$redirect" = "Moved Permanently. Redirecting to /empires/$empires_game_id/"
+TEST_END
+
+TEST "Redirect of lowercase /gameid at top level"
+empires_game_id_lower=$(tr '[:upper:]' '[:lower:]' <<< $empires_game_id)
+redirect=$(curl_get $empires_game_id_lower)
+test "$redirect" = "Moved Permanently. Redirecting to /$empires_game_id/"
+TEST_END
+
+TEST "Redirect of lowercase /empires/gameid"
+redirect=$(curl_get empires/$empires_game_id_lower)
+test "$redirect" = "Moved Permanently. Redirecting to /empires/$empires_game_id/"
+TEST_END
+
+TEST_SECTION "Empires game"
+
+empires_game_path=empires/$empires_game_id
+
+TEST_SUBSECTION "Empires game /register"
+
+empires_register()
+{
+    curl_post $empires_game_path/register "{\"name\": \"$1\", \"character\": \"$2\"}"
+}
+
+empires_players_string()
+{
+    curl_get $empires_game_path/players | jq -r .[].name | tr '\n' ','
+}
+
+empires_characters_string()
+{
+    curl_get $empires_game_path/characters | jq -r .[] | tr '\n' ','
+}
+
+TEST "Registering a player returns an ID"
+carl_id=$(empires_register Carl "Bugs Bunny" | jq -r .)
+test "$carl_id" = "1"
+TEST_END
+
+TEST "Registering several more players"
+empires_register Richard "Bob Hope" > /dev/null
+empires_register Kevin "Elvis Presley" > /dev/null
+empires_register Stacy Phineas > /dev/null
+empires_register David "Red Power Ranger" > /dev/null
+empires_register Nancy "Audrey Hepburn" > /dev/null
+bogus_id=$(empires_register Bogus "Mr. Bogus")
+TEST_END
+
+TEST 'Verify complete players list (with "Bogus")'
+players=$(empires_players_string)
+test "$players" = "Carl,Richard,Kevin,Stacy,David,Nancy,Bogus,"
+TEST_END
+
+TEST 'Verify complete players list (with "Mr. Bogus")'
+characters=$(empires_characters_string)
+test "$characters" = "Bugs Bunny,Bob Hope,Elvis Presley,Phineas,Red Power Ranger,Audrey Hepburn,Mr. Bogus,"
+TEST_END
+
+TEST_SUBSECTION "Empires game /deregister"
+
+empires_deregister()
+{
+    curl_post $empires_game_path/deregister/$1
+}
+
+TEST "Removing the bogus player"
+empires_deregister $bogus_id
+TEST_END
+
+TEST 'Verify modified players list (w/o "Bogus")"'
+players=$(empires_players_string)
+test "$players" = "Carl,Richard,Kevin,Stacy,David,Nancy,"
+TEST_END
+
+TEST 'Verify modified characters list (w/o "Mr. Bogus")'
+characters=$(empires_characters_string)
+test "$characters" = "Bugs Bunny,Bob Hope,Elvis Presley,Phineas,Red Power Ranger,Audrey Hepburn,"
+TEST_END
+
+TEST_SUBSECTION "Empires game /capture"
+
+empires_capture()
+{
+    curl_post $empires_game_path/capture/$1/$2
+}
+
+empires_empires_string()
+{
+    # Get empires as a compact string (much more compact than JSON)
+    curl_get $empires_game_path/empires | jq -c '.[] | [.id,.captures]' | tr '\n' ','
+}
+
+TEST "Verify empires before any captures"
+empires=$(empires_empires_string)
+test "$empires" = "[1,[]],[2,[]],[3,[]],[4,[]],[5,[]],[6,[]],"
+TEST_END
 
-register() {
-    curl -X POST -H "Content-Type: application/json" -d "{\"name\": \"$1\", \"character\": \"$2\"}" $ENDPOINT/register
+TEST "Perform some captures"
+empires_capture 1 2
+empires_capture 3 5
+empires_capture 4 6
+empires_capture 3 4
+TEST_END
+
+TEST "Verify empires after captures"
+empires=$(empires_empires_string)
+test "$empires" = "[1,[2]],[2,[]],[3,[5,4]],[4,[6]],[5,[]],[6,[]],"
+TEST_END
+
+TEST_SUBSECTION "Empires game /liberate"
+
+empires_liberate()
+{
+    curl_post $empires_game_path/liberate/$1
 }
 
-capture() {
-    curl -X POST $ENDPOINT/capture/$1/$2
+TEST "Liberate a player"
+empires_liberate 2
+TEST_END
+
+TEST "Verify empires after liberate"
+empires=$(empires_empires_string)
+test "$empires" = "[1,[]],[2,[]],[3,[5,4]],[4,[6]],[5,[]],[6,[]],"
+TEST_END
+
+TEST_SUBSECTION "Empires game /reset"
+
+empires_reset()
+{
+    curl_post $empires_game_path/reset
 }
 
-echo "Registering several players"
-register Carl "Bugs Bunny"
-register Richard "Bob Hope"
-register Kevin "Elvis Presley"
-register Stacy Phineas
-register David Red Power Ranger
-register Nancy "Audrey Hepburn"
-register Bogus "Bogus Player"
+TEST "Reset the game"
+empires_reset
+TEST_END
+
+TEST "Verify players is now empty"
+players=$(empires_players_string)
+test "$players" = ""
+TEST_END
+
+TEST_SECTION "Tic Tac Toe game"
+
+tictactoe_game_path=tictactoe/$tictactoe_game_id
+
+tictactoe_move()
+{
+    curl_post $tictactoe_game_path/move "{ \"move\": $1 }" "-b .test-cookie"
+}
+
+lmno_profile()
+{
+    curl_put /profile "{ \"nickname\": \"$1\" }" "-c .test-cookie"
+}
+
+tictactoe_player_info()
+{
+    curl_get $tictactoe_game_path/events  "-m 0.1 -b .test-cookie" 2>&1 \
+        | grep player-info -A 1 \
+        | grep ^data
+}
+
+tictactoe_player_name()
+{
+    curl_put $tictactoe_game_path/player "{ \"name\": \"$1\" }" "-b .test-cookie"
+}
+
+tictactoe_player_team()
+{
+    curl_put $tictactoe_game_path/player "{ \"team\": \"$1\" }" "-b .test-cookie"
+}
+
+TEST_SUBSECTION "Tic Tac Toe player-info"
+
+TEST "Hit LMNO /profile to set name to 'curl'"
+lmno_profile curl
+TEST_END
 
-echo "Listing registered players (with bogus)"
-curl $ENDPOINT/players
-echo ""
+TEST "Verify player-info event reports 'curl' name"
+result=$(tictactoe_player_info)
+test "$result" = 'data: {"id":1,"name":"curl","team":""}'
+TEST_END
 
-echo "Listing characters (with bogus)"
-curl $ENDPOINT/characters
-echo ""
+TEST_SUBSECTION "Tic Tac Toe /player"
 
-echo "Removing bogus player"
-curl -X POST $ENDPOINT/deregister/7
-echo ""
+TEST "Change name to 'newname'"
+tictactoe_player_name newname
+result=$(tictactoe_player_info)
+test "$result" = 'data: {"id":1,"name":"newname","team":""}'
+TEST_END
 
-echo "Listing registered players (without bogus)"
-curl $ENDPOINT/players
-echo ""
+TEST "Change team to 'X'"
+tictactoe_player_team X
+result=$(tictactoe_player_info)
+test "$result" = 'data: {"id":1,"name":"newname","team":"X"}'
+TEST_END
 
-echo "Listing characters (without bogus)"
-curl $ENDPOINT/characters
-echo ""
+TEST "Change team to 'O'"
+tictactoe_player_team O
+result=$(tictactoe_player_info)
+test "$result" = 'data: {"id":1,"name":"newname","team":"O"}'
+TEST_END
 
-echo "Performing some captures"
-capture 1 2
-capture 3 5
-capture 4 6
-capture 3 4
+TEST "Verify cannot change team to 'Z'"
+tictactoe_player_team Z
+result=$(tictactoe_player_info)
+test "$result" = 'data: {"id":1,"name":"newname","team":"O"}'
+TEST_END
 
-echo "Listing captured empires"
-curl $ENDPOINT/empires
-echo ""
+TEST "Leave current team"
+tictactoe_player_team ""
+result=$(tictactoe_player_info)
+test "$result" = 'data: {"id":1,"name":"newname","team":""}'
+TEST_END
 
-echo "Liberating player with index 2"
-curl -X POST $ENDPOINT/liberate/2
-echo ""
+TEST_SUBSECTION "Tic Tac Toe /move"
 
-echo "Listing captured empires"
-curl $ENDPOINT/empires
-echo ""
+TEST "First move doesn't require a team"
+result=$(tictactoe_move 0)
+test "$result" = '{"legal":true}'
+TEST_END
 
-echo "Clearing all captures"
-curl -X POST $ENDPOINT/restart
+TEST "Second move does require a team"
+result=$(tictactoe_move 4)
+test "$result" = '{"legal":false,"message":"It'"'"'s not your turn to move"}'
+TEST_END
 
-echo "Listing cleared empires"
-curl $ENDPOINT/empires
-echo ""
+TEST "Illegal to move when it's not your turn"
+tictactoe_player_team X
+result=$(tictactoe_move 4)
+test "$result" = '{"legal":false,"message":"It'"'"'s not your turn to move"}'
+TEST_END
 
-echo "Eliminating all players"
-curl -X POST $ENDPOINT/reset
+TEST "Legal move to center square"
+tictactoe_player_team O
+result=$(tictactoe_move 4)
+test "$result" = '{"legal":true}'
+TEST_END
 
-echo "Listing empty players array"
-curl $ENDPOINT/players
-echo ""
+TEST "Move to center square again is now illegal"
+tictactoe_player_team X
+result=$(tictactoe_move 4)
+test "$result" = '{"legal":false,"message":"Square is already occupied"}'
+TEST_END
 
+TEST_REPORT