From a56620543eb1514dc1a0deda95ecffce721dc18d Mon Sep 17 00:00:00 2001
From: Matthias Merz <matthias@merz-ka.de>
Date: Wed, 3 Jun 2020 22:33:43 +0200
Subject: [PATCH] test.pl: update testcode for morningstarde

---
 test.pl | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/test.pl b/test.pl
index bc9fe56..c754f4a 100644
--- a/test.pl
+++ b/test.pl
@@ -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) {