Changeset 1836 for trunk/LATMOS-Accounts/live-test

Timestamp:

09/01/16 16:59:26 (8 years ago)

Author:

nanardon

Message:

Fix expire date not reset when unlimited statut is set

File:

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

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

@@ -18 +18 @@
     plan skip_all => 'No SQL base defined';
 } else {
-    plan tests => 67; # Number of test
+    plan tests => 75; # Number of test
 }
 
@@ -166 +166 @@
     ok(!$base->delete_object('employment', $Emp), "Deleting Emp $Emp");
 }
-
-ok($base->delete_object('employment', $baseEmp), "Deleting Emp $baseEmp");
+ok($base->delete_object('employment', $baseEmp), "Deleting Emp BaseEmp $baseEmp");
+
+{
+
+    $base->{_options}{allow_pasted_employment} = 1;
+    my $Emp      = genid();
+    my $EmpStart = DateTime->now->subtract(days => 90);
+    ok($base->create_c_object('employment', $Emp,
+        user => $empUser,
+        firstday => $EmpStart->dmy('/'),
+        lastday  => undef,
+    ), "Can create unlimited employment");
+    ok(my $ouser = $base->get_object('user', $empUser), "Getting user object");
+    ok(!$ouser->get_attributes('expire'), 'User don t expire');
+
+    my $EmpOld   = genid();
+    ok($base->create_c_object('employment', $EmpOld,
+        user => $empUser,
+        firstday => '1/1/2012',
+        lastday  => '31/12/2012',
+    ), "Cannot create pasted employement");
+
+    ok($ouser = $base->get_object('user', $empUser), "Getting user object");
+    ok(!$ouser->get_attributes('expire'), 'User still don t expire');
+
+    ok($base->delete_object('employment', $Emp), "Deleting Emp $Emp");
+    ok($base->delete_object('employment', $EmpOld), "Deleting Emp $EmpOld");
+    $base->{_options}{allow_pasted_employment} = undef;
+}
+
 ok($base->delete_object('user', $empUser), "Deleting user $empUser");
 }