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     // FIXME: This test fails on MSW buildbot slaves although works fine on
 117     //        development machine.
 118     if ( wxGetUserId().Lower().Matches("buildslave*") )
 119         return;
 120
 121     CPPUNIT_ASSERT_EQUAL("about:blank", m_browser->GetCurrentURL());
 122
 123     //After first loading about:blank the next in the sequence is about:
 124     LoadUrl();
 125     CPPUNIT_ASSERT_EQUAL("about:", m_browser->GetCurrentURL());
 126 }
 127
 128 void WebTestCase::History()
 129 {
 130     // FIXME: This test fails on MSW buildbot slaves although works fine on
 131     //        development machine.
 132     if ( wxGetUserId().Lower().Matches("buildslave*") )
 133         return;
 134
 135     LoadUrl(3);
 136
 137     CPPUNIT_ASSERT(m_browser->CanGoBack());
 138     CPPUNIT_ASSERT(!m_browser->CanGoForward());
 139
 140     m_browser->GoBack();
 141     wxYield();
 142
 143     CPPUNIT_ASSERT(m_browser->CanGoBack());
 144     CPPUNIT_ASSERT(m_browser->CanGoForward());
 145
 146     m_browser->GoBack();
 147     wxYield();
 148     m_browser->GoBack();
 149     wxYield();
 150
 151     //We should now be at the start of the history
 152     CPPUNIT_ASSERT(!m_browser->CanGoBack());
 153     CPPUNIT_ASSERT(m_browser->CanGoForward());
 154 }
 155
 156 void WebTestCase::HistoryEnable()
 157 {
 158     LoadUrl();
 159     m_browser->EnableHistory(false);
 160
 161     CPPUNIT_ASSERT(!m_browser->CanGoForward());
 162     CPPUNIT_ASSERT(!m_browser->CanGoBack());
 163
 164     LoadUrl();
 165
 166     CPPUNIT_ASSERT(!m_browser->CanGoForward());
 167     CPPUNIT_ASSERT(!m_browser->CanGoBack());
 168 }
 169
 170 void WebTestCase::HistoryClear()
 171 {
 172     // FIXME: This test fails on MSW buildbot slaves although works fine on
 173     //        development machine.
 174     if ( wxGetUserId().Lower().Matches("buildslave*") )
 175         return;
 176
 177     LoadUrl(2);
 178
 179     //Now we are in the 'middle' of the history
 180     m_browser->GoBack();
 181     wxYield();
 182
 183     CPPUNIT_ASSERT(m_browser->CanGoForward());
 184     CPPUNIT_ASSERT(m_browser->CanGoBack());
 185
 186     m_browser->ClearHistory();
 187
 188     CPPUNIT_ASSERT(!m_browser->CanGoForward());
 189     CPPUNIT_ASSERT(!m_browser->CanGoBack());
 190 }
 191
 192 void WebTestCase::HistoryList()
 193 {
 194     // FIXME: This test fails on MSW buildbot slaves although works fine on
 195     //        development machine.
 196     if ( wxGetUserId().Lower().Matches("buildslave*") )
 197         return;
 198
 199     LoadUrl(2);
 200     m_browser->GoBack();
 201     wxYield();
 202
 203     CPPUNIT_ASSERT_EQUAL(1, m_browser->GetBackwardHistory().size());
 204     CPPUNIT_ASSERT_EQUAL(1, m_browser->GetForwardHistory().size());
 205
 206     m_browser->LoadHistoryItem(m_browser->GetForwardHistory()[0]);
 207     wxYield();
 208
 209     CPPUNIT_ASSERT(!m_browser->CanGoForward());
 210     CPPUNIT_ASSERT_EQUAL(2, m_browser->GetBackwardHistory().size());
 211 }
 212
 213 void WebTestCase::Editable()
 214 {
 215     CPPUNIT_ASSERT(!m_browser->IsEditable());
 216
 217     m_browser->SetEditable(true);
 218
 219     CPPUNIT_ASSERT(m_browser->IsEditable());
 220
 221     m_browser->SetEditable(false);
 222
 223     CPPUNIT_ASSERT(!m_browser->IsEditable());
 224 }
 225
 226 void WebTestCase::Selection()
 227 {
 228     m_browser->SetPage("<html><body>Some <strong>strong</strong> text</body></html>", "");
 229     wxYield();
 230     CPPUNIT_ASSERT(!m_browser->HasSelection());
 231
 232     m_browser->SelectAll();
 233
 234     CPPUNIT_ASSERT(m_browser->HasSelection());
 235     CPPUNIT_ASSERT_EQUAL("Some strong text", m_browser->GetSelectedText());
 236     //We lower case the result as ie returns tags in uppercase
 237     CPPUNIT_ASSERT_EQUAL("some <strong>strong</strong> text",
 238                          m_browser->GetSelectedSource().Lower());
 239
 240     m_browser->ClearSelection();
 241     CPPUNIT_ASSERT(!m_browser->HasSelection());
 242 }
 243
 244 void WebTestCase::Zoom()
 245 {
 246     // FIXME: This test fails on MSW buildbot slaves although works fine on
 247     //        development machine.
 248     if ( wxGetUserId().Lower().Matches("buildslave*") )
 249         return;
 250
 251     if(m_browser->CanSetZoomType(wxWEB_VIEW_ZOOM_TYPE_LAYOUT))
 252     {
 253         m_browser->SetZoomType(wxWEB_VIEW_ZOOM_TYPE_LAYOUT);
 254         CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TYPE_LAYOUT, m_browser->GetZoomType());
 255
 256         m_browser->SetZoom(wxWEB_VIEW_ZOOM_TINY);
 257         CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TINY, m_browser->GetZoom());
 258     }
 259
 260     //Reset the zoom level
 261     m_browser->SetZoom(wxWEB_VIEW_ZOOM_MEDIUM);
 262
 263     if(m_browser->CanSetZoomType(wxWEB_VIEW_ZOOM_TYPE_TEXT))
 264     {
 265         m_browser->SetZoomType(wxWEB_VIEW_ZOOM_TYPE_TEXT);
 266         CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TYPE_TEXT, m_browser->GetZoomType());
 267
 268         m_browser->SetZoom(wxWEB_VIEW_ZOOM_TINY);
 269         CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TINY, m_browser->GetZoom());
 270     }
 271 }
 272
 273 void WebTestCase::RunScript()
 274 {
 275     m_browser->RunScript("document.write(\"Hello World!\");");
 276     CPPUNIT_ASSERT_EQUAL("Hello World!", m_browser->GetPageText());
 277 }
 278
 279 void WebTestCase::SetPage()
 280 {
 281     m_browser->SetPage("<html><body>text</body></html>", "");
 282     CPPUNIT_ASSERT_EQUAL("text", m_browser->GetPageText());
 283
 284     m_browser->SetPage("<html><body>other text</body></html>", "");
 285     CPPUNIT_ASSERT_EQUAL("other text", m_browser->GetPageText());
 286 }
 287
 288 #endif //wxUSE_WEBVIEW && (wxUSE_WEBVIEW_WEBKIT || wxUSE_WEBVIEW_IE)