Changeset 1792 for trunk/LATMOS-Accounts

Timestamp:

06/24/16 18:00:19 (8 years ago)

Author:

nanardon

Message:

Add employment overlapping tests

File:

• trunk/LATMOS-Accounts/live-test/10_sql.t (modified) (3 diffs)

trunk/LATMOS-Accounts/live-test/10_sql.t

@@ -8 +8 @@
 use FindBin qw($Bin);
 
+use DateTime;
+
 require "$Bin/common.pl";
 eval "require '$Bin/config.pl'";
@@ -16 +18 @@
     plan skip_all => 'No SQL base defined';
 } else {
-    plan tests => 32; # Number of test
+    plan tests => 45; # Number of test
 }
 
@@ -92 +94 @@
 ok(!$base->get_object('netzone', $oid), "netzone $oid is actually deleted");
 }
+
+{ # test employment
+use_ok('LATMOS::Accounts::Bases::Sql::Employment');
+my $baseEmp = genid();
+my $empUser = genid();
+
+my $baseEmpStart = DateTime->now->subtract(days => 60);
+my $baseEmpEnd   = DateTime->now->add(days => 60);
+
+ok($base->create_c_object('user', $empUser,
+    sn => "snUser",
+    givenName => "givenNameUser",
+    ), "Can create user $empUser");
+
+ok($base->create_c_object('employment', $baseEmp,
+    user => $empUser,
+    firstday => $baseEmpStart->dmy('/'),
+    lastday  => $baseEmpEnd->dmy('/'),
+), "Can create current employment");
+
+{
+    my $Emp      = genid(); 
+    my $EmpStart = DateTime->now->add(days => 61);
+    my $EmpEnd   = DateTime->now->add(days => 120);
+    ok($base->create_c_object('employment', $Emp,
+        user => $empUser,
+        firstday => $EmpStart->dmy('/'),
+        lastday  => $EmpEnd->dmy('/'),
+    ), "Can create employment after");
+    ok($base->delete_object('employment', $Emp), "Deleting Emp $Emp");
+}
+{
+    my $Emp      = genid(); 
+    my $EmpStart = DateTime->now->subtract(days => 40);
+    my $EmpEnd   = DateTime->now->subtract(days => 20);
+    ok(!$base->create_c_object('employment', $Emp,
+        user => $empUser,
+        firstday => $EmpStart->dmy('/'),
+        lastday  => $EmpEnd->dmy('/'),
+    ), "Cannot create employment overlaping start");
+    ok(!$base->delete_object('employment', $Emp), "Deleting Emp $Emp");
+}
+{
+    my $Emp      = genid(); 
+    my $EmpStart = DateTime->now->add(days => 30);
+    my $EmpEnd   = DateTime->now->add(days => 90);
+    ok(!$base->create_c_object('employment', $Emp,
+        user => $empUser,
+        firstday => $EmpStart->dmy('/'),
+        lastday  => $EmpEnd->dmy('/'),
+    ), "Cannot create employment overlapping end");
+    ok(!$base->delete_object('employment', $Emp), "Deleting Emp $Emp");
+}
+{
+    my $Emp      = genid(); 
+    my $EmpStart = DateTime->now->subtract(days => 90);
+    my $EmpEnd   = DateTime->now->add(days => 90);
+    ok(!$base->create_c_object('employment', $Emp,
+        user => $empUser,
+        firstday => $EmpStart->dmy('/'),
+        lastday  => $EmpEnd->dmy('/'),
+    ), "Cannot create employment overlapping another");
+    ok(!$base->delete_object('employment', $Emp), "Deleting Emp $Emp");
+}
+
+ok($base->delete_object('employment', $baseEmp), "Deleting Emp $baseEmp");
+ok($base->delete_object('user', $empUser), "Deleting user $empUser");
+}