# Forte 26.9.10 (the ActivityPub-only fork of Streams): follows both ways; posts both ways; comments both ways; likes both
# ways; a comment by ftfriend in ftuser's thread, which Forte passes on to alice as the thread's owner; edits and
# deletions both ways; the unfollow; statistics. Forte's API (api/z/1.0) posts, edits and reads; what it has no route
# for is done through its own PHP (connecting) or its web pages signed in (liking, dropping; peers/forte.sh), and
# what it holds is read from its MySQL (database forte, the item table by mid).
. "$here/peers/forte.sh"
FT=https://forte.test:6443
# ftc <nick> <curl args...>: Forte's API as <nick>
ftc() { local nick=$1; shift; site forte.test -s -u "$nick@forte.test:$FORTE_PASSWORD" "$@"; }
ft_sql() { podman exec pasture-mysql mysql -upasture -ppasture forte -Nse "$1" 2>/dev/null; }
# ft_item <mid> [nick]: the id of the item Forte holds under that ActivityPub id in a channel (ftuser's)
ft_item() { ft_sql "select id from item where mid = '$1' and uid = (select channel_id from channel where channel_address = '${2:-ftuser}') and item_deleted = 0 limit 1"; }
# ft_disconnect <nick> <url>: the channel's connection to that address gone, so connecting again sends a new Follow
ft_disconnect() { forte_eval "use Code\\Lib\\Channel; \$c = Channel::from_username('$1'); \$r = q(\"select abook_id from abook join xchan on abook_xchan = xchan_hash where abook_channel = %d and (xchan_url = '%s' or xchan_hash = '%s' or xchan_addr = '%s')\", intval(\$c['channel_id']), dbesc('$2'), dbesc('$2'), dbesc('$2')); foreach (\$r ?: [] as \$a) contact_remove(\$c['channel_id'], \$a['abook_id']);"; }
# ft_connect <nick> <address>: the channel connects, and Forte's notifier sends its Follow at once (Forte starts it as a
# background process, which does not outlive a command run through podman exec)
ft_connect() {
	local abook
	abook=$(forte_eval "use Code\\Lib\\Connect; use Code\\Lib\\Channel; \$c = Channel::from_username('$1'); \$r = Connect::connect(\$c, '$2'); echo \$r['success'] ? \$r['abook']['abook_id'] : '';" | tail -1)
	[ -n "$abook" ] && forte_php src/Daemon/Run.php Notifier permissions_create "$abook" >/dev/null 2>&1
	echo "$abook"
}
p_home_id() { curl -s -H "$PH" "$P/api/v1/timelines/home?limit=40" | j "print(next((o['id'] for o in ((s.get('reblog') or s) for s in d) if '$1' in (o['content'] or '')), ''))"; }
p_status() { curl -s -H "$PH" "$P/api/v1/statuses/$1" | j "print(d.get('$2'))"; }
p_replies_have() { [ "$(curl -s -H "$PH" "$P/api/v1/statuses/$1/context" | j "print(any('$2' in s['content'] for s in d['descendants']))")" = "True" ]; }

echo "forte"
[ -n "$(ftc ftuser "$FT/api/z/1.0/verify" | j "print(d.get('channel_address') or '')")" ] && ok "Forte's API as ftuser" \
	|| { ko "Forte's API ($(ftc ftuser "$FT/api/z/1.0/verify" | head -c 200))"; return 1; }
PT=$(privapub_token alice_forte)
PH="Authorization: Bearer $PT"
[ -n "$PT" ] && ok "PrivaPub token for alice_forte" || { ko "PrivaPub token for alice_forte"; return 1; }
alice_uri="$(curl -s -H "$PH" "$P/api/v1/accounts/verify_credentials" | j "print(d['url'])" | sed 's|/@|/peasants/|')"
run=$(date +%s)

echo "  follows"
ft_on_p=$(curl -s -H "$PH" "$P/api/v2/search?q=ftuser@forte.test&resolve=true&type=accounts" | j "print(d['accounts'][0]['id'])")
[ -n "$ft_on_p" ] && ok "PrivaPub resolves ftuser" || ko "PrivaPub cannot resolve ftuser"
# (left from an earlier run: alice and ftuser unfollow each other and ftfriend leaves ftuser, so every follow below is new)
curl -s -o /dev/null -X POST -H "$PH" "$P/api/v1/accounts/$ft_on_p/unfollow"
ft_disconnect ftuser "$alice_uri" >/dev/null; ft_disconnect ftuser "$(curl -s -H "$PH" "$P/api/v1/accounts/verify_credentials" | j "print(d['url'])")" >/dev/null
ft_disconnect ftfriend ftuser@forte.test >/dev/null; ft_disconnect ftuser ftfriend@forte.test >/dev/null
sleep 3
ft_connect ftuser "$alice_uri" >/dev/null
until_true 60 '[ "$(curl -s -H "$PH" "$P/api/v1/accounts/verify_credentials" | j "print(d[\"followers_count\"])")" -ge 1 ]' \
	&& ok "ftuser follows alice" || ko "Forte's follow never reached alice"
curl -s -o /dev/null -X POST -H "$PH" "$P/api/v1/accounts/$ft_on_p/follow"
until_true 60 '[ "$(curl -s -H "$PH" "$P/api/v1/accounts/relationships?id[]=$ft_on_p" | j "print(d[0][\"following\"])")" = "True" ]' \
	&& ok "alice follows ftuser (Accept arrived)" || ko "Forte's Accept never arrived"
# (ftfriend connects to ftuser now: a channel comments only on what reached it, and only once the other side has let it)
ft_connect ftfriend ftuser@forte.test >/dev/null

echo "  posts"
ftc ftuser -o /dev/null -X POST "$FT/api/z/1.0/item/update" --data-urlencode "body=a Forte post $run"
until_true 60 '[ -n "$(p_home_id "a Forte post $run")" ]' && ok "ftuser's post reaches alice's home" || ko "ftuser's post never reached alice"
ft_post=$(p_home_id "a Forte post $run")
ft_post_uri=$(p_status "$ft_post" uri)
p_post=$(curl -s -X POST -H "$PH" "$P/api/v1/statuses" -d "status=a PrivaPub post for Forte $run&visibility=public")
p_post_id=$(echo "$p_post" | j "print(d['id'])"); p_post_uri=$(echo "$p_post" | j "print(d['uri'])")
until_true 60 '[ -n "$(ft_item "$p_post_uri")" ]' && ok "alice's post reaches ftuser" || ko "alice's post never reached Forte"

echo "  comments"
curl -s -o /dev/null -X POST -H "$PH" "$P/api/v1/statuses" -d "status=@ftuser@forte.test a PrivaPub comment $run&in_reply_to_id=$ft_post&visibility=public"
until_true 60 '[ "$(ft_sql "select count(*) from item where body like '"'%a PrivaPub comment $run%'"' and thr_parent = '"'$ft_post_uri'"'")" -ge 1 ]' \
	&& ok "alice's comment threads under ftuser's post" || ko "alice's comment never reached Forte"
ftc ftuser -o /dev/null -X POST "$FT/api/z/1.0/item/update" --data-urlencode "body=a Forte comment $run" -d "parent=$(ft_item "$p_post_uri")"
until_true 60 'p_replies_have "$p_post_id" "a Forte comment $run"' && ok "ftuser's comment threads under alice's post" || ko "ftuser's comment missing on PrivaPub"
# ftfriend, who alice does not follow, comments in ftuser's thread: Forte, the thread's owner, passes it on to alice
until_true 30 '[ -n "$(ft_item "$ft_post_uri" ftfriend)" ]' >/dev/null
ftc ftfriend -o /dev/null -X POST "$FT/api/z/1.0/item/update" --data-urlencode "body=a word from ftfriend $run" -d "parent=$(ft_item "$ft_post_uri" ftfriend)"
until_true 60 'p_replies_have "$ft_post" "a word from ftfriend $run"' \
	&& ok "ftfriend's comment in ftuser's thread reaches alice, passed on" || ko "ftfriend's comment never reached alice"

echo "  likes"
curl -s -o /dev/null -X POST -H "$PH" "$P/api/v1/statuses/$ft_post/favourite"
until_true 60 '[ "$(ft_sql "select count(*) from item where verb = '"'Like'"' and thr_parent = '"'$ft_post_uri'"' and item_deleted = 0")" -ge 1 ]' \
	&& ok "alice's like lands on Forte" || ko "alice's like never reached Forte"
forte_web ftuser -o /dev/null "$FT/like/$(ft_item "$p_post_uri")?verb=Like"
until_true 60 '[ "$(p_status "$p_post_id" favourites_count)" = "1" ]' && ok "ftuser's like counts on PrivaPub" || ko "ftuser's like never counted"

echo "  edits and deletions"
ftc ftuser -o /dev/null -X POST "$FT/api/z/1.0/item/update" -d "post_id=$(ft_item "$ft_post_uri")" --data-urlencode "body=a Forte post $run, edited"
until_true 60 'p_status "$ft_post" content | grep -q "edited"' && ok "ftuser's edit reaches PrivaPub" || ko "ftuser's edit never reached PrivaPub"
curl -s -o /dev/null -X PUT -H "$PH" "$P/api/v1/statuses/$p_post_id" -d "status=a PrivaPub post for Forte $run, edited"
until_true 60 '[ "$(ft_sql "select count(*) from item where mid = '"'$p_post_uri'"' and body like '"'%edited%'"'")" -ge 1 ]' \
	&& ok "alice's edit reaches Forte" || ko "alice's edit never reached Forte"
forte_web ftuser -o /dev/null "$FT/item/drop/$(ft_item "$ft_post_uri")"
until_true 60 '[ "$(curl -s -o /dev/null -w "%{http_code}" -H "$PH" "$P/api/v1/statuses/$ft_post")" = "404" ]' \
	&& ok "ftuser's deletion reaches PrivaPub" || ko "ftuser's deleted post still on PrivaPub"
curl -s -o /dev/null -X DELETE -H "$PH" "$P/api/v1/statuses/$p_post_id"
until_true 60 '[ -z "$(ft_item "$p_post_uri")" ]' && ok "alice's deletion reaches Forte" || ko "alice's deleted post still on Forte"

echo "  unfollow"
curl -s -o /dev/null -X POST -H "$PH" "$P/api/v1/accounts/$ft_on_p/unfollow"
until_true 20 '[ "$(ft_sql "select count(*) from abconfig where xchan = '"'$alice_uri'"' and cat = '"'their_perms'"' and v = '"'1'"' and chan = (select channel_id from channel where channel_address = '"'ftuser'"')")" = "0" ]' \
	&& ok "alice's unfollow reaches Forte" || ko "Forte keeps alice following ftuser after her Undo{Follow}"

echo "  statistics"
stats_check forte.test forte