From ca242b4d3bcd95221cf0a5bacfac561af3e5d920 Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Tue, 17 May 2022 14:28:56 +0200
Subject: [PATCH] More tests

---
 src/WebDriver-Tests/WDElementTest.class.st  | 13 +++++++++++--
 src/WebDriver/WebDriverGeckodriver.class.st |  4 ++--
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/src/WebDriver-Tests/WDElementTest.class.st b/src/WebDriver-Tests/WDElementTest.class.st
index 33328aa..5df2610 100644
--- a/src/WebDriver-Tests/WDElementTest.class.st
+++ b/src/WebDriver-Tests/WDElementTest.class.st
@@ -27,6 +27,15 @@ WDElementTest >> tearDown [
 { #category : #tests }
 WDElementTest >> testAttributeReading [
 	| element |
-	driver url: ''.
-	element := driver findElement: '' using: ''.
+	driver url: 'https://ddg.co'.
+	element := driver findElement: '#logo_homepage_link' using: WDLocationStrategy cssSelector.
+	self assert: (element attribute: 'href') equals: '/about'.
+]
+
+{ #category : #tests }
+WDElementTest >> testTextReading [
+	| element |
+	driver url: 'https://ddg.co'.
+	element := driver findElement: '#logo_homepage_link' using: WDLocationStrategy cssSelector.
+	self assert: (element text) equals: 'About DuckDuckGo'.
 ]
diff --git a/src/WebDriver/WebDriverGeckodriver.class.st b/src/WebDriver/WebDriverGeckodriver.class.st
index d926c20..4cad1a8 100644
--- a/src/WebDriver/WebDriverGeckodriver.class.st
+++ b/src/WebDriver/WebDriverGeckodriver.class.st
@@ -4,7 +4,7 @@ I implement the specifics and quirks to remote control a Firefox instance using
 Class {
 	#name : #WebDriverGeckodriver,
 	#superclass : #WebDriver,
-	#category : #WebDriver
+	#category : #'WebDriver-Base'
 }
 
 { #category : #testing }
@@ -18,7 +18,7 @@ WebDriverGeckodriver class >> startWithOptions: options [
 	subproc := OSSUnixSubprocess new 
 						command: 'geckodriver'.
 	[ subproc run ] fork.
-	(Delay forSeconds: 1) wait.
+	(Delay forSeconds: 0.1) wait.
 	^ self new
 		browser: subproc
 		server: '127.0.0.1'