diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/10-use.t | 2 | ||||
| -rw-r--r-- | t/20-client.t | 6 | ||||
| -rw-r--r-- | t/30-room.t | 9 | ||||
| -rw-r--r-- | t/60-media.t | 4 |
4 files changed, 11 insertions, 10 deletions
@@ -4,7 +4,7 @@ use Test; use-ok 'Matrix::Client'; use-ok 'Matrix::Client::Room'; use-ok 'Matrix::Client::Requester'; -use-ok 'Matrix::Response'; +use-ok 'Matrix::Client::Response'; use-ok 'Matrix::Client::Exception'; use-ok 'Matrix::Client::MediaStore'; diff --git a/t/20-client.t b/t/20-client.t index 2215a6b..c15d86f 100644 --- a/t/20-client.t +++ b/t/20-client.t @@ -55,12 +55,12 @@ subtest 'User data' => { subtest 'sync' => { plan 3; - isa-ok $client.sync(), Matrix::Response::Sync, + isa-ok $client.sync(), Matrix::Client::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'; + Matrix::Client::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'; + Matrix::Client::Response::Sync, 'sync wit Hash sync-filter'; } subtest 'directory' => { diff --git a/t/30-room.t b/t/30-room.t index 56321a0..9cec207 100644 --- a/t/30-room.t +++ b/t/30-room.t @@ -41,9 +41,10 @@ lives-ok { $main-room.leave; }, 'Can leave room'; -lives-ok { - $main-room.join; -}, 'Can join a room'; +skip 'M_UNKNOWN: No known servers', 1; +#lives-ok { +# $main-room.join; +#}, 'Can join a room'; lives-ok { $client.join-room($public-room-id) @@ -59,7 +60,7 @@ subtest 'states' => { plan 2; isa-ok $main-room.state(), Seq; my @states = $main-room.state(); - isa-ok @states.first(), Matrix::Response::StateEvent; + isa-ok @states.first(), Matrix::Client::Response::StateEvent; }; subtest 'creation' => { diff --git a/t/60-media.t b/t/60-media.t index 2417cb1..618e2c2 100644 --- a/t/60-media.t +++ b/t/60-media.t @@ -60,7 +60,7 @@ subtest 'config', { } } - isa-ok $media.config, Matrix::Response::MediaStore::Config, 'Can load Associative'; + isa-ok $media.config, Matrix::Client::Response::MediaStore::Config, 'Can load Associative'; is $media.config.upload-size, 5000, 'correct upload size'; my $empty-media = Matrix::Client::MediaStore.new(:home-server("1234")) but role { @@ -69,7 +69,7 @@ subtest 'config', { } } - isa-ok $empty-media.config, Matrix::Response::MediaStore::Config, 'Can load empty configuration'; + isa-ok $empty-media.config, Matrix::Client::Response::MediaStore::Config, 'Can load empty configuration'; is $empty-media.config.upload-size, Int, 'Unknown upload-size'; nok $empty-media.config.upload-size.defined, 'upload-size not defined'; |