matthias/finance-quote
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

test.pl: update testcode for morningstarde

Browse Source
This commit is contained in:
Matthias Merz 2020-06-03 22:33:43 +02:00
parent 85e8f4905b
commit a56620543e
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
test.pl
View File

@ -8,16 +8,23 @@ if (@ARGV) {
@papers = @ARGV;
} else {
# example values
@papers = ("A0M9A2", "DE0005326565");
#@papers = ("A0M9A2", "DE0005326565", '986855');
@papers = ('986855', 'LU0055631609', 'F0GBR05V3L');
}
# DKB
#my $q = Finance::Quote->new("DKB");
#my %retvals = $q->fetch("dkb",@papers);
#my @details = ('name', 'price', 'currency', 'date');
my $q = Finance::Quote->new("DKB");
my %retvals = $q->fetch("dkb",@papers);
# should-be possible
#my @details = $q->labels();
my @details = ('name', 'price', 'currency', 'date');
# Morningstarde
my $q = Finance::Quote->new("Morningstarde");
my %retvals = $q->fetch("morningstarde",@papers);
my @details = ('name', 'nav', 'currency', 'date');
foreach my $fund (@papers) {
foreach my $detail (@details) {