smalltalk
/
osmo-st-all
Archived
1
0
Fork 0
Code Releases Activity

Added RadioButtonElementTest

This commit is contained in:
Sébastien Audier 2009-08-18 05:06:22 +00:00
parent a038570d92
commit 7d4c574343
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Tests/Unit/Elements/RadioButtonElementTest.st Normal file
View File

@ -0,0 +1,30 @@
ElementTest subclass: RadioButtonElementTest [
<comment: nil>
<category: 'Iliad-Tests-Elements'>
setUp [
e := RadioButtonElement new
]
testBeSelected [
e beSelected.
self shouldHaveAttribute: #checked value: 'checked'
]
testBeforePrintHtml [
e beforePrintHtml.
self shouldHaveAttribute: 'type' value: 'radio'
]
testSelected [
e selected: true.
self shouldHaveAttribute: #checked value: 'checked'
]
testValue [
e value: 'foo'.
self shouldHaveAttribute: 'value' value: 'foo'
]
]