aboutsummaryrefslogtreecommitdiff
path: root/t/60-media.t
blob: 618e2c2120079073d1b8007585a38e2e771ca7bb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
use lib 'lib';
use Test;
use Matrix::Client::MediaStore;
use Matrix::Client::Exception;

my $path = $*TMPDIR.add('matrix-client-test');
LEAVE { unlink $path; }
$path.spurt("") unless $path.f;

plan 3;

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" }' } }
        }
    }


    $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);
    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";
}

subtest 'mxc parsing', {
    plan 2;
    my $media = Matrix::Client::MediaStore.new(:home-server("1234"));
    is $media.parse-mxc("mxc://matrix.org/123456.pdf"), {
        server-name => "matrix.org", media-id => "123456.pdf"
    }, 'Simple parsing';

    throws-like {
        $media.parse-mxc("http://matrix.org/123456.pdf")
    }, X::Matrix::MXCParse, 'Dies with HTTP URI';

};

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::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 {
        method get(Str $path) {
            class { method content { '{}' } }
        }
    }

    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';

}