#include "testprec.h"
-#if wxUSE_WEB
+#if wxUSE_WEBVIEW && (wxUSE_WEBVIEW_WEBKIT || wxUSE_WEBVIEW_IE)
#ifdef __BORLANDC__
#pragma hdrstop
private:
CPPUNIT_TEST_SUITE( WebTestCase );
CPPUNIT_TEST( Title );
+ CPPUNIT_TEST( Url );
+ CPPUNIT_TEST( History );
+ CPPUNIT_TEST( HistoryEnable );
+ CPPUNIT_TEST( HistoryClear );
+ CPPUNIT_TEST( HistoryList );
+ CPPUNIT_TEST( Editable );
+ CPPUNIT_TEST( Selection );
+ CPPUNIT_TEST( Zoom );
+ CPPUNIT_TEST( RunScript );
+ CPPUNIT_TEST( SetPage );
CPPUNIT_TEST_SUITE_END();
void Title();
+ void Url();
+ void History();
+ void HistoryEnable();
+ void HistoryClear();
+ void HistoryList();
+ void Editable();
+ void Selection();
+ void Zoom();
+ void RunScript();
+ void SetPage();
+ void LoadUrl(int times = 1);
wxWebView* m_browser;
void WebTestCase::setUp()
{
m_browser = wxWebView::New(wxTheApp->GetTopWindow(), wxID_ANY);
+ //We yield to let the initial page load
+ wxYield();
}
void WebTestCase::tearDown()
wxDELETE(m_browser);
}
+void WebTestCase::LoadUrl(int times)
+{
+ //We alternate between urls as otherwise webkit merges them in the history
+ //we use about and about blank to avoid the need for a network connection
+ for(int i = 0; i < times; i++)
+ {
+ if(i % 2 == 1)
+ m_browser->LoadURL("about:blank");
+ else
+ m_browser->LoadURL("about:");
+ wxYield();
+ }
+}
+
void WebTestCase::Title()
{
CPPUNIT_ASSERT_EQUAL("", m_browser->GetCurrentTitle());
//Test title after loading raw html
- m_browser->SetPage("<html><title>Title</title></html>", "");
+ m_browser->SetPage("<html><title>Title</title><body>Text</body></html>", "");
+ wxYield();
CPPUNIT_ASSERT_EQUAL("Title", m_browser->GetCurrentTitle());
//Test title after loading a url, we yield to let events process
- m_browser->LoadUrl("about:blank");
- wxYield();
+ LoadUrl();
CPPUNIT_ASSERT_EQUAL("", m_browser->GetCurrentTitle());
}
-#endif //wxUSE_WEB
+void WebTestCase::Url()
+{
+ // FIXME: This test fails on MSW buildbot slaves although works fine on
+ // development machine.
+ if ( wxGetUserId().Lower().Matches("buildslave*") )
+ return;
+
+ CPPUNIT_ASSERT_EQUAL("about:blank", m_browser->GetCurrentURL());
+
+ //After first loading about:blank the next in the sequence is about:
+ LoadUrl();
+ CPPUNIT_ASSERT_EQUAL("about:", m_browser->GetCurrentURL());
+}
+
+void WebTestCase::History()
+{
+ // FIXME: This test fails on MSW buildbot slaves although works fine on
+ // development machine.
+ if ( wxGetUserId().Lower().Matches("buildslave*") )
+ return;
+
+ LoadUrl(3);
+
+ CPPUNIT_ASSERT(m_browser->CanGoBack());
+ CPPUNIT_ASSERT(!m_browser->CanGoForward());
+
+ m_browser->GoBack();
+ wxYield();
+
+ CPPUNIT_ASSERT(m_browser->CanGoBack());
+ CPPUNIT_ASSERT(m_browser->CanGoForward());
+
+ m_browser->GoBack();
+ wxYield();
+ m_browser->GoBack();
+ wxYield();
+
+ //We should now be at the start of the history
+ CPPUNIT_ASSERT(!m_browser->CanGoBack());
+ CPPUNIT_ASSERT(m_browser->CanGoForward());
+}
+
+void WebTestCase::HistoryEnable()
+{
+ LoadUrl();
+ m_browser->EnableHistory(false);
+
+ CPPUNIT_ASSERT(!m_browser->CanGoForward());
+ CPPUNIT_ASSERT(!m_browser->CanGoBack());
+
+ LoadUrl();
+
+ CPPUNIT_ASSERT(!m_browser->CanGoForward());
+ CPPUNIT_ASSERT(!m_browser->CanGoBack());
+}
+
+void WebTestCase::HistoryClear()
+{
+ // FIXME: This test fails on MSW buildbot slaves although works fine on
+ // development machine.
+ if ( wxGetUserId().Lower().Matches("buildslave*") )
+ return;
+
+ LoadUrl(2);
+
+ //Now we are in the 'middle' of the history
+ m_browser->GoBack();
+ wxYield();
+
+ CPPUNIT_ASSERT(m_browser->CanGoForward());
+ CPPUNIT_ASSERT(m_browser->CanGoBack());
+
+ m_browser->ClearHistory();
+
+ CPPUNIT_ASSERT(!m_browser->CanGoForward());
+ CPPUNIT_ASSERT(!m_browser->CanGoBack());
+}
+
+void WebTestCase::HistoryList()
+{
+ // FIXME: This test fails on MSW buildbot slaves although works fine on
+ // development machine.
+ if ( wxGetUserId().Lower().Matches("buildslave*") )
+ return;
+
+ LoadUrl(2);
+ m_browser->GoBack();
+ wxYield();
+
+ CPPUNIT_ASSERT_EQUAL(1, m_browser->GetBackwardHistory().size());
+ CPPUNIT_ASSERT_EQUAL(1, m_browser->GetForwardHistory().size());
+
+ m_browser->LoadHistoryItem(m_browser->GetForwardHistory()[0]);
+ wxYield();
+
+ CPPUNIT_ASSERT(!m_browser->CanGoForward());
+ CPPUNIT_ASSERT_EQUAL(2, m_browser->GetBackwardHistory().size());
+}
+
+void WebTestCase::Editable()
+{
+ CPPUNIT_ASSERT(!m_browser->IsEditable());
+
+ m_browser->SetEditable(true);
+
+ CPPUNIT_ASSERT(m_browser->IsEditable());
+
+ m_browser->SetEditable(false);
+
+ CPPUNIT_ASSERT(!m_browser->IsEditable());
+}
+
+void WebTestCase::Selection()
+{
+ m_browser->SetPage("<html><body>Some <strong>strong</strong> text</body></html>", "");
+ wxYield();
+ CPPUNIT_ASSERT(!m_browser->HasSelection());
+
+ m_browser->SelectAll();
+
+ CPPUNIT_ASSERT(m_browser->HasSelection());
+ CPPUNIT_ASSERT_EQUAL("Some strong text", m_browser->GetSelectedText());
+ //We lower case the result as ie returns tags in uppercase
+ CPPUNIT_ASSERT_EQUAL("some <strong>strong</strong> text",
+ m_browser->GetSelectedSource().Lower());
+
+ m_browser->ClearSelection();
+ CPPUNIT_ASSERT(!m_browser->HasSelection());
+}
+
+void WebTestCase::Zoom()
+{
+ // FIXME: This test fails on MSW buildbot slaves although works fine on
+ // development machine.
+ if ( wxGetUserId().Lower().Matches("buildslave*") )
+ return;
+
+ if(m_browser->CanSetZoomType(wxWEB_VIEW_ZOOM_TYPE_LAYOUT))
+ {
+ m_browser->SetZoomType(wxWEB_VIEW_ZOOM_TYPE_LAYOUT);
+ CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TYPE_LAYOUT, m_browser->GetZoomType());
+
+ m_browser->SetZoom(wxWEB_VIEW_ZOOM_TINY);
+ CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TINY, m_browser->GetZoom());
+ }
+
+ //Reset the zoom level
+ m_browser->SetZoom(wxWEB_VIEW_ZOOM_MEDIUM);
+
+ if(m_browser->CanSetZoomType(wxWEB_VIEW_ZOOM_TYPE_TEXT))
+ {
+ m_browser->SetZoomType(wxWEB_VIEW_ZOOM_TYPE_TEXT);
+ CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TYPE_TEXT, m_browser->GetZoomType());
+
+ m_browser->SetZoom(wxWEB_VIEW_ZOOM_TINY);
+ CPPUNIT_ASSERT_EQUAL(wxWEB_VIEW_ZOOM_TINY, m_browser->GetZoom());
+ }
+}
+
+void WebTestCase::RunScript()
+{
+ m_browser->RunScript("document.write(\"Hello World!\");");
+ CPPUNIT_ASSERT_EQUAL("Hello World!", m_browser->GetPageText());
+}
+
+void WebTestCase::SetPage()
+{
+ m_browser->SetPage("<html><body>text</body></html>", "");
+ CPPUNIT_ASSERT_EQUAL("text", m_browser->GetPageText());
+
+ m_browser->SetPage("<html><body>other text</body></html>", "");
+ CPPUNIT_ASSERT_EQUAL("other text", m_browser->GetPageText());
+}
+
+#endif //wxUSE_WEBVIEW && (wxUSE_WEBVIEW_WEBKIT || wxUSE_WEBVIEW_IE)
projects / wxWidgets.git / blobdiff