Hi all,
I developped a first version of a WebTestCase class.
It uses SUnit and Zinc to get pages from the internet and test some
conditions on them.
The main work is actually to offer higher level search facilities
inspired from what I saw in Selenium
There is an example, that logs in and out of Github (and checks that we
logged in and out)
---
testLoginAndOutOfGitHub
| node |
self defaultUrl: 'http://github.com/'.
self getDefaultUrl.
self assert: (self searchString: 'Sign in') notNil.
self clickLinkValue: 'Sign in'.
self assert: (self searchString: 'Sign in to GitHub') notNil.
"5 fields to inform for login
3 of them have values inside the login page: commit, utf8,
authenticity_token"
self enter: user forName: 'login'.
self enter: pass forName: 'password'.
self enterDefaultValueForName: 'commit'.
self enterDefaultValueForName: 'utf8'.
self enterDefaultValueForName: 'authenticity_token'.
"bug in the page, there is a </form> before the real <form ...>"
node := self searchNodeTag: 'form' afterNode: (self searchNodeTag:
'form').
self submitForm: node.
"similar for signout, submit a form with 2 default values"
node := self searchFormOwning: (self searchString: 'Sign out').
self enterDefaultValueForName: 'utf8'.
self enterDefaultValueForName: 'authenticity_token'.
self submitForm: node.
"we are out"
self assert: (self searchString: 'Sign in') notNil.
---
No configOf or Catalog yet. I am too lazy
can be found at:
MCSmalltalkhubRepository
owner: 'nicolasAnquetil'
project: 'WebTest'
user: ''
password: ''
nicolas
--
Nicolas Anquetil -- MCF (HDR)
Project-Team RMod
