Fix params with dashes

Couple of endpoints were passing parameters with dash on the JSON body
intead of an underscore.

This fixes he following methods:

- ban
- unban
- invite
- kick

1 files changed, 30 insertions, 1 deletions

diff --git a/t/30-room.t b/t/30-room.t
index 7eb9dd7..f5b653e 100644
--- a/t/30-room.t
+++ b/t/30-room.t
@@ -1,7 +1,7 @@
 use lib 'lib';
 use Test;
 use Matrix::Client;
-plan 12;
+plan 14;
 
 use-ok 'Matrix::Client::Room';
 
@@ -107,3 +107,32 @@ subtest 'name' => {
 
     $test-room.leave;
 };
+
+subtest 'ban' => {
+    plan 2;
+    my Matrix::Client $new-user-client .= new(:$home-server);
+    my $new-username = ('a'..'z').pick(20).join;
+    $new-user-client.register($new-username, 'password');
+    $new-user-client.join-room($public-room-id);
+    my $user-id = $new-user-client.whoami;
+
+    my $room = $client.create-room(
+        :public,
+        :preset<public_chat>,
+        :name("The Grand Duke Pub"),
+        :topic("All about happy hour"),
+        :creation_content({
+            "m.federate" => False
+        })
+    );
+
+    $new-user-client.join-room($room.id);
+
+    lives-ok {
+        $room.ban($user-id, :reason<testing>)
+    }, 'can ban usernames';
+
+    lives-ok {
+        $room.unban($user-id, :reason<testing>);
+    }, 'can unban';
+}