From 875fe2e5d0e998e50642782880d609e34e4df053 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 8 Feb 2006 17:40:17 +0000
Subject: il test funziona, aggiunta colonna 'attivo'

git-svn-id: svn://luxion/repos/IscrittiGroLUG/trunk@169 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 GroLUG/test_manuali/prova_db.pl | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

(limited to 'GroLUG/test_manuali')

diff --git a/GroLUG/test_manuali/prova_db.pl b/GroLUG/test_manuali/prova_db.pl
index fcfc7bc..0a3849d 100644
--- a/GroLUG/test_manuali/prova_db.pl
+++ b/GroLUG/test_manuali/prova_db.pl
@@ -11,7 +11,8 @@ my $schema=GroLUG::M::DB->connect('dbi:Pg:dbname=iscritti',
     '',
     { RaiseError => 1, PrintError => 0, ShowErrorStatement => 1, TraceLevel => 0 });
 
-my $iscritto=$schema->resultset('GroLUG::M::DB::Iscritto')->create({
+{
+my $iscritto=$schema->resultset('Iscritto')->create({
     nome => '__tizio',
     email => 'tizio@qui',
 });
@@ -22,4 +23,18 @@ $iscritto->add_to_pagamenti({
     data_scadenza=>DateTime->now()->subtract(days=>10)->add(years=>1),
     prezzo=>50});
 
-$schema->commit();
+$iscritto->add_to_pagamenti({
+    data_pagamento=>DateTime->now()->subtract(years=>1),
+    data_iscrizione=>DateTime->now()->subtract(years=>1,days=>22),
+    data_scadenza=>DateTime->now()->subtract(days=>11),
+    prezzo=>50});
+
+}
+
+my $iscritto=$schema->resultset('Iscritto')->search({email=>'tizio@qui'})->next();;
+
+my $last_pag=$iscritto->pagamenti({},{order_by => 'data_scadenza desc'})->next();
+print 'Prossima scadenza: ',$last_pag->data_scadenza(),"\n";
+
+$schema->resultset('Pagamento')->delete();
+$schema->resultset('Iscritto')->delete();
-- 
cgit v1.2.3