aboutsummaryrefslogtreecommitdiff
path: root/t/60-media.t
diff options
context:
space:
mode:
Diffstat (limited to 't/60-media.t')
-rw-r--r--t/60-media.t69
1 files changed, 47 insertions, 22 deletions
diff --git a/t/60-media.t b/t/60-media.t
index 602b0fc..5601d8a 100644
--- a/t/60-media.t
+++ b/t/60-media.t
@@ -3,39 +3,40 @@ use Test;
use Matrix::Client::MediaStore;
use Matrix::Client::Exception;
-plan 6;
-
my $path = $*TMPDIR.add('matrix-client-test');
LEAVE { unlink $path; }
$path.spurt("") unless $path.f;
-# Mock the post-bin method of Matrix::Client::Requester.
-my $media = Matrix::Client::MediaStore.new(:home-server("1234")) but role {
- has %.called-with;
- method post-bin(Str $path, Buf $buf, :$content-type) {
- %.called-with<path> = $path;
- %.called-with<buf> = $buf;
- %.called-with<content-type> = $content-type;
+subtest 'Upload', {
+ plan 5;
+ # Mock the post-bin method of Matrix::Client::Requester.
+ my $media = Matrix::Client::MediaStore.new(:home-server("1234")) but role {
+ has %.called-with;
+ method post-bin(Str $path, Buf $buf, :$content-type) {
+ %.called-with<path> = $path;
+ %.called-with<buf> = $buf;
+ %.called-with<content-type> = $content-type;
- class { method content { '{"content_uri": "bla" }' } }
+ class { method content { '{"content_uri": "bla" }' } }
+ }
}
-}
-$media.upload($path, "something");
-is $media.called-with<path>, '/upload?filename=something', "Send filename pass by parameter";
+ $media.upload($path, "something");
+ is $media.called-with<path>, '/upload?filename=something', "Send filename pass by parameter";
-$media.upload($path, "something with spaces");
-is $media.called-with<path>, '/upload?filename=something%20with%20spaces', "Escaped filename";
+ $media.upload($path, "something with spaces");
+ is $media.called-with<path>, '/upload?filename=something%20with%20spaces', "Escaped filename";
-$media.upload($path);
-is $media.called-with<path>, "/upload?filename={$path.basename}", "Send file basename if not set";
-is $media.called-with<content-type>, 'image/png', "By default use `image/png` MIME";
+ $media.upload($path);
+ is $media.called-with<path>, "/upload?filename={$path.basename}", "Send file basename if not set";
+ is $media.called-with<content-type>, 'image/png', "By default use `image/png` MIME";
-$media.upload($path, content-type => 'application/pdf');
-is $media.called-with<content-type>, 'application/pdf', "Can change the content type";
+ $media.upload($path, content-type => 'application/pdf');
+ is $media.called-with<content-type>, 'application/pdf', "Can change the content type";
+}
-subtest {
+subtest 'mxc parsing', {
plan 2;
my $media = Matrix::Client::MediaStore.new(:home-server("1234"));
is $media.parse-mxc("mxc://matrix.org/123456.pdf"), {
@@ -46,4 +47,28 @@ subtest {
$media.parse-mxc("http://matrix.org/123456.pdf")
}, X::Matrix::MXCParse, 'Dies with HTTP URI';
-}, 'mxc parsing';
+};
+
+subtest 'config', {
+ # Mock the post-bin method of Matrix::Client::Requester.
+ plan 5;
+ my $media = Matrix::Client::MediaStore.new(:home-server("1234")) but role {
+ method get(Str $path) {
+ class { method content { '{"m.upload.size": 5000 }' } }
+ }
+ }
+
+ isa-ok $media.config, Matrix::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 {
+ method get(Str $path) {
+ class { method content { '{}' } }
+ }
+ }
+
+ isa-ok $empty-media.config, Matrix::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';
+
+}