Add the possibility to create profiles and groups from CLI

- Create an actor at the same time when creating an user
- or create either a profile and attach it to an existing user
- or create a group and set the admin to an existing profile

Closes #785

Signed-off-by: Thomas Citharel <tcit@tcit.fr>

test/tasks/actors/new_test.exs

@@ -0,0 +1,185 @@
+defmodule Mix.Tasks.Mobilizon.Actors.NewTest do
+  use Mobilizon.DataCase
+
+  import Mobilizon.Factory
+
+  alias Mix.Tasks.Mobilizon.Actors.New
+
+  alias Mobilizon.{Actors, Users}
+  alias Mobilizon.Actors.Actor
+  alias Mobilizon.Users.User
+
+  Mix.shell(Mix.Shell.Process)
+
+  @email "me@some.where"
+  describe "create profile" do
+    setup do
+      %User{} = user = insert(:user, email: @email)
+
+      {:ok, user: user}
+    end
+
+    @preferred_username "toto"
+    @name "Léo Pandaï"
+    @converted_username "leo_pandai"
+
+    test "create with no options" do
+      New.run([])
+
+      # Debug message
+      assert_received {:mix_shell, :error, [message]}
+
+      assert message =~
+               "You need to provide at least --username or --display-name."
+    end
+
+    test "create when email isn't set" do
+      New.run(["--display-name", @name])
+
+      # Debug message
+      assert_received {:mix_shell, :error, [message]}
+
+      assert message =~
+               "You need to provide an email for creating a new profile."
+    end
+
+    test "create when email doesn't exist" do
+      New.run(["--email", "toto@somewhere.else", "--display-name", @name])
+
+      # Debug message
+      assert_received {:mix_shell, :error, [message]}
+
+      assert message =~
+               "No user with this email was found."
+    end
+
+    test "create with --display-name" do
+      New.run(["--email", @email, "--display-name", @name])
+
+      assert {:ok, %User{id: user_id}} = Users.get_user_by_email(@email)
+
+      assert %Actor{
+               preferred_username: @converted_username,
+               name: @name,
+               domain: nil,
+               user_id: ^user_id
+             } = Actors.get_local_actor_by_name(@converted_username)
+    end
+
+    test "create with --username" do
+      New.run(["--email", @email, "--username", @preferred_username])
+
+      assert {:ok, %User{id: user_id}} = Users.get_user_by_email(@email)
+
+      assert %Actor{
+               preferred_username: @preferred_username,
+               name: @preferred_username,
+               domain: nil,
+               user_id: ^user_id
+             } = Actors.get_local_actor_by_name(@preferred_username)
+    end
+
+    test "create with --username and --display-name" do
+      New.run(["--email", @email, "--username", @preferred_username, "--display-name", @name])
+
+      assert {:ok, %User{id: user_id}} = Users.get_user_by_email(@email)
+
+      assert %Actor{
+               preferred_username: @preferred_username,
+               name: @name,
+               domain: nil,
+               user_id: ^user_id
+             } = Actors.get_local_actor_by_name(@preferred_username)
+    end
+  end
+
+  describe "create group" do
+    @already_existing_group "already_there"
+    @already_existing_group_name "Already Thére"
+    @profile_username "theo"
+
+    setup do
+      group = insert(:group, preferred_username: @already_existing_group)
+      profile = insert(:actor, preferred_username: @profile_username)
+      {:ok, group: group, profile: profile}
+    end
+
+    test "create with no options" do
+      New.run(["--type", "group"])
+
+      # Debug message
+      assert_received {:mix_shell, :error, [message]}
+
+      assert message =~
+               "You need to provide at least --username or --display-name."
+    end
+
+    test "create when email isn't set" do
+      New.run(["--type", "group", "--display-name", @name])
+
+      # Debug message
+      assert_received {:mix_shell, :error, [message]}
+
+      assert message =~
+               "You need to provide --group-admin with the username of the admin to create a group."
+    end
+
+    test "create when group admin doesn't exist" do
+      New.run([
+        "--type",
+        "group",
+        "--display-name",
+        @name,
+        "--group-admin",
+        "some0ne_98"
+      ])
+
+      # Debug message
+      assert_received {:mix_shell, :error, [message]}
+
+      assert message =~
+               "Profile with username some0ne_98 wasn't found"
+    end
+
+    test "create but the group already exists" do
+      New.run([
+        "--type",
+        "group",
+        "--display-name",
+        @already_existing_group_name,
+        "--group-admin",
+        @profile_username
+      ])
+
+      # Debug message
+      assert_received {:mix_shell, :error, [message]}
+
+      assert message =~
+               "[preferred_username: {\"This username is already taken.\", []}]"
+
+      assert_received {:mix_shell, :error, [message]}
+
+      assert message =~
+               "Error while creating group because of the above reason"
+    end
+
+    @group_name "My Awesome Group"
+    @group_username "my_awesome_group"
+
+    test "create group", %{profile: %Actor{id: admin_id}} do
+      New.run([
+        "--type",
+        "group",
+        "--display-name",
+        @group_name,
+        "--group-admin",
+        @profile_username
+      ])
+
+      assert %Actor{name: @group_name, preferred_username: @group_username, id: group_id} =
+               Actors.get_group_by_title(@group_username)
+
+      assert Actors.is_administrator?(admin_id, group_id)
+    end
+  end
+end

test/tasks/users_test.exs

@@ -5,7 +5,8 @@ defmodule Mix.Tasks.Mobilizon.UsersTest do
 
   alias Mix.Tasks.Mobilizon.Users.{Delete, Modify, New, Show}
 
-  alias Mobilizon.Users
+  alias Mobilizon.{Actors, Users}
+  alias Mobilizon.Actors.Actor
   alias Mobilizon.Users.User
 
   Mix.shell(Mix.Shell.Process)
@@ -52,6 +53,88 @@ defmodule Mix.Tasks.Mobilizon.UsersTest do
       assert_received {:mix_shell, :error, [message]}
       assert message =~ "User has not been created because of the above reason."
     end
+
+    @preferred_username "toto"
+    @name "Léo Pandaï"
+    @converted_username "leo_pandai"
+
+    test "create a profile with the user" do
+      New.run([@email, "--profile-username", @preferred_username, "--profile-display-name", @name])
+
+      assert {:ok,
+              %User{
+                email: email,
+                role: role,
+                confirmed_at: confirmed_at,
+                id: user_id,
+                default_actor_id: user_default_actor_id
+              }} = Users.get_user_by_email(@email)
+
+      assert %Actor{
+               preferred_username: @preferred_username,
+               name: @name,
+               domain: nil,
+               user_id: ^user_id,
+               id: actor_id
+             } = Actors.get_local_actor_by_name(@preferred_username)
+
+      assert user_default_actor_id == actor_id
+      assert email == @email
+      assert role == :user
+      refute is_nil(confirmed_at)
+    end
+
+    test "create a profile from displayed name only" do
+      New.run([@email, "--profile-display-name", @name])
+
+      assert {:ok,
+              %User{
+                email: email,
+                role: role,
+                confirmed_at: confirmed_at,
+                id: user_id,
+                default_actor_id: user_default_actor_id
+              }} = Users.get_user_by_email(@email)
+
+      assert %Actor{
+               preferred_username: @converted_username,
+               name: @name,
+               domain: nil,
+               user_id: ^user_id,
+               id: actor_id
+             } = Actors.get_local_actor_by_name(@converted_username)
+
+      assert user_default_actor_id == actor_id
+      assert email == @email
+      assert role == :user
+      refute is_nil(confirmed_at)
+    end
+
+    test "create a profile from username only" do
+      New.run([@email, "--profile-username", @preferred_username])
+
+      assert {:ok,
+              %User{
+                email: email,
+                role: role,
+                confirmed_at: confirmed_at,
+                id: user_id,
+                default_actor_id: user_default_actor_id
+              }} = Users.get_user_by_email(@email)
+
+      assert %Actor{
+               preferred_username: @preferred_username,
+               name: @preferred_username,
+               domain: nil,
+               user_id: ^user_id,
+               id: actor_id
+             } = Actors.get_local_actor_by_name(@preferred_username)
+
+      assert user_default_actor_id == actor_id
+      assert email == @email
+      assert role == :user
+      refute is_nil(confirmed_at)
+    end
   end
 
   describe "delete user" do