Add some extra yields to wxWebView unit tests to hopefully fix some of the failing...
[wxWidgets.git] / tests / controls / webtest.cpp
1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: tests/controls/webtest.cpp
3 // Purpose: wxWebView unit test
4 // Author: Steven Lamerton
5 // Created: 2011-07-08
6 // RCS-ID: $Id$
7 // Copyright: (c) 2011 Steven Lamerton
8 ///////////////////////////////////////////////////////////////////////////////
9
10 #include "testprec.h"
11
12 #if wxUSE_WEBVIEW && (wxUSE_WEBVIEW_WEBKIT || wxUSE_WEBVIEW_IE)
13
14 #ifdef __BORLANDC__
15 #pragma hdrstop
16 #endif
17
18 #ifndef WX_PRECOMP
19 #include "wx/app.h"
20 #endif // WX_PRECOMP
21
22 #include "testableframe.h"
23 #include "wx/uiaction.h"
24 #include "wx/webview.h"
25 #include "asserthelper.h"
26
27 class WebTestCase : public CppUnit::TestCase
28 {
29 public:
30 WebTestCase() { }
31
32 void setUp();
33 void tearDown();
34
35 private:
36 CPPUNIT_TEST_SUITE( WebTestCase );
37 CPPUNIT_TEST( Title );
38 CPPUNIT_TEST( Url );
39 CPPUNIT_TEST( History );
40 CPPUNIT_TEST( HistoryEnable );
41 CPPUNIT_TEST( HistoryClear );
42 CPPUNIT_TEST( HistoryList );
43 CPPUNIT_TEST( Editable );
44 CPPUNIT_TEST( Selection );
45 CPPUNIT_TEST( Zoom );
46 CPPUNIT_TEST( RunScript );
47 CPPUNIT_TEST( SetPage );
48 CPPUNIT_TEST_SUITE_END();
49
50 void Title();
51 void Url();
52 void History();
53 void HistoryEnable();
54 void HistoryClear();
55 void HistoryList();
56 void Editable();
57 void Selection();
58 void Zoom();
59 void RunScript();
60 void SetPage();
61 void LoadUrl(int times = 1);
62
63 wxWebView* m_browser;
64
65 DECLARE_NO_COPY_CLASS(WebTestCase)
66 };
67
68 // register in the unnamed registry so that these tests are run by default
69 CPPUNIT_TEST_SUITE_REGISTRATION( WebTestCase );
70
71 // also include in its own registry so that these tests can be run alone
72 CPPUNIT_TEST_SUITE_NAMED_REGISTRATION( WebTestCase, "WebTestCase" );
73
74 void WebTestCase::setUp()
75 {
76 m_browser = wxWebView::New(wxTheApp->GetTopWindow(), wxID_ANY);
77 //We yield to let the initial page load
78 wxYield();
79 }
80
81 void WebTestCase::tearDown()
82 {
83 wxDELETE(m_browser);
84 }
85
86 void WebTestCase::LoadUrl(int times)
87 {
88 //We alternate between urls as otherwise webkit merges them in the history
89 //we use about and about blank to avoid the need for a network connection
90 for(int i = 0; i < times; i++)
91 {
92 if(i % 2 == 1)
93 m_browser->LoadURL("about:blank");
94 else
95 m_browser->LoadURL("about:");
96 wxYield();
97 }
98 }
99
100 void WebTestCase::Title()
101 {
102 CPPUNIT_ASSERT_EQUAL("", m_browser->GetCurrentTitle());
103
104 //Test title after loading raw html
105 m_browser->SetPage("<html><title>Title</title><body>Text</body></html>", "");
106 wxYield();
107 CPPUNIT_ASSERT_EQUAL("Title", m_browser->GetCurrentTitle());
108
109 //Test title after loading a url, we yield to let events process
110 LoadUrl();
111 CPPUNIT_ASSERT_EQUAL("", m_browser->GetCurrentTitle());
112 }
113
114 void WebTestCase::Url()
115 {
116 CPPUNIT_ASSERT_EQUAL("about:blank", m_browser->GetCurrentURL());
117
118 //After first loading about:blank the next in the sequence is about:
119 LoadUrl();
120 CPPUNIT_ASSERT_EQUAL("about:", m_browser->GetCurrentURL());
121 }
122
123 void WebTestCase::History()
124 {
125 LoadUrl(3);
126
127 CPPUNIT_ASSERT(m_browser->CanGoBack());
128 CPPUNIT_ASSERT(!m_browser->CanGoForward());
129
130 m_browser->GoBack();
131 wxYield();
132
133 CPPUNIT_ASSERT(m_browser->CanGoBack());
134 CPPUNIT_ASSERT(m_browser->CanGoForward());
135
136 m_browser->GoBack();
137 wxYield();
138 m_browser->GoBack();
139 wxYield();
140
141 //We should now be at the start of the history
142 CPPUNIT_ASSERT(!m_browser->CanGoBack());
143 CPPUNIT_ASSERT(m_browser->CanGoForward());
144 }
145
146 void WebTestCase::HistoryEnable()
147 {
148 LoadUrl();
149 m_browser->EnableHistory(false);
150
151 CPPUNIT_ASSERT(!m_browser->CanGoForward());
152 CPPUNIT_ASSERT(!m_browser->CanGoBack());
153
154 LoadUrl();
155
156 CPPUNIT_ASSERT(!m_browser->CanGoForward());
157 CPPUNIT_ASSERT(!m_browser->CanGoBack());
158 }
159
160 void WebTestCase::HistoryClear()
161 {
162 LoadUrl(2);
163
164 //Now we are in the 'middle' of the history
165 m_browser->GoBack();
166 wxYield();
167
168 CPPUNIT_ASSERT(m_browser->CanGoForward());
169 CPPUNIT_ASSERT(m_browser->CanGoBack());
170
171 m_browser->ClearHistory();
172
173 CPPUNIT_ASSERT(!m_browser->CanGoForward());
174 CPPUNIT_ASSERT(!m_browser->CanGoBack());
175 }
176
177 void WebTestCase::HistoryList()
178 {
179 LoadUrl(2);
180 m_browser->GoBack();
181 wxYield();
182
183 CPPUNIT_ASSERT_EQUAL(1, m_browser->GetBackwardHistory().size());
184 CPPUNIT_ASSERT_EQUAL(1, m_browser->GetForwardHistory().size());
185
186 m_browser->LoadHistoryItem(m_browser->GetForwardHistory()[0]);
187 wxYield();
188
189 CPPUNIT_ASSERT(!m_browser->CanGoForward());
190 CPPUNIT_ASSERT_EQUAL(2, m_browser->GetBackwardHistory().size());
191 }
192
193 void WebTestCase::Editable()
194 {
195 CPPUNIT_ASSERT(!m_browser->IsEditable());
196
197 m_browser->SetEditable(true);
198
199 CPPUNIT_ASSERT(m_browser->IsEditable());
200
201 m_browser->SetEditable(false);
202
203 CPPUNIT_ASSERT(!m_browser->IsEditable());
204 }
205
206 void WebTestCase::Selection()
207 {
208 m_browser->SetPage("<html><body>Some <strong>strong</strong> text</body></html>", "");
209 wxYield();
210 CPPUNIT_ASSERT(!m_browser->HasSelection());
211
212 m_browser->SelectAll();
213
214 CPPUNIT_ASSERT(m_browser->HasSelection());
215 CPPUNIT_ASSERT_EQUAL("Some strong text", m_browser->GetSelectedText());
216 //We lower case the result as ie returns tags in uppercase
217 CPPUNIT_ASSERT_EQUAL("some <strong>strong</strong> text",
218 m_browser->GetSelectedSource().Lower());
219
220 m_browser->ClearSelection();
221 CPPUNIT_ASSERT(!m_browser->HasSelection());
222 }
223
224 void WebTestCase::Zoom()
225 {
226 if(m_browser->CanSetZoomType(wxWEB_VIEW_ZOOM_TYPE_LAYOUT))
227 {
228 m_browser->SetZoomType(wxWEB_VIEW_ZOOM_TYPE_LAYOUT);
229 CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TYPE_LAYOUT, m_browser->GetZoomType());
230
231 m_browser->SetZoom(wxWEB_VIEW_ZOOM_TINY);
232 CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TINY, m_browser->GetZoom());
233 }
234
235 //Reset the zoom level
236 m_browser->SetZoom(wxWEB_VIEW_ZOOM_MEDIUM);
237
238 if(m_browser->CanSetZoomType(wxWEB_VIEW_ZOOM_TYPE_TEXT))
239 {
240 m_browser->SetZoomType(wxWEB_VIEW_ZOOM_TYPE_TEXT);
241 CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TYPE_TEXT, m_browser->GetZoomType());
242
243 m_browser->SetZoom(wxWEB_VIEW_ZOOM_TINY);
244 CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TINY, m_browser->GetZoom());
245 }
246 }
247
248 void WebTestCase::RunScript()
249 {
250 m_browser->RunScript("document.write(\"Hello World!\");");
251 CPPUNIT_ASSERT_EQUAL("Hello World!", m_browser->GetPageText());
252 }
253
254 void WebTestCase::SetPage()
255 {
256 m_browser->SetPage("<html><body>text</body></html>", "");
257 CPPUNIT_ASSERT_EQUAL("text", m_browser->GetPageText());
258
259 m_browser->SetPage("<html><body>other text</body></html>", "");
260 CPPUNIT_ASSERT_EQUAL("other text", m_browser->GetPageText());
261 }
262
263 #endif //wxUSE_WEBVIEW && (wxUSE_WEBVIEW_WEBKIT || wxUSE_WEBVIEW_IE)