Browse Source

remove relicate

nas 2 years ago
parent
commit
83fa294881
2 changed files with 0 additions and 21 deletions
  1. 0
    10
      test/remote/get_companies.pl
  2. 0
    11
      test/remote/test.pl

+ 0
- 10
test/remote/get_companies.pl View File

@@ -1,10 +0,0 @@
1
-#!/usr/bin/perl
2
-
3
-my $country_code="fr"
4
-
5
-print "La documentation de l'api est disponible ici : http://api.opencorporates.com/documentation/API-Reference";
6
-
7
-# Édition logiciel
8
-#curl curl https://api.opencorporates.com/v0.4/industry_codes/fr_naf_2008/58.29B
9
-#curl https://api.opencorporates.com/v0.4.1/companies/search?industry_codes=fr_naf_2008&country_code=fr;
10
-#https://api.opencorporates.com/v0.4/companies/search?q=traxis&country_code=fr

+ 0
- 11
test/remote/test.pl View File

@@ -12,21 +12,10 @@ use Data::Dumper;
12 12
 
13 13
 use NRT::User;
14 14
 use NRT::Batch;
15
-#require NRT::User;
16
-#require NRT::Batch;
17 15
 
18 16
 print User::v ;
19 17
 read_config 'test.cfg' => our %config; 
20
-
21
-our $url = "$config{Authentification}{Protocol}$config{Authentification}{Host}$config{Authentification}{Path}";;
22
-local $ua = LWP::UserAgent->new(timeout => 10);
23
-$ua->env_proxy;
24
-
25 18
 our $batch = Batch->new( %config );
26 19
 print "\nMaking all tests\n";
27
-#NRT::Basic::rq_empty;
28 20
 
29
-#Test::init;
30
-#Batch::brief;
31
-#Batch::run();
32 21
 $batch->run();

Loading…
Cancel
Save