Ensure tests are using different ports.

This avoids some tests to fail because, depending on the ordering, they
are trying to connect to the same port.

Motivated by S415-009.

Author: TurboGit

regtests/0266_type_constraints/test.py

@@ -3,7 +3,7 @@
 
 exec_cmd('ada2wsdl',
          ['-q', '-f', '-Ptcons_main',
-          '-a', 'http://localhost:7701', 'tcons.ads', '-o', 'tcons.wsdl'])
+          '-a', 'http://localhost:7720', 'tcons.ads', '-o', 'tcons.wsdl'])
 exec_cmd('wsdl2aws',
          ['-q', '-f', '-cb', '-types', 'tcons', 'tcons.wsdl'])
 

regtests/0300_wsdl_pck_name/test.py

@@ -3,7 +3,7 @@
 exec_cmd('ada2wsdl',
          ['-q', '-f', '-Pwsdl_types_pck_main',
           '-s', 'wsdl_types_pck',
-          '-a', 'http://localhost:7701', 'types.ads',
+          '-a', 'http://localhost:7717', 'types.ads',
           '-o', 'wsdl_types_pck.wsdl'])
 exec_cmd('wsdl2aws',
          ['-q', '-f', '-cb', '-types', 'types', 'wsdl_types_pck.wsdl'])

regtests/0303_ada2wsdl_dir/test.py

@@ -2,7 +2,7 @@
 
 exec_cmd('ada2wsdl',
          ['-q', '-f', '-Pwsdl_1b_main',
-          '-a', 'http://localhost:7701', 'src/wsdl_1b.ads',
+          '-a', 'http://localhost:7716', 'src/wsdl_1b.ads',
           '-o', 'wsdl_1b.wsdl'])
 exec_cmd('wsdl2aws',
          ['-q', '-f', '-cb', '-types', 'wsdl_1b', 'wsdl_1b.wsdl'])

regtests/0304_ada2wsdl_new_type/test.py

@@ -2,7 +2,7 @@
 
 exec_cmd('ada2wsdl',
          ['-q', '-f', '-Pwsdl_nt_main',
-          '-a', 'http://localhost:7701', 'src/wsdl_nt.ads',
+          '-a', 'http://localhost:7718', 'src/wsdl_nt.ads',
           '-o', 'wsdl_nt.wsdl'])
 exec_cmd('wsdl2aws',
          ['-q', '-f', '-cb', '-types', 'wsdl_nt_types', 'wsdl_nt.wsdl'])

regtests/0305_ada2wsdl_new_type/test.py

@@ -2,7 +2,7 @@
 
 exec_cmd('ada2wsdl',
          ['-q', '-f', '-Pwsdl_ntr_main',
-          '-a', 'http://localhost:7701', 'src/wsdl_ntr.ads',
+          '-a', 'http://localhost:7714', 'src/wsdl_ntr.ads',
           '-o', 'wsdl_ntr.wsdl'])
 exec_cmd('wsdl2aws',
          ['-q', '-f', '-cb', '-types', 'wsdl_ntr_types', 'wsdl_ntr.wsdl'])

regtests/0306_int_constraints/test.py

@@ -3,7 +3,7 @@
 
 exec_cmd('ada2wsdl',
          ['-q', '-f', '-Ptcons2_main',
-          '-a', 'http://localhost:7701', 'tcons2.ads', '-o', 'tcons2.wsdl'])
+          '-a', 'http://localhost:7715', 'tcons2.ads', '-o', 'tcons2.wsdl'])
 exec_cmd('wsdl2aws',
          ['-q', '-f', '-cb', '-types', 'tcons2', 'tcons2.wsdl'])
 

regtests/0324_wsdl_duration/test.py

@@ -2,7 +2,7 @@
 
 exec_cmd('ada2wsdl',
          ['-q', '-f', '-Pwsdl_d_main',
-          '-a', 'http://localhost:7701', 'wsdl_d.ads', '-o', 'wsdl_d.wsdl'])
+          '-a', 'http://localhost:7719', 'wsdl_d.ads', '-o', 'wsdl_d.wsdl'])
 exec_cmd('wsdl2aws',
          ['-q', '-f', '-cb', '-types', 'wsdl_d', 'wsdl_d.wsdl'])
 

regtests/0324_wsdl_duration/wsdl_d_main.adb

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                              Ada Web Server                              --
 --                                                                          --
---                       Copyright (C) 2019, AdaCore                        --
+--                    Copyright (C) 2019-2020, AdaCore                      --
 --                                                                          --
 --  This is free software;  you can redistribute it  and/or modify it       --
 --  under terms of the  GNU General Public License as published  by the     --
@@ -27,6 +27,7 @@ with WSDL_D;
 
 with WSDL_D_Server;
 with WSDL_D_Service.Client;
+with WSDL_D_Service.Server;
 
 procedure WSDL_D_Main is
 
@@ -46,7 +47,7 @@ begin
       Schema => WSDL_D_Service.Schema);
 
    Config.Set.Server_Host (Conf, "localhost");
-   Config.Set.Server_Port (Conf, 7701);
+   Config.Set.Server_Port (Conf, WSDL_D_Service.Server.Port);
 
    Server.Start (WS, H, Conf);