aboutsummaryrefslogtreecommitdiff
path: root/t/20-client.t
diff options
context:
space:
mode:
authorMatias Linares <matiaslina@gmail.com>2018-08-04 18:52:16 -0300
committerMatias Linares <matiaslina@gmail.com>2018-08-04 18:52:16 -0300
commitf3f383db83504fd6e921b7899bbe893575625d45 (patch)
tree51ba10f1ff046c8ed0370395d872767136418cbc /t/20-client.t
parent305bb42b3311c8ac9d04235e5548ae9b67de06ac (diff)
downloadperl6-matrix-client-f3f383db83504fd6e921b7899bbe893575625d45.tar.gz
Add tests
Diffstat (limited to 't/20-client.t')
-rw-r--r--t/20-client.t64
1 files changed, 64 insertions, 0 deletions
diff --git a/t/20-client.t b/t/20-client.t
new file mode 100644
index 0000000..3fd6739
--- /dev/null
+++ b/t/20-client.t
@@ -0,0 +1,64 @@
+use lib 'lib';
+use Test;
+use Matrix::Client;
+plan 4;
+
+unless %*ENV<MATRIX_CLIENT_TEST_SERVER> {
+ skip-rest 'No test server setted';
+ exit;
+}
+
+my $home-server = %*ENV<MATRIX_CLIENT_TEST_SERVER>;
+my $username = %*ENV<MATRIX_CLIENT_USERNAME>;
+my $password = %*ENV<MATRIX_CLIENT_PASSWORD>;
+my $device-id = %*ENV<MATRIX_CLIENT_DEVICE_ID>;
+my $access-token;
+my Matrix::Client $client;
+
+subtest 'creation' => {
+ plan 2;
+ $client .= new(:$home-server, :$device-id);
+ isnt $client.home-server, '', 'home server isnt empty';
+ isnt $client.device-id, '', 'device-id isnt empty';
+ note $client.base-url;
+}
+
+subtest 'login' => {
+ plan 4;
+ throws-like {
+ $client.login(:username<wrong>, :password<data>)
+ }, X::Matrix::Response, message => /M_FORBIDDEN/;
+ lives-ok { $client.login($username, $password) }, 'can logging with right data';
+
+ isnt $client.access-token, '', 'access-token setted';
+ $access-token = $client.access-token;
+
+ my Matrix::Client $access-token-client .= new(:$home-server,
+ :$device-id,
+ :$access-token);
+ ok $access-token-client.whoami.starts-with("@$username"),
+ 'client with access-token can do authorized calls';
+}
+
+subtest 'User data' => {
+ plan 2;
+ isa-ok $client.profile, Hash, '.profile returns a Hash?';
+
+ subtest 'display name' => {
+ plan 3;
+ is $client.display-name, $username, 'get default display-name';
+ ok $client.change-display-name('testing'), 'change display-name';
+ is $client.display-name, 'testing', 'get new display-name';
+ $client.change-display-name($username);
+ }
+}
+
+subtest 'sync' => {
+ plan 3;
+ isa-ok $client.sync(), Matrix::Response::Sync,
+ 'sync without params is a Response';
+ isa-ok $client.sync(:sync-filter('{"room": { "timeline": { "limit": 1 } } }')),
+ Matrix::Response::Sync, 'sync with Str sync-filter';
+ isa-ok $client.sync(:sync-filter(room => timeline => limit => 1)),
+ Matrix::Response::Sync, 'sync wit Hash sync-filter';
+}