31 lines
592 B
Smalltalk
31 lines
592 B
Smalltalk
"
|
|
A WebDriverTest is a test class for testing the behavior of WebDriver
|
|
"
|
|
Class {
|
|
#name : #WebDriverTest,
|
|
#superclass : #TestCase,
|
|
#instVars : [
|
|
'webdriver'
|
|
],
|
|
#category : #'WebDriver-Tests-Base'
|
|
}
|
|
|
|
{ #category : #running }
|
|
WebDriverTest >> setUp [
|
|
super setUp.
|
|
webdriver := WebDriver start: #Firefox.
|
|
webdriver session.
|
|
]
|
|
|
|
{ #category : #running }
|
|
WebDriverTest >> tearDown [
|
|
webdriver deleteSession.
|
|
webdriver finalize.
|
|
super tearDown.
|
|
]
|
|
|
|
{ #category : #tests }
|
|
WebDriverTest >> testGetTitle [
|
|
self assert: (webdriver url: 'https://cern.ch'; title) equals: 'Home | CERN'.
|
|
]
|