Users: Add unfollow action

2 files changed, 92 insertions, 6 deletions

diff --git a/lib/Travelynx/Model/Users.pm b/lib/Travelynx/Model/Users.pm
index 9b0a115..4444dc9 100644
--- a/lib/Travelynx/Model/Users.pm
+++ b/lib/Travelynx/Model/Users.pm
@@ -803,23 +803,33 @@ sub reject_follow_request {
 	);
 }
 
-sub remove_follower {
+sub unfollow {
 	my ( $self, %opt ) = @_;
 
-	my $db       = $opt{db} // $self->{pg}->db;
-	my $uid      = $opt{uid};
-	my $follower = $opt{follower};
+	my $db     = $opt{db} // $self->{pg}->db;
+	my $uid    = $opt{uid};
+	my $target = $opt{target};
 
 	$db->delete(
 		'relations',
 		{
-			subject_id => $follower,
+			subject_id => $uid,
 			predicate  => $predicate_atoi{follows},
-			object_id  => $uid
+			object_id  => $target
 		}
 	);
 }
 
+sub remove_follower {
+	my ( $self, %opt ) = @_;
+
+	$self->unfollow(
+		db     => $opt{db},
+		uid    => $opt{follower},
+		target => $opt{uid},
+	);
+}
+
 sub block {
 	my ( $self, %opt ) = @_;
 
diff --git a/t/21-relations.t b/t/21-relations.t
index d34e3ea..5af691a 100644
--- a/t/21-relations.t
+++ b/t/21-relations.t
@@ -370,6 +370,82 @@ is(
 	),
 	undef
 );
+is( scalar $u->get_followers( uid => $uid1 ),       0 );
+is( scalar $u->get_followers( uid => $uid2 ),       0 );
+is( scalar $u->get_followees( uid => $uid1 ),       0 );
+is( scalar $u->get_followees( uid => $uid2 ),       0 );
+is( scalar $u->get_follow_requests( uid => $uid1 ), 0 );
+is( scalar $u->get_follow_requests( uid => $uid2 ), 0 );
+is( scalar $u->get_blocked_users( uid => $uid1 ),   0 );
+is( scalar $u->get_blocked_users( uid => $uid2 ),   0 );
+
+$u->request_follow(
+	uid    => $uid1,
+	target => $uid2
+);
+$u->accept_follow_request(
+	uid       => $uid2,
+	applicant => $uid1
+);
+
+is(
+	$u->get_relation(
+		uid    => $uid1,
+		target => $uid2
+	),
+	'follows'
+);
+is(
+	$u->get_relation(
+		uid    => $uid2,
+		target => $uid1
+	),
+	undef
+);
+is( scalar $u->get_followers( uid => $uid1 ),       0 );
+is( scalar $u->get_followers( uid => $uid2 ),       1 );
+is( scalar $u->get_followees( uid => $uid1 ),       1 );
+is( scalar $u->get_followees( uid => $uid2 ),       0 );
+is( scalar $u->get_follow_requests( uid => $uid1 ), 0 );
+is( scalar $u->get_follow_requests( uid => $uid2 ), 0 );
+is( scalar $u->get_blocked_users( uid => $uid1 ),   0 );
+is( scalar $u->get_blocked_users( uid => $uid2 ),   0 );
+is_deeply(
+	[ $u->get_followers( uid => $uid2 ) ],
+	[ { id => $uid1, name => 'test1' } ]
+);
+is_deeply(
+	[ $u->get_followees( uid => $uid1 ) ],
+	[ { id => $uid2, name => 'test2' } ]
+);
+
+$u->unfollow(
+	uid    => $uid1,
+	target => $uid2
+);
+
+is(
+	$u->get_relation(
+		uid    => $uid1,
+		target => $uid2
+	),
+	undef
+);
+is(
+	$u->get_relation(
+		uid    => $uid2,
+		target => $uid1
+	),
+	undef
+);
+is( scalar $u->get_followers( uid => $uid1 ),       0 );
+is( scalar $u->get_followers( uid => $uid2 ),       0 );
+is( scalar $u->get_followees( uid => $uid1 ),       0 );
+is( scalar $u->get_followees( uid => $uid2 ),       0 );
+is( scalar $u->get_follow_requests( uid => $uid1 ), 0 );
+is( scalar $u->get_follow_requests( uid => $uid2 ), 0 );
+is( scalar $u->get_blocked_users( uid => $uid1 ),   0 );
+is( scalar $u->get_blocked_users( uid => $uid2 ),   0 );
 
 $t->app->pg->db->query('drop schema travelynx_test_21 cascade');
 done_testing();