testing: Check delete token expiry

1 files changed, 11 insertions, 0 deletions

diff --git a/testing/library.yarn b/testing/library.yarn
index 6d30db0..4754d39 100644
--- a/testing/library.yarn
+++ b/testing/library.yarn
@@ -40,6 +40,13 @@ Repository access
 	IMPLEMENTS WHEN ([a-z][a-z0-9]*),? using ([a-z][a-z0-9]*),? pushes ([^ ]+) to ([^ ]+)
 	$GTT pushviassh $MATCH_1 $MATCH_2 "$MATCH_3" "$MATCH_4"
 
+	IMPLEMENTS WHEN ([a-z][a-z0-9]*),? using ([a-z][a-z0-9]*),? (expecting failure,? )?destroys ([^ ]+) using the (.+) token
+	if $GTT runcommand $MATCH_1 $MATCH_2 \
+		destroy $MATCH_4 "$(cat "$DATADIR/saved-tokens/$MATCH_5")" \
+		>$DATADIR/stdout 2>$DATADIR/stderr; then
+	    test "$MATCH_3" = ""
+        fi
+
 Server-side repository checking for behind-the-scenes work
 ----------------------------------------------------------
 
@@ -147,6 +154,10 @@ Generic utility methods
 	IMPLEMENTS THEN ([^ ]+) is empty
 	if grep -q . $DATADIR/"$MATCH_1"; then false; fi
 
+	IMPLEMENTS GIVEN the token is saved as (.+)
+	mkdir -p "$DATADIR/saved-tokens"
+	cat "$DATADIR/stdout" "$DATADIR/stderr" | $GTT findtoken >"$DATADIR/saved-tokens/$MATCH_1"
+
 	IMPLEMENTS THEN failure ensues
 	cd $DATADIR
 	echo "FIND:"