Add test for updating room aliases on upgraded room join

tests/10apidoc/30room-create.pl

@@ -318,7 +318,7 @@ sub matrix_create_room
    });
 }
 
-push @EXPORT, qw( room_alias_name_fixture room_alias_fixture matrix_create_room_synced );
+push @EXPORT, qw( room_alias_name_fixture room_alias_fixture remote_room_alias_fixture matrix_create_room_synced );
 
 my $next_alias_name = 0;
 
@@ -356,7 +356,7 @@ sub room_alias_name_fixture
 
 =head2 room_alias_fixture
 
-   $fixture = room_alias_fixture( prefix => $prefix )
+   $fixture = room_alias_fixture( prefix => $prefix, info => $info )
 
 Returns a new Fixture, which when provisioned will allocate a name for a new
 room alias on the first homeserver, and return it as a string. Note that this
@@ -366,6 +366,9 @@ =head2 room_alias_fixture
 An optional prefix string can be provided, which will be prepended onto the
 alias name.
 
+An optional remote boolean can be supplied, which will generate an alias for
+the remote homeserver instead.
+
 =cut
 
 sub room_alias_fixture
@@ -374,7 +377,8 @@ sub room_alias_fixture
 
    return fixture(
       requires => [
-         room_alias_name_fixture( prefix => $args{prefix} ), $main::HOMESERVER_INFO[0],
+         room_alias_name_fixture( prefix => $args{prefix} ),
+         exists($args{remote}) ? $main::HOMESERVER_INFO[1] : $main::HOMESERVER_INFO[0],
       ],
 
       setup => sub {
@@ -385,6 +389,27 @@ sub room_alias_fixture
    );
 }
 
+=head2 remote_room_alias_fixture
+
+   $fixture = remote_room_alias_fixture( prefix => $prefix )
+
+Returns a new Fixture, which when provisioned will allocate a name for a new
+room alias on the second homeserver, and return it as a string. Note that this
+does not actually create the alias on the server itself, it simply suggests a
+new unique name for one.
+
+An optional prefix string can be provided, which will be prepended onto the
+alias name.
+
+=cut
+
+sub remote_room_alias_fixture
+{
+   my %args = @_;
+
+   return room_alias_fixture( prefix => $args{prefix}, remote => 1 );
+}
+
 
 =head2 matrix_create_room_synced
 

tests/10apidoc/33room-members.pl

@@ -611,7 +611,7 @@ =head2 local_user_and_room_fixtures
 
 =item room_opts => HASH
 
-Options to use when creating the room. Thes are passed into into
+Options to use when creating the room. These are passed into
 C<matrix_create_room>, whence they are passed on to the server.
 
 =back

tests/30rooms/60version_upgrade.pl

@@ -649,17 +649,15 @@ sub upgrade_room_synced {
 
 test "/upgrade moves aliases to the new room",
    requires => [
-      $main::HOMESERVER_INFO[0],
       local_user_and_room_fixtures(),
       room_alias_fixture(),
       room_alias_fixture(),
       qw( can_upgrade_room_version ),
    ],
 
    do => sub {
-      my ( $info, $creator, $room_id, $room_alias_1, $room_alias_2 ) = @_;
+      my ( $creator, $room_id, $room_alias_1, $room_alias_2 ) = @_;
 
-      my $server_name = $info->server_name;
       my $new_room_id;
 
       do_request_json_for(
@@ -739,6 +737,67 @@ sub upgrade_room_synced {
       });
    };
 
+test "/upgrade moves remote aliases to the new room",
+   requires => [
+      local_user_and_room_fixtures(),
+      remote_user_fixture(),
+      remote_room_alias_fixture(),
+      qw( can_upgrade_room_version ),
+   ],
+
+   do => sub {
+      my ( $creator, $room_id, $remote_user, $remote_room_alias ) = @_;
+
+      my $new_room_id;
+
+      log_if_fail $room_id;
+
+      # Invite the remote user to our room
+      matrix_invite_user_to_room(
+         $creator, $remote_user, $room_id
+      )->then( sub {
+         # Have the remote user join the room
+         matrix_join_room( $remote_user, $room_id );
+      })->then( sub {
+         # Have the remote user add an alias
+         do_request_json_for(
+            $remote_user,
+            method => "PUT",
+            uri    => "/r0/directory/room/$remote_room_alias",
+            content => { room_id => $room_id },
+         );
+      })->then( sub {
+         # Upgrade the room
+         upgrade_room_synced(
+            $creator, $room_id,
+            new_version => $TEST_NEW_VERSION,
+         );
+      })->then( sub {
+         ( $new_room_id ) = @_;
+
+         # Invite the remote user to the new room
+         matrix_invite_user_to_room(
+            $creator, $remote_user, $new_room_id
+         );
+      })->then( sub {
+         # Have the remote user join the upgraded room
+         matrix_join_room( $remote_user, $new_room_id );
+      })->then( sub {
+         # Check that the remote alias points to the new room id
+         do_request_json_for(
+            $remote_user,
+            method => "GET",
+            uri    => "/r0/directory/room/$remote_room_alias",
+         );
+      })->then( sub {
+         my ( $body ) = @_;
+
+         assert_eq( $body->{room_id}, $new_room_id, "room_id for remote alias" );
+
+         Future->done(1);
+      });
+   };
+
 test "/upgrade preserves direct room state",
    requires => [
       local_user_and_room_fixtures(),