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     LoadUrl(2);
 173
 174     //Now we are in the 'middle' of the history
 175     m_browser->GoBack();
 176     wxYield();
 177
 178     CPPUNIT_ASSERT(m_browser->CanGoForward());
 179     CPPUNIT_ASSERT(m_browser->CanGoBack());
 180
 181     m_browser->ClearHistory();
 182
 183     CPPUNIT_ASSERT(!m_browser->CanGoForward());
 184     CPPUNIT_ASSERT(!m_browser->CanGoBack());
 185 }
 186
 187 void WebTestCase::HistoryList()
 188 {
 189     // FIXME: This test fails on MSW buildbot slaves although works fine on
 190     //        development machine.
 191     if ( wxGetUserId().Lower().Matches("buildslave*") )
 192         return;
 193
 194     LoadUrl(2);
 195     m_browser->GoBack();
 196     wxYield();
 197
 198     CPPUNIT_ASSERT_EQUAL(1, m_browser->GetBackwardHistory().size());
 199     CPPUNIT_ASSERT_EQUAL(1, m_browser->GetForwardHistory().size());
 200
 201     m_browser->LoadHistoryItem(m_browser->GetForwardHistory()[0]);
 202     wxYield();
 203
 204     CPPUNIT_ASSERT(!m_browser->CanGoForward());
 205     CPPUNIT_ASSERT_EQUAL(2, m_browser->GetBackwardHistory().size());
 206 }
 207
 208 void WebTestCase::Editable()
 209 {
 210     CPPUNIT_ASSERT(!m_browser->IsEditable());
 211
 212     m_browser->SetEditable(true);
 213
 214     CPPUNIT_ASSERT(m_browser->IsEditable());
 215
 216     m_browser->SetEditable(false);
 217
 218     CPPUNIT_ASSERT(!m_browser->IsEditable());
 219 }
 220
 221 void WebTestCase::Selection()
 222 {
 223     m_browser->SetPage("<html><body>Some <strong>strong</strong> text</body></html>", "");
 224     wxYield();
 225     CPPUNIT_ASSERT(!m_browser->HasSelection());
 226
 227     m_browser->SelectAll();
 228
 229     CPPUNIT_ASSERT(m_browser->HasSelection());
 230     CPPUNIT_ASSERT_EQUAL("Some strong text", m_browser->GetSelectedText());
 231     //We lower case the result as ie returns tags in uppercase
 232     CPPUNIT_ASSERT_EQUAL("some <strong>strong</strong> text",
 233                          m_browser->GetSelectedSource().Lower());
 234
 235     m_browser->ClearSelection();
 236     CPPUNIT_ASSERT(!m_browser->HasSelection());
 237 }
 238
 239 void WebTestCase::Zoom()
 240 {
 241     // FIXME: This test fails on MSW buildbot slaves although works fine on
 242     //        development machine.
 243     if ( wxGetUserId().Lower().Matches("buildslave*") )
 244         return;
 245
 246     if(m_browser->CanSetZoomType(wxWEB_VIEW_ZOOM_TYPE_LAYOUT))
 247     {
 248         m_browser->SetZoomType(wxWEB_VIEW_ZOOM_TYPE_LAYOUT);
 249         CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TYPE_LAYOUT, m_browser->GetZoomType());
 250
 251         m_browser->SetZoom(wxWEB_VIEW_ZOOM_TINY);
 252         CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TINY, m_browser->GetZoom());
 253     }
 254
 255     //Reset the zoom level
 256     m_browser->SetZoom(wxWEB_VIEW_ZOOM_MEDIUM);
 257
 258     if(m_browser->CanSetZoomType(wxWEB_VIEW_ZOOM_TYPE_TEXT))
 259     {
 260         m_browser->SetZoomType(wxWEB_VIEW_ZOOM_TYPE_TEXT);
 261         CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TYPE_TEXT, m_browser->GetZoomType());
 262
 263         m_browser->SetZoom(wxWEB_VIEW_ZOOM_TINY);
 264         CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TINY, m_browser->GetZoom());
 265     }
 266 }
 267
 268 void WebTestCase::RunScript()
 269 {
 270     m_browser->RunScript("document.write(\"Hello World!\");");
 271     CPPUNIT_ASSERT_EQUAL("Hello World!", m_browser->GetPageText());
 272 }
 273
 274 void WebTestCase::SetPage()
 275 {
 276     m_browser->SetPage("<html><body>text</body></html>", "");
 277     CPPUNIT_ASSERT_EQUAL("text", m_browser->GetPageText());
 278
 279     m_browser->SetPage("<html><body>other text</body></html>", "");
 280     CPPUNIT_ASSERT_EQUAL("other text", m_browser->GetPageText());
 281 }
 282
 283 #endif //wxUSE_WEBVIEW && (wxUSE_WEBVIEW_WEBKIT || wxUSE_WEBVIEW_IE)