MT#13717 Further tests adaptation to new collections

Change-Id: I72de1c2adc008f02b7991b3f43ceee49ce31a739
changes/24/2124/1
Irina Peshinskaya 10 years ago
parent b003cea498
commit 83de70ccdc

@ -45,7 +45,8 @@ $ua->ssl_opts(
}
my @links = $res->header('Link');
my $rels = { applyrewrites => 1,
my $rels = {
applyrewrites => 1,
autoattendants => 1,
billingfees => 1,
billingnetworks => 1,
@ -107,10 +108,12 @@ $ua->ssl_opts(
voicemailrecordings => 1,
voicemails => 1,
voicemailsettings => 1,
topupvouchers => 1,
topupcash => 1,
vouchers => 1,
};
foreach my $link(@links) {
my $rex = qr!^</api/[a-z]+/>; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s)"$!;
my $rex = qr!^</api/[a-z]+/>; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash)"$!;
like($link, $rex, "check for valid link syntax");
my ($relname) = ($link =~ $rex);
ok(exists $rels->{$relname}, "check for '$relname' collection in Link");

Loading…
Cancel
Save