throw error on duplicate fund ids

depot.pl

@@ -371,6 +371,7 @@ sub import {
 			([a-zA-Z0-9_]+)			# fund name
 			/x) {
 	    my ($id) = ($1);
+	    die "duplicate fund `$id' at line $.\n" if exists $funds{$id};
 	    $funds{$id} = new Fund( id => $id );
 	}
 	elsif ($line =~ /

test/test-9-duplicate-fund.input

@@ -0,0 +1,4 @@
+# define funds
+
++FUND fund_A
++FUND fund_A

test/test-9-verbose-mode-fresh.input

@@ -0,0 +1,11 @@
+# test with mode -verbose and freshly initialized funds
+# aaa has no transaction at all
+# bbb has only a single transaction
+# watch out for divison by zero and other problems
+
++FUND aaa
++FUND bbb
+
+@@ 01.04.2020
+
+bbb +2 = 20 ! 2

test/test-depot.sh

@@ -77,3 +77,4 @@ expect_error   test-5-unknown-line   "unparseable line \`some random unparseable
 expect_error   test-6-backwards-date "date \`23.11.1962' must be later than previous date"
 expect_success test-7-default-mode   '-default'
 expect_success test-8-verbose-mode   '-verbose'
+expect_error   test-9-duplicate-fund "duplicate fund \`fund_A'"