obs.pl

use Mojo::Base -strict;

use Test::More;
use Mojo::File 'tempdir';
use Mojolicious::Lite;
use SUSE::OBS;

app->log->level('error');

get '/public/source/home:kraih/perl-Mojolicious' => {text => <<'EOF'};
<directory name="perl-Mojolicious" rev="1" vrev="1"
  srcmd5="9ed57c4451a8074594a106af43604341">
  <linkinfo project="devel:languages:perl" package="perl-Mojolicious"
    srcmd5="ffc6283e00b611a997e0a05d6a12cb2a"
    xsrcmd5="b977c73cb52d4641c558577584e5a766"
    lsrcmd5="9ed57c4451a8074594a106af43604341" />
  <serviceinfo code="succeeded" xsrcmd5="d277e095ec45b64835452d5e87d2d349" />
  <entry name="_link" md5="88b7cd65b62e40b19381ed28f226584e" size="463"
    mtime="1422388555" />
</directory>
EOF

...