From 73baefeedeeddf0da65f6755d8e81a38f68a4998 Mon Sep 17 00:00:00 2001
From: Hubert Chathi <hubert@uhoreg.ca>
Date: Wed, 6 Feb 2019 17:57:43 -0500
Subject: [PATCH 1/2] test endpoint for updating backup versions

---
 tests/41end-to-end-keys/07-backup.pl | 48 ++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)

diff --git a/tests/41end-to-end-keys/07-backup.pl b/tests/41end-to-end-keys/07-backup.pl
index ad2ec60e3..736c58c6a 100644
--- a/tests/41end-to-end-keys/07-backup.pl
+++ b/tests/41end-to-end-keys/07-backup.pl
@@ -40,6 +40,54 @@
       });
    };
 
+test "Can update backup version",
+   requires => [ $fixture ],
+
+   proves => [qw( can_create_backup_version )],
+
+   do => sub {
+      my ( $user ) = @_;
+
+      my $version;
+
+      matrix_create_key_backup( $user )->then( sub {
+         my ( $content ) = @_;
+         log_if_fail "Create backup: ", $content;
+
+         assert_json_keys( $content, "version" );
+         $version = $content->{version};
+
+         do_request_json_for(
+            $user,
+            method  => "PUT",
+            uri     => "/unstable/room_keys/version/$version",
+            content => {
+               algorithm => "m.megolm_backup.v1",
+               auth_data => "adifferentopaquestring",
+            }
+         );
+      })->then( sub {
+         matrix_get_key_backup_info( $user, $version );
+      })->then( sub {
+         my ( $content ) = @_;
+         log_if_fail "Get backup info: ", $content;
+
+         assert_json_keys( $content, "algorithm" );
+
+         assert_json_keys( $content, "auth_data" );
+
+         $content->{algorithm} eq "m.megolm_backup.v1" or
+            die "Expected algorithm to match submitted data";
+
+         $content->{auth_data} eq "adifferentopaquestring" or
+            die "Expected auth_data to match submitted data";
+
+         assert_eq( $content->{version}, $version );
+
+         Future->done(1);
+      });
+   };
+
 test "Responds correctly when backup is empty",
    requires => [ $fixture, qw( can_create_backup_version ) ],
 

From f434987d73b7d059e3b5c7e103c27d542769ee79 Mon Sep 17 00:00:00 2001
From: Hubert Chathi <hubert@uhoreg.ca>
Date: Fri, 8 Feb 2019 01:34:12 -0500
Subject: [PATCH 2/2] add version to backup version update

---
 tests/41end-to-end-keys/07-backup.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/41end-to-end-keys/07-backup.pl b/tests/41end-to-end-keys/07-backup.pl
index 736c58c6a..b9ce2e7ff 100644
--- a/tests/41end-to-end-keys/07-backup.pl
+++ b/tests/41end-to-end-keys/07-backup.pl
@@ -64,6 +64,7 @@
             content => {
                algorithm => "m.megolm_backup.v1",
                auth_data => "adifferentopaquestring",
+               version => $version
             }
          );
       })->then( sub {