smalltalk
/
osmo-st-asn1
Archived
1
0
Fork 0
Code Pull Requests Releases Activity

Test: Add package.xml, make sure all tests can be executed.

This commit is contained in:
Holger Hans Peter Freyther 2010-10-16 22:59:18 +02:00
parent 3ec380a106
commit d0eeb9fa0f
2 changed files with 14 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
Tests.st
View File

@ -186,20 +186,6 @@ testOctetStringEncoding [
]
]
testBindRequest [
| encoded |
'' displayNl.'Beginning testBindRequest...' displayNl.
encoded _ LDAPEncoder bindRequest: 1 username: 'cn=admin,dc=linalco,dc=test' credentials: 'secret' method: nil.
"encoded _ encoded asString asHex."
encoded := self stringHex: encoded asString.
Transcript show: 'testBindRequest got: ', encoded; cr.
self assert: (encoded = '302D0201016028020103041B636E3D61646D696E2C64633D6C696E616C636F2C64633D746573748006736563726574')
]
testBindRequestHere [
| stream mesg req encoded |
stream := ReadWriteStream on: String new.
@ -223,65 +209,5 @@ testOctetStringEncoding [
self assert: (encoded = '302D0201016028020103041B636E3D61646D696E2C64633D6C696E616C636F2C64633D746573748006736563726574')
]
testAddRequest [
| encoded attrs |
attrs := Dictionary new.
attrs at: 'objectClass' put: (OrderedCollection new addLast: 'person'; yourself).
attrs at: 'cn' put: (OrderedCollection new addLast: 'test2'; yourself).
attrs at: 'sn' put: (OrderedCollection new addLast: 'test2'; yourself).
encoded := LDAPEncoder addRequest: 1 dn: 'cn=test2,dc=linalco,dc=test' attrs: attrs.
encoded := self stringHex: encoded asString ."original code uses an 'asHex' method"
'' displayNl. Transcript show: 'testAddRequest got: ', encoded; cr; cr.
self assert: (encoded = '305B0201016856041B636E3D74657374322C64633D6C696E616C636F2C64633D7465737430373017040B6F626A656374436C61737331080406706572736F6E300D0402636E310704057465737432300D0402736E310704057465737432')
]
testDelRequest [
| encoded |
encoded := LDAPEncoder delRequest: 1 dn: 'cn=test2,dc=linalco,dc=test'.
encoded := self stringHex: encoded asString ."original code uses an 'asHex' method"
Transcript show: 'testDelRequest got: ', encoded; cr; cr.
self assert: (encoded = '30200201014A1B636E3D74657374322C64633D6C696E616C636F2C64633D74657374')
]
testModifyRequest [
| encoded ops |
ops := {
LDAPAttrModifier set: 'sn' to: { 'test5sn' . 'foo' . 'bar' } .
LDAPAttrModifier addTo: 'description' values: {'rchueo'} }.
encoded := LDAPEncoder modifyRequest: 1 dn: 'cn=test5,dc=linalco,dc=test' ops: ops.
encoded := self stringHex: encoded asString ."original code uses an 'asHex' method"
Transcript show: 'testModifyRequest got: ', encoded; cr.
self assert: (encoded = '3062020101665D041B636E3D74657374352C64633D6C696E616C636F2C64633D74657374303E301E0A010230190402736E311304077465737435736E0403666F6F0403626172301C0A01003017040B6465736372697074696F6E3108040672636875656F')
]
testSearchRequest [
| encoded |
encoded := LDAPEncoder searchRequest: 1 base: 'dc=linalco, dc=test' scope: (LDAPConnection wholeSubtree) deref: (LDAPConnection derefNever) filter: (LDAPFilter with: 'objectclass' ) attrs: (OrderedCollection new) wantAttrsOnly: false.
encoded := self stringHex: encoded asString ."original code uses an 'asHex' method"
'' displayNl. Transcript show: 'testSearchRequest got: ', encoded; cr.
self assert: (encoded = '30380201016333041364633D6C696E616C636F2C2064633D746573740A01020A0100020100020100010100870B6F626A656374636C6173733000')
]
]
" ------------------------------------- "
| suite tester |
suite := TestSuite named: 'Set Tests'.
suite addTest: (BERTest selector: #testIntegerEncoding).
suite addTest: (BERTest selector: #testBooleanEncoding).
suite addTest: (BERTest selector: #testOctetStringEncoding).
suite addTest: (BERTest selector: #testSequenceEncoding).
suite addTest: (BERTest selector: #testIntegerDecoding).
suite addTest: (BERTest selector: #testBindRequest) .
suite addTest: (BERTest selector: #testAddRequest).
suite addTest: (BERTest selector: #testDelRequest).
suite addTest: (BERTest selector: #testModifyRequest).
suite addTest: (BERTest selector: #testSearchRequest).

14
package.xml Normal file
View File

@ -0,0 +1,14 @@
<package>
<name>OsmoASN1</name>
<namespace>Osmo</namespace>
<filein>BER.st</filein>
<test>
<sunit>Osmo.BERTest</sunit>
<filein>Tests.st</filein>
</test>
<file>BER.st</file>
<file>Tests.st</file>
</package>