1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
#!/usr/bin/env python
#
# Linux Desktop Testing Project http://ldtp.freedesktop.org
#
# Author:
# Prashanth Mohan <prashmohan@gmail.com>
#
# Copyright 2004 Novell, Inc.
#
# This test script is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
from mailaccounts import restartevolution
from contact import *
from evoutils.change_status import *
def emptytrashonexit():
log ('Empty Trash on Exit','teststart')
try:
selectMailPane()
time.sleep (2)
selectmenuitem ('frmEvolution-Mail','mnuEdit;mnuPreferences')
window_id='dlgEvolutionSettings'
waittillguiexist (window_id)
time.sleep (1)
selecttab (window_id, 'ptl0', 'Mail Preferences')
time.sleep (1)
remap ('evolution',window_id)
check (window_id,'chkEmptytrashfoldersonexit')
time.sleep (1)
if verifycheck (window_id,'chkEmptytrashfoldersonexit') == 0:
log ('Unable to check option','cause')
raise LdtpExecutionError (0)
comboselect (window_id,'cboEverytime','Every time')
click (window_id,'btnClose')
except:
log ('Unable to enable empty trash on exit','error')
log ('Empty Trash on Exit','testend')
raise LdtpExecutionError (0)
undoremap ('evolution',window_id)
#verification
try:
restartevolution()
time.sleep (3)
selectrowpartialmatch ('frmEvolution-Mail','ttblMailFolderTree','Trash')
waittillguiexist ('frmEvolution-Trash*)
msgs_in_trash = getrowcount ('frmEvolution-Mail','ttblMessageList')
if msgs_in_trash != 0:
log ('trash stil has some messages','cause')
raise LdtpExecutionError (0)
except:
log ('Automatic trash emptying on exit failed','error')
log ('Empty Trash on Exit','testend')
raise LdtpExecutionError (0)
log ('Empty Trash on Exit','testend')
def mark_msg_as_read (fldr,subject,time='3'):
log ('Automatically mark messages as read','teststart')
try:
selectMailPane()
time.sleep (2)
selectmenuitem ('frmEvolution-Mail','mnuEdit;mnuPreferences')
window_id='dlgEvolutionSettings'
waittillguiexist (window_id)
time.sleep (1)
selecttab (window_id, 'ptl0', 'Mail Preferences')
time.sleep (1)
remap ('evolution',window_id)
check (window_id,'chkMarkmessagesasreadafter')
time.sleep (1)
if verifycheck (window_id,'chkMarkmessagesasreadafter') == 0:
log ('Unable to select option for atuomatically marking messages are read','cause')
raise LdtpExecutionError (0)
setvalue (window_id,'stbn0',time)
time.sleep (1)
if verifysetvalue (window_id,'sbtn0',time) == 0:
log ('Unable to set value of time before marking unread','cause')
raise LdtpExecutionError (0)
click (window_id,'btnClose')
except:
log ('could not enable automatic marking of messages as read','error')
log ('Automatically mark messages as read','testend')
raise LdtpExecutionError (0)
try:
change_status (fldr,subject,'unread')
time.sleep (int(time))
Row_index=getrowindex(subject)
if getcellvalue('frmEvolution-Mail','ttblMessageList',Row_index,0) == 1:
log ('Message did not change to unread status','cause')
raise LdtpExecutionError (0)
except:
log ('verification of automatically marking messages as read failed','error')
log ('Automatically mark messages as read','testend')
raise LdtpExecutionError (0)
|
