added ORM api and some tests

2016-06-26 17:49:12 +02:00
parent dbbada8307
commit 57556d252b
11 changed files with 294 additions and 0 deletions
--- a/t/schema.t
+++ b/t/schema.t
@@ -0,0 +1,79 @@
+use strict;
+
+my $db;
+use TrsrDB \$db => 'trsr.db';
+use Test::More;
+
+$db->resultset("Account")->create({ ID => "Club", altId => 1, type => 'eV' }); 
+$db->resultset("Account")->create({ ID => "john", altId => 44, type => 'Member' }); 
+$db->resultset("Account")->create({
+    ID => "alex", altId => 6, type => 'Member',
+    IBAN => 'DE1234567890123456' # used for verification in outgoing bank transfers
+}); 
+
+is_deeply
+    [ $db->resultset("Account")->search(
+        {}, { -order_by => { asc => ['ID'] } }
+      )->get_column('ID')->all
+    ],
+    [ qw/ Club alex john / ],
+    "Registering new accounts"
+;
+
+$db->resultset("Credit")->create($_) for
+    { account => "Club", date => "2016-01-01",
+      purpose => "Membership fees May 2016 until incl. April 2017",
+      value => 0
+    },
+    { account => "john", date => "2016-04-23",
+      purpose => "Membership fee 2016f.",
+      value => 7200
+    },
+    { account => "alex", date => "2016-01-15",
+      purpose => "Payment for Server Hosting 2016",
+      value => 0,
+    }
+;
+
+is_deeply [ map { $db->resultset("Account")->find($_)->credits->count() } qw(Club john alex) ],
+          [ 1, 1, 1 ], "Entering one credit per account";
+
+my %months = (
+    '05' => 'May 2016',       '06' => 'June 2016',     '07' => 'July 2016',     '08' => 'August 2016',
+    '09' => 'September 2016', '10' => 'October 2016',  '11' => 'November 2016', '12' => 'December 2016',
+    '01' => 'January 2017',   '02' => 'February 2017', '03' => 'March 2017',    '04' => 'April 2017',
+);
+while ( my ($num, $month) = each %months ) {
+    my $yy = substr $month, -2;
+    $db->resultset("Debit")->create({
+        billId => "MB$yy$num-john",
+        debtor => "john",
+        targetCredit => 1,
+        date => "16-05-01",
+        purpose => "Membership fee $month",
+        value => 600
+    });
+}
+
+is $db->resultset("Account")->find("john")->current_debts->count(), 12,
+   "Entering outstanding member fees for john";
+
+$db->resultset("Account")->find("Club")->add_to_debts({
+    billId => "TWX2016/123",
+    targetCredit => 3,
+    date => "2016-01-15",
+    purpose => "Server Hosting 2016",
+    value => 23450
+});
+
+is $db->resultset("Debit")->search({ debtor => 'Club' })->single->billId, "TWX2016/123", "Invoicing server hosting for club";
+
+is_deeply { map { $_->ID => {$_->get_columns} } $db->resultset("Balance")->all },
+   { john => { ID => 'john', credit => 7200, debt => 7200,  promised => 0 },
+     Club => { ID => 'Club', credit =>    0, debt => 23450, promised => 7200 },
+     alex => { ID => 'alex', credit =>    0, debt =>     0, promised => 23450 },
+   },
+   "Get balances"
+;    
+
+done_testing();