[Erp5-report] r18722 - /erp5/trunk/products/ERP5/tests/testAlarm.py

[nobody at svn.erp5.org]

Author: romain
Date: Tue Jan 15 18:43:04 2008
New Revision: 18722

URL: http://svn.erp5.org?rev=18722&view=rev
Log:
Check that deleting an alarm uncatalogs it.

Modified:
    erp5/trunk/products/ERP5/tests/testAlarm.py

Modified: erp5/trunk/products/ERP5/tests/testAlarm.py
URL: http://svn.erp5.org/erp5/trunk/products/ERP5/tests/testAlarm.py?rev=18722&r1=18721&r2=18722&view=diff
==============================================================================
--- erp5/trunk/products/ERP5/tests/testAlarm.py (original)
+++ erp5/trunk/products/ERP5/tests/testAlarm.py Tue Jan 15 18:43:04 2008
@@ -452,6 +452,43 @@
     # Chen that the second alarm execution did happen
     self.assertNotEquals(alarm.getLastActiveProcess(), None)
 
+  def test_16_uncatalog(self, quiet=0, run=run_all_test):
+    """
+    Check that deleting a alarm uncatalogs it.
+    """
+    if not run: return
+    if not quiet:
+      message = 'Test Uncatalog'
+      ZopeTestCase._print('\n%s ' % message)
+      LOG('Testing... ', 0, message)
+    alarm = self.newAlarm()
+    get_transaction().commit()
+    self.tic()
+
+    now = DateTime()
+    date = addToDate(now, day=1)
+    alarm.setPeriodicityStartDate(date)
+    get_transaction().commit()
+    self.tic()
+    self.assertEquals(alarm.getAlarmDate(), date)
+
+    # This should not do change the alarm date
+    alarm.setNextAlarmDate(current_date=now)
+    get_transaction().commit()
+    self.tic()
+    self.assertEquals(alarm.getAlarmDate(), date)
+
+    # Delete the alarm
+    a_tool = self.getAlarmTool()
+    alarm_uid = alarm.getUid()
+    a_tool.manage_delObjects(uids=[alarm_uid])
+    get_transaction().commit()
+    self.tic()
+    # Check that related entry was removed
+    sql_connection = self.getSQLConnection()
+    sql = 'select * from alarm where uid=%s' % alarm_uid
+    result = sql_connection.manage_test(sql)
+    self.assertEquals(0, len(result))
 
 def test_suite():
   suite = unittest.TestSuite()