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

2 files changed, 14 insertions, 74 deletions

diff --git a/Tests.st b/Tests.st
index eb683de..89ae64f 100644
--- a/Tests.st
+++ b/Tests.st
@@ -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).
-
diff --git a/package.xml b/package.xml
new file mode 100644
index 0000000..460e7ea
--- /dev/null
+++ b/package.xml
@@ -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>