From 7616a4cc50eb05a68fa3306330266b410ab627a7 Mon Sep 17 00:00:00 2001
From: Irina Peshinskaya <ipeshinskaya@sipwise.com>
Date: Sat, 11 Jul 2015 07:36:14 +0300
Subject: [PATCH] MT#13717 Add topupcash name as exception to collectionS names
 format

Change-Id: I4f00a04607b97327aee40aab69d15ba57c7aa07e
---
 t/api-all-links.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/api-all-links.t b/t/api-all-links.t
index 94c6d40e20..c5e225fb0a 100644
--- a/t/api-all-links.t
+++ b/t/api-all-links.t
@@ -36,9 +36,9 @@ $ua->ssl_opts(
     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)"$!;
     foreach my $link(@links) {
-        my $rex = qr!^</api/[a-z]+/>; rel="collection http://purl\.org/sipwise/ngcp-api/#rel-([a-z]+s)"$!;
-        my ($relname) = ($link =~ $rex);
+        (my ($relname)) = ($link =~ $rex);
         # now get this rel
         $req = HTTP::Request->new('OPTIONS', "$uri/api/$relname/");
         $res = $ua->request($req);