TT#20514 fix regexp in .t's for new secretarymanager rail

Change-Id: I6b0c7a4cb4754f229c9ef88363127492b372ac68
changes/16/14916/1
Rene Krenn 8 years ago
parent bec681a3a5
commit 0fe1a28d6d

@ -28,7 +28,7 @@ $ua = Test::Collection->new()->ua();
my @hopts = split /\s*,\s*/, $res->header('Allow');
my @links = $res->header('Link');
my $rex = qr!^</api/[a-z]+/>; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash)"$!;
my $rex = qr!^</api/[a-z]+/>; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash|managersecretary)"$!;
foreach my $link(@links) {
(my ($relname)) = ($link =~ $rex);
# now get this rel

@ -147,7 +147,7 @@ $ua = Test::Collection->new()->ua();
vouchers => 1,
};
foreach my $link(@links) {
my $rex = qr!^</api/[a-z]+/>; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash)"$!;
my $rex = qr!^</api/[a-z]+/>; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s|topupcash|managersecretary)"$!;
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