Squeak-dev September 2010

squeak-dev@lists.squeakfoundation.org

110 participants
401 discussions

The Inbox: CryptoCore-rww.4.mcz
by commits＠source.squeak.org 23 Sep '10

23 Sep '10

A new version of CryptoCore was added to project The Inbox: http://source.squeak.org/inbox/CryptoCore-rww.4.mcz ==================== Summary ==================== Name: CryptoCore-rww.4 Author: rww Time: 23 September 2010, 4:31:15.327 am UUID: 66874a66-f65b-3343-b1e7-326774856d01 Ancestors: CryptoCore-rww.3 fixed RSA signing and moved ASN1 and PKCS11 into Core =============== Diff against CryptoCore-rww.3 =============== Item was added: + ----- Method: Boolean>>asAsn1Bytes (in category '*cryptocore') ----- + asAsn1Bytes + + ^ ASN1Stream encode: self. + ! Item was added: + ----- Method: Boolean>>asn1Tag (in category '*cryptocore') ----- + asn1Tag + + ^ 1 + ! Item was added: + ----- Method: ByteArray>>asn1Tag (in category '*cryptocore') ----- + asn1Tag + + ^ 4 + ! Item was added: + ----- Method: DateAndTime>>asAsn1Bytes (in category '*cryptocore') ----- + asAsn1Bytes + + ^ ASN1Stream encode: self. + ! Item was added: + ----- Method: DateAndTime>>asn1Tag (in category '*cryptocore') ----- + asn1Tag + + ^ 23 + ! Item was added: + ----- Method: Integer class>>asnDerLengthFromHexStreamWithBytes: (in category '*cryptocore') ----- + asnDerLengthFromHexStreamWithBytes: aStream + + | byte length bytes | + bytes := OrderedCollection new. + byte := (Number readFrom: ((bytes add: aStream next) ifNil: [^0->#()]) asUppercase base: 16). + byte <= 16r80 + ifTrue: [^byte->bytes merge] + ifFalse: [ + length := 0. + (byte bitAnd: 16r7F) timesRepeat: [ + length := (length bitShift: 8) bitOr: (Number readFrom: (bytes add: aStream next) asUppercase base: 16).]. + ^ length->(bytes merge)].! Item was added: + ----- Method: Integer>>asAsn1Bytes (in category '*cryptocore') ----- + asAsn1Bytes + + ^ ASN1Stream encode: self. + ! Item was added: + ----- Method: Integer>>asn1Tag (in category '*cryptocore') ----- + asn1Tag + + ^ 2 + ! Item was added: + ----- Method: ReadStream>>formatASN1TabLevel: (in category '*cryptocore') ----- + formatASN1TabLevel: aTabLevel + | result tag aString size tabs sizeAndBytes bytes | + self atEnd + ifTrue: [^ String new]. + tabs := ((1 to: aTabLevel) + collect: [:i | '.' , String tab]) merge. + result := tabs , (tag := self next) , String tab. + sizeAndBytes := tag = '00' + ifTrue: [(Number readFrom: (bytes := self next: 2) merge asUppercase base: 16) -> bytes merge] + ifFalse: [Integer asnDerLengthFromHexStreamWithBytes: self]. + size := sizeAndBytes key. + aString := (self next: size) merge. + aString isEmpty + ifTrue: [aString := String new]. + (tag = '30' + or: [tag = '31' + or: [tag first asLowercase = $a or: [tag = '00']]]) + ifTrue: [result := result , sizeAndBytes value , ' (' , size asString , '): ' , String cr + , (aString formatASN1TabLevel: aTabLevel + 1)] + ifFalse: [result := result , sizeAndBytes value , ' (' , size asString , '): ' , String cr , tabs , String tab , aString , String cr + , (self formatASN1TabLevel: aTabLevel)]. + ^ result + , (self formatASN1TabLevel: aTabLevel)! Item was added: + ----- Method: SequenceableCollection>>asAsn1Bytes (in category '*cryptocore') ----- + asAsn1Bytes + + ^ ASN1Stream encode: self. + ! Item was added: + ----- Method: SequenceableCollection>>asn1Tag (in category '*cryptocore') ----- + asn1Tag + + ^ 48 + ! Item was added: + ----- Method: Set>>asAsn1Bytes (in category '*cryptocore') ----- + asAsn1Bytes + + ^ ASN1Stream encode: self. + ! Item was added: + ----- Method: Set>>asn1Tag (in category '*cryptocore') ----- + asn1Tag + + ^ 49 + ! Item was added: + ----- Method: String>>asn1Tag (in category '*cryptocore') ----- + asn1Tag + + ^ 12 + ! Item was added: + ----- Method: String>>formatASN1 (in category '*cryptocore') ----- + formatASN1 + "return a asn1 tab formed string + '30818513818154686973206973206120313239206279746520737472696E672C2062757420746861742069732061207265616C6C79206C6F6E6720737472696E6720736F204920686176652061206C6F7420746F20747970652E20204E6F7065204920616D206E6F7420646F6E65207965742C207374696C6C206E6F7420646F6E6520616C6D6F' formatASN1 + " + ^self formatASN1TabLevel: 0! Item was added: + ----- Method: String>>formatASN1TabLevel: (in category '*cryptocore') ----- + formatASN1TabLevel: aTabLevel + | aReadStream aWriteStream | + "return a asn1 tab formed string + '30818513818154686973206973206120313239206279746520737472696E672C2062757420746861742069732061207265616C6C79206C6F6E6720737472696E6720736F204920686176652061206C6F7420746F20747970652E20204E6F7065204920616D206E6F7420646F6E65207965742C207374696C6C206E6F7420646F6E6520616C6D6F' formatASN1 + " + aReadStream := ((self copyWithoutAll: {Character space. Character tab. Character cr}) divideBySize: 2) readStream. + aWriteStream := String new writeStream. + aWriteStream nextPutAll: (aReadStream formatASN1TabLevel: aTabLevel). + ^aWriteStream contents! Item was added: + ----- Method: String>>tokensBasedOn: (in category '*cryptocore') ----- + tokensBasedOn: aChar + "Answer an array of the substrings that compose the receiver." + | result end begin | + + result := WriteStream on: (Array new: 10). + + begin := 1. + "find one substring each time through this loop" + [ + "find the beginning of the next substring" + end := self indexOf: aChar startingAt: begin ifAbsent: [ nil ]. + end ~~ nil ] + whileTrue: [ + result nextPut: (self copyFrom: begin to: end - 1). + begin := end + 1]. + result nextPut: (self copyFrom: begin to: self size). + ^result contents + ! Item was added: + ----- Method: UndefinedObject>>asAsn1Bytes (in category '*cryptocore') ----- + asAsn1Bytes + + ^ ASN1Stream encode: self. + ! Item was added: + ----- Method: UndefinedObject>>asn1Tag (in category '*cryptocore') ----- + asn1Tag + + ^ 5!

1 0

The Inbox: CryptoCertsTests-rww.2.mcz
by commits＠source.squeak.org 23 Sep '10

23 Sep '10

A new version of CryptoCertsTests was added to project The Inbox: http://source.squeak.org/inbox/CryptoCertsTests-rww.2.mcz ==================== Summary ==================== Name: CryptoCertsTests-rww.2 Author: rww Time: 23 September 2010, 4:31:02.605 am UUID: 8b2b49f9-382a-ec42-97c1-4dd2df1fd0ae Ancestors: CryptoCertsTests-rww.1 fixed RSA signing and moved ASN1 and PKCS11 into Core =============== Diff against CryptoCertsTests-rww.1 =============== Item was removed: - Object subclass: #ASN1TestModel - instanceVariableNames: 'testSlot1 testSlot2' - classVariableNames: '' - poolDictionaries: '' - category: 'CryptoCertsTests'! Item was removed: - ----- Method: ASN1TestModel>>testSlot1 (in category 'accessing') ----- - testSlot1 - "Answer the value of testSlot1" - - ^ testSlot1! Item was removed: - ----- Method: ASN1TestModel>>testSlot1: (in category 'accessing') ----- - testSlot1: anObject - "Set the value of testSlot1" - - testSlot1 := anObject! Item was removed: - ----- Method: ASN1TestModel>>testSlot2 (in category 'accessing') ----- - testSlot2 - "Answer the value of testSlot2" - - ^ testSlot2! Item was removed: - ----- Method: ASN1TestModel>>testSlot2: (in category 'accessing') ----- - testSlot2: anObject - "Set the value of testSlot2" - - testSlot2 := anObject! Item was removed: - TestCase subclass: #CryptoASN1Test - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'CryptoCertsTests'! Item was removed: - ----- Method: CryptoASN1Test>>testBMPString (in category 'tests - base') ----- - testBMPString - - | bytes obj newBytes testObj | - bytes := #(30 11 104 101 108 108 111 32 119 111 114 108 100). - testObj := 'hello world'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testBaseExplicitType (in category 'tests - defined types') ----- - testBaseExplicitType - - | bytes obj newBytes type | - (ASN1Module name: #test) explicit: #TestExplicit type: #ASN1IntegerType tag: 0. - - type := (ASN1Module name: #test) find: #TestExplicit. - bytes := #(160 4 2 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj = 789). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testBaseImplicitConstructedType (in category 'tests - defined types') ----- - testBaseImplicitConstructedType - - | bytes obj newBytes type | - (ASN1Module name: #test) implicit: #TestImplicit type: #ASN1SequenceType tag: 0. - - type := (ASN1Module name: #test) find: #TestImplicit. - bytes := #(160 4 2 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj = (OrderedCollection with: 789)). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testBaseImplicitPrimitiveType (in category 'tests - defined types') ----- - testBaseImplicitPrimitiveType - - | bytes obj newBytes type | - (ASN1Module name: #test) implicit: #TestImplicit type: #ASN1IntegerType tag: 0. - - type := (ASN1Module name: #test) find: #TestImplicit. - bytes := #(128 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj = 789). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testBitString (in category 'tests - base') ----- - testBitString - - | bytes obj newBytes testObj | - bytes := #(3 3 3 168 121). - testObj := ASN1BitString new - bytes: #(168 121); - bitsPadding: 3; - yourself. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testBoolean (in category 'tests - base') ----- - testBoolean - - | bytes obj newBytes testObj | - bytes := #(1 1 255). - testObj := true. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testByteArray (in category 'tests - base') ----- - testByteArray - - | bytes obj newBytes testObj | - bytes := #(4 5 3 21 55 43 76). - testObj := #(3 21 55 43 76) asByteArray. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testConstructedBMPString (in category 'tests - BER') ----- - testConstructedBMPString - - | bytes obj testObj | - bytes := #(62 15 30 5 84 101 115 116 32 30 6 85 115 101 114 32 49). - testObj := 'Test User 1'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testConstructedBitString (in category 'tests - BER') ----- - testConstructedBitString - - | bytes obj testObj | - bytes := #(35 9 3 3 0 110 93 3 2 6 192). - testObj := ASN1BitString new - bytes: #(110 93 192) asByteArray; - bitsPadding: 6; - yourself. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testConstructedByteArray (in category 'tests - BER') ----- - testConstructedByteArray - - | bytes obj testObj | - bytes := #(36 12 4 4 1 35 69 103 4 4 137 171 205 239). - testObj :=#(1 35 69 103 137 171 205 239) asByteArray. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testConstructedIA5String (in category 'tests - BER') ----- - testConstructedIA5String - - | bytes obj testObj | - bytes := #(54 15 22 5 84 101 115 116 32 22 6 85 115 101 114 32 49). - testObj := 'Test User 1'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testConstructedPrintableString (in category 'tests - BER') ----- - testConstructedPrintableString - - | bytes obj testObj | - bytes := #(51 15 19 5 84 101 115 116 32 19 6 85 115 101 114 32 49). - testObj := 'Test User 1'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testConstructedTeletexString (in category 'tests - BER') ----- - testConstructedTeletexString - - | bytes obj testObj | - bytes := #(52 15 20 5 84 101 115 116 32 20 6 85 115 101 114 32 49). - testObj := 'Test User 1'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testConstructedUTF8String (in category 'tests - BER') ----- - testConstructedUTF8String - - | bytes obj testObj | - bytes := #(44 15 12 5 84 101 115 116 32 12 6 85 115 101 114 32 49). - testObj := 'Test User 1'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testConstructedUniversalString (in category 'tests - BER') ----- - testConstructedUniversalString - - | bytes obj testObj | - bytes := #(60 15 28 5 84 101 115 116 32 28 6 85 115 101 114 32 49). - testObj := 'Test User 1'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedAnyDefinedByType (in category 'tests - defined types') ----- - testDefinedAnyDefinedByType - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1ObjectIdentifierType; - add: #testSlot2 type: #TestAnyDefinedBy; - yourself. - ((ASN1Module name: #test) any: #TestAnyDefinedBy definedBy: #testSlot1) - at: (ASN1ObjectId fromString: '1.1') put: #ASN1BooleanType; - at: (ASN1ObjectId fromString: '1.2') put: #ASN1IntegerType; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - - bytes := #(48 6 6 1 41 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = (ASN1ObjectId fromString: '1.1')). - self assert: (obj testSlot2 = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - - bytes := #(48 7 6 1 42 2 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = (ASN1ObjectId fromString: '1.2')). - self assert: (obj testSlot2 = 789). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedAnyType (in category 'tests - defined types') ----- - testDefinedAnyType - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1AnyType; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - - bytes := #(48 3 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - - bytes := #(48 4 2 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = 789). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedChoiceType (in category 'tests - defined types') ----- - testDefinedChoiceType - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #TestChoice; - yourself. - ((ASN1Module name: #test) choice: #TestChoice) - add: #boolean type: #ASN1BooleanType; - add: #integer type: #ASN1IntegerType; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - - bytes := #(48 3 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - - bytes := #(48 4 2 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = 789). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedExplicitType (in category 'tests - defined types') ----- - testDefinedExplicitType - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1IntegerType explicitTag: 0; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 6 160 4 2 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = 789). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedImplicitConstructedType (in category 'tests - defined types') ----- - testDefinedImplicitConstructedType - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1SequenceType implicitTag: 0; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 6 160 4 2 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = (OrderedCollection with: 789)). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedImplicitPrimitiveType (in category 'tests - defined types') ----- - testDefinedImplicitPrimitiveType - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1IntegerType implicitTag: 0; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 4 128 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = 789). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedMappedBMPStringType (in category 'tests - mapped') ----- - testDefinedMappedBMPStringType - - | bytes obj newBytes type | - ((ASN1Module name: #test) mapped: #TestMapped) - mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #ASN1BMPStringType. - type := (ASN1Module name: #test) find: #TestMapped. - - bytes := #(30 11 104 101 108 108 111 32 119 111 114 108 100). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = 'hello world'). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedMappedBooleanType (in category 'tests - mapped') ----- - testDefinedMappedBooleanType - - | bytes obj newBytes type | - ((ASN1Module name: #test) mapped: #TestMapped) - mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #ASN1BooleanType. - type := (ASN1Module name: #test) find: #TestMapped. - - bytes := #(1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedMappedIntegerType (in category 'tests - mapped') ----- - testDefinedMappedIntegerType - - | bytes obj newBytes type | - ((ASN1Module name: #test) mapped: #TestMapped) - mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #ASN1IntegerType. - type := (ASN1Module name: #test) find: #TestMapped. - - bytes := #(2 2 3 21). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = 789). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedMappedSequenceType (in category 'tests - mapped') ----- - testDefinedMappedSequenceType - - | bytes obj newBytes type | - ((ASN1Module name: #test) mapped: #TestMapped) - mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #TestSequence. - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1BooleanType. - type := (ASN1Module name: #test) find: #TestMapped. - - bytes := #(48 3 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 isKindOf: ASN1TestModel). - self assert: (obj testSlot1 testSlot1 = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedMappedUTF8StringType (in category 'tests - mapped') ----- - testDefinedMappedUTF8StringType - - | bytes obj newBytes type | - ((ASN1Module name: #test) mapped: #TestMapped) - mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #ASN1StringType. - type := (ASN1Module name: #test) find: #TestMapped. - - bytes := #(12 11 104 101 108 108 111 32 119 111 114 108 100). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = 'hello world'). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedSequenceOfType (in category 'tests - defined types') ----- - testDefinedSequenceOfType - - | bytes obj newBytes type | - (ASN1Module name: #test) sequence: #TestSequence of: #ASN1BooleanType. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 3 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: OrderedCollection). - self assert: (obj first = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedSequenceType (in category 'tests - defined types') ----- - testDefinedSequenceType - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1BooleanType; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 3 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedSequenceTypeDefault (in category 'tests - defined types') ----- - testDefinedSequenceTypeDefault - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1BooleanType default: false; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 0). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = false). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedSequenceTypeOptional (in category 'tests - defined types') ----- - testDefinedSequenceTypeOptional - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - addOptional: #testSlot1 type: #ASN1BooleanType; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 0). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedSequenceTypeOptionalDefault (in category 'tests - defined types') ----- - testDefinedSequenceTypeOptionalDefault - - | bytes obj newBytes type | - ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) - addOptional: #testSlot1 type: #ASN1BooleanType default: false; - yourself. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 0). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = false). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedSetType (in category 'tests - defined types') ----- - testDefinedSetType - - | bytes obj newBytes type | - ((ASN1Module name: #test) set: #TestSet mapping: ASN1TestModel) - add: #testSlot1 type: #ASN1BooleanType; - yourself. - - type := (ASN1Module name: #test) find: #TestSet. - bytes := #(49 3 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: ASN1TestModel). - self assert: (obj testSlot1 = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedUnmappedSequenceType (in category 'tests - defined types') ----- - testDefinedUnmappedSequenceType - - | bytes obj newBytes type | - (ASN1Module name: #test) sequence: #TestSequence. - - type := (ASN1Module name: #test) find: #TestSequence. - bytes := #(48 3 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: OrderedCollection). - self assert: (obj first = true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testDefinedUnmappedSetType (in category 'tests - defined types') ----- - testDefinedUnmappedSetType - - | bytes obj newBytes type | - (ASN1Module name: #test) set: #TestSet. - - type := (ASN1Module name: #test) find: #TestSet. - bytes := #(49 3 1 1 255). - obj := ASN1Stream decodeBytes: bytes withType: type. - self assert: (obj isKindOf: OrderedSet). - self assert: (obj includes: true). - newBytes := ASN1Stream encode: obj withType: type. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testEqualsChecksType (in category 'tests - base') ----- - testEqualsChecksType - - self deny: (ASN1ObjectId fromString: '1.3.6.1.5.5.7.8.5') = Object new - ! Item was removed: - ----- Method: CryptoASN1Test>>testIA5String (in category 'tests - base') ----- - testIA5String - - | bytes obj newBytes testObj | - bytes := #(22 11 104 101 108 108 111 32 119 111 114 108 100). - testObj := 'hello world'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testIndefiniteLengthSequence (in category 'tests - BER') ----- - testIndefiniteLengthSequence - - | bytes obj testObj | - bytes := #(48 128 1 1 255 2 2 3 21 4 2 108 100 0 0). - testObj := OrderedCollection new - add: true; - add: 789; - add: #(108 100) asByteArray; - yourself. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - ! Item was removed: - ----- Method: CryptoASN1Test>>testInteger (in category 'tests - base') ----- - testInteger - - | bytes obj newBytes testObj | - bytes := #(2 2 3 21). - testObj := 789. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testNull (in category 'tests - base') ----- - testNull - - | bytes obj newBytes | - bytes := #(5 0). - obj := ASN1Stream decodeBytes: bytes. - self assert: obj isNil. - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testObjectIdentifier (in category 'tests - base') ----- - testObjectIdentifier - - | bytes obj newBytes testObj | - bytes := #(6 8 43 6 1 5 5 7 8 5). - testObj := ASN1ObjectId new - oid: '1.3.6.1.5.5.7.8.5'; - yourself. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testPrintableString (in category 'tests - base') ----- - testPrintableString - - | bytes obj newBytes testObj | - bytes := #(19 11 104 101 108 108 111 32 119 111 114 108 100). - testObj := 'hello world'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testSequence (in category 'tests - base') ----- - testSequence - - | bytes obj newBytes testObj | - bytes := #(48 11 1 1 255 2 2 3 21 4 2 108 100). - testObj := OrderedCollection new - add: true; - add: 789; - add: #(108 100) asByteArray; - yourself. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testSet (in category 'tests - base') ----- - testSet - - | bytes obj newBytes testObj | - bytes := #(49 11 1 1 255 4 2 108 100 2 2 3 21 ). - testObj := OrderedSet new - add: true; - add: #(108 100) asByteArray; - add: 789; - yourself. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testString (in category 'tests - base') ----- - testString - - | bytes obj newBytes testObj | - bytes := #(12 11 104 101 108 108 111 32 119 111 114 108 100). - testObj := 'hello world'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testTeletexString (in category 'tests - base') ----- - testTeletexString - - | bytes obj newBytes testObj | - bytes := #(20 11 104 101 108 108 111 32 119 111 114 108 100). - testObj := 'hello world'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testUTCTime (in category 'tests - base') ----- - testUTCTime - - | bytes obj newBytes testObj | - bytes := #(23 13 48 55 48 51 50 50 49 53 53 56 49 55 90). - testObj := DateAndTime fromString: '2007-03-22T15:58:17+00:00'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - ----- Method: CryptoASN1Test>>testUniversalString (in category 'tests - base') ----- - testUniversalString - - | bytes obj newBytes testObj | - bytes := #(28 11 104 101 108 108 111 32 119 111 114 108 100). - testObj := 'hello world'. - obj := ASN1Stream decodeBytes: bytes. - self assert: (obj = testObj). - newBytes := ASN1Stream encode: obj. - self assert: (bytes asByteArray = newBytes). - ! Item was removed: - TestCase subclass: #CryptoPKCS12Test - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'CryptoCertsTests'! Item was removed: - ----- Method: CryptoPKCS12Test>>test1 (in category 'testing') ----- - test1 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 2 - fromPassword: 'smeg' - salt: #(10 88 207 100 83 13 130 63) - iterations: 1 - size: 8) hex. - self assert: key = '79993DFE048D3B76' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test10 (in category 'testing') ----- - test10 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 1 - fromPassword: 'queeg' - salt: #(22 130 192 252 91 63 126 197) - iterations: 1000 - size: 24) hex. - self assert: key = '483DD6E919D7DE2E8E648BA8F862F3FBFBDC2BCB2C02957F' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test2 (in category 'testing') ----- - test2 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 2 - fromPassword: 'smeg' - salt: #(100 43 153 171 68 251 75 31) - iterations: 1 - size: 8) hex. - self assert: key = 'C0A38D64A79BEA1D' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test3 (in category 'testing') ----- - test3 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 2 - fromPassword: 'queeg' - salt: #(5 222 201 89 172 255 114 247) - iterations: 1000 - size: 8) hex. - self assert: key = '11DEDAD7758D4860' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test4 (in category 'testing') ----- - test4 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 2 - fromPassword: 'queeg' - salt: #(22 130 192 252 91 63 126 197) - iterations: 1000 - size: 8) hex. - self assert: key = '9D461D1B00355C50' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test5 (in category 'testing') ----- - test5 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 3 - fromPassword: 'smeg' - salt: #(61 131 192 228 84 106 193 64) - iterations: 1 - size: 20) hex. - self assert: key = '8D967D88F6CAA9D714800AB3D48051D63F73A312' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test6 (in category 'testing') ----- - test6 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 3 - fromPassword: 'queeg' - salt: #(38 50 22 252 194 250 179 28) - iterations: 1000 - size: 20) hex. - self assert: key = '5EC4C7A80DF652294C3925B6489A7AB857C83476' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test7 (in category 'testing') ----- - test7 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 1 - fromPassword: 'smeg' - salt: #(10 88 207 100 83 13 130 63) - iterations: 1 - size: 24) hex. - self assert: key = '8AAAE6297B6CB04642AB5B077851284EB7128F1A2A7FBCA3' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test8 (in category 'testing') ----- - test8 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 1 - fromPassword: 'smeg' - salt: #(100 43 153 171 68 251 75 31) - iterations: 1 - size: 24) hex. - self assert: key = 'F3A95FEC48D7711E985CFE67908C5AB79FA3D7C5CAA5D966' - ! Item was removed: - ----- Method: CryptoPKCS12Test>>test9 (in category 'testing') ----- - test9 - - | key | - key := (Pkcs12KeyDerivationFunction new - derivedKeyWithId: 1 - fromPassword: 'queeg' - salt: #(5 222 201 89 172 255 114 247) - iterations: 1000 - size: 24) hex. - self assert: key = 'ED2034E36328830FF09DF1E1A07DD357185DAC0D4F9EB3D4' - ! Item was changed: ----- Method: CryptoX509Test>>testSignatureValidation (in category 'as yet unclassified') ----- testSignatureValidation self assert: (self certificate1 verifyFromParentCertificate: self certificate1). !

1 0

The Inbox: KernelTests-mha.167.mcz
by commits＠source.squeak.org 23 Sep '10

23 Sep '10

A new version of KernelTests was added to project The Inbox: http://source.squeak.org/inbox/KernelTests-mha.167.mcz ==================== Summary ==================== Name: KernelTests-mha.167 Author: mha Time: 23 September 2010, 10:31:18.285 am UUID: a52aec93-e5f8-4957-9b4b-565ae390925d Ancestors: KernelTests-mha.164, KernelTests-nice.166 tests for third attempt to clean up CompiledMethod's closure protocol =============== Diff against KernelTests-mha.164 =============== Item was added: + ----- Method: ClassBuilderTest>>categoryNameForTemporaryClasses (in category 'utilities') ----- + categoryNameForTemporaryClasses + "Answer the category where to classify temporarily created classes" + + ^'Dummy-Tests-ClassBuilder'! Item was changed: ----- Method: ClassBuilderTest>>cleanup (in category 'utilities') ----- cleanup subClass ifNotNil:[subClass removeFromSystem]. + baseClass ifNotNil:[baseClass removeFromSystem]. + (Smalltalk organization listAtCategoryNamed: self categoryNameForTemporaryClasses) isEmpty + ifTrue: [Smalltalk organization removeCategory: self categoryNameForTemporaryClasses]! - baseClass ifNotNil:[baseClass removeFromSystem].! Item was changed: ----- Method: ClassBuilderTest>>makeByteVariableSubclassOf: (in category 'utilities') ----- makeByteVariableSubclassOf: aClass subClass := aClass variableByteSubclass: self subClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses! - category: 'Kernel-Tests-ClassBuilder'! Item was changed: ----- Method: ClassBuilderTest>>makeIVarsSubclassOf: (in category 'utilities') ----- makeIVarsSubclassOf: aClass subClass := aClass subclass: self subClassName instanceVariableNames: 'var3 var4' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses! - category: 'Kernel-Tests-ClassBuilder'! Item was changed: ----- Method: ClassBuilderTest>>makeNormalSubclassOf: (in category 'utilities') ----- makeNormalSubclassOf: aClass subClass := aClass subclass: self subClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses! - category: 'Kernel-Tests-ClassBuilder'! Item was changed: ----- Method: ClassBuilderTest>>makeVariableSubclassOf: (in category 'utilities') ----- makeVariableSubclassOf: aClass subClass := aClass variableSubclass: self subClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses! - category: 'Kernel-Tests-ClassBuilder'.! Item was changed: ----- Method: ClassBuilderTest>>makeWeakSubclassOf: (in category 'utilities') ----- makeWeakSubclassOf: aClass subClass := aClass weakSubclass: self subClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses! - category: 'Kernel-Tests-ClassBuilder'! Item was changed: ----- Method: ClassBuilderTest>>makeWordVariableSubclassOf: (in category 'utilities') ----- makeWordVariableSubclassOf: aClass subClass := aClass variableWordSubclass: self subClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses! - category: 'Kernel-Tests-ClassBuilder'! Item was changed: ----- Method: ClassBuilderTest>>testByteVariableSubclass (in category 'testing - format') ----- testByteVariableSubclass "Ensure that the invariants for superclass/subclass format are preserved" baseClass := Object variableByteSubclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. [ self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error. self deny: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self assert: (subClass isBytes). subClass removeFromSystem. "pointer classes" self should:[self makeIVarsSubclassOf: baseClass] raise: Error. self should:[self makeVariableSubclassOf: baseClass] raise: Error. self should:[self makeWeakSubclassOf: baseClass] raise: Error. "bit classes" self shouldnt:[self makeByteVariableSubclassOf: baseClass] raise: Error. self deny: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self assert: (subClass isBytes). subClass removeFromSystem. self should:[self makeWordVariableSubclassOf: baseClass] raise: Error. ] ensure:[self cleanup].! Item was changed: ----- Method: ClassBuilderTest>>testChangeToVariableSubclass (in category 'testing - format') ----- testChangeToVariableSubclass "Ensure that the invariants for superclass/subclass format are preserved" baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. [ self shouldnt:[baseClass := Object variableSubclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses] raise: Error. - category: 'Kernel-Tests-ClassBuilder'] raise: Error. ] ensure:[self cleanup].! Item was changed: ----- Method: ClassBuilderTest>>testDuplicateClassVariableError (in category 'testing - reshape') ----- testDuplicateClassVariableError baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: 'TestVar' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. self should:[ subClass := baseClass subclass: self subClassName instanceVariableNames: '' classVariableNames: 'TestVar' poolDictionaries: '' + category: self categoryNameForTemporaryClasses - category: 'Kernel-Tests-ClassBuilder' ] raise: DuplicateVariableError. [subClass := baseClass subclass: self subClassName instanceVariableNames: '' classVariableNames: 'TestVar' poolDictionaries: '' + category: self categoryNameForTemporaryClasses - category: 'Kernel-Tests-ClassBuilder' ] on: DuplicateVariableError do:[:ex| self assert: ex superclass == baseClass. self assert: ex variable = 'TestVar'. ex resume. ]. self shouldnt:[ baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. ] raise: Error. self should:[ baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: 'TestVar' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. ] raise: DuplicateVariableError. [baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: 'TestVar' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. ] on: DuplicateVariableError do:[:ex| self assert: ex superclass == baseClass. self assert: ex variable = 'TestVar'. ex resume. ].! Item was changed: ----- Method: ClassBuilderTest>>testDuplicateInstanceVariableError (in category 'testing - reshape') ----- testDuplicateInstanceVariableError baseClass := Object subclass: self baseClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. self should:[ subClass := baseClass subclass: self subClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses - category: 'Kernel-Tests-ClassBuilder' ] raise: DuplicateVariableError. [subClass := baseClass subclass: self subClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses - category: 'Kernel-Tests-ClassBuilder' ] on: DuplicateVariableError do:[:ex| self assert: ex superclass == baseClass. self assert: ex variable = 'var'. ex resume. ]. self shouldnt:[ baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. ] raise: Error. self should:[ baseClass := Object subclass: self baseClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. ] raise: DuplicateVariableError. [baseClass := Object subclass: self baseClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. ] on: DuplicateVariableError do:[:ex| self assert: ex superclass == baseClass. self assert: ex variable = 'var'. ex resume. ].! Item was changed: ----- Method: ClassBuilderTest>>testMoveVarFromSubToSuperclass (in category 'testing - reshape') ----- testMoveVarFromSubToSuperclass | baseInst subInst | baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. subClass := baseClass subclass: self subClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. subClass compile: 'subGet ^var'. subClass compile: 'subSet: v var := v'. self assert:[baseClass instSize = 0]. self assert:[subClass instSize = 1]. baseInst := baseClass new. subInst := subClass new. subInst instVarAt: 1 put: 123. self assert: (subInst instVarAt: 1) = 123. self assert: (subInst subGet) = 123. [baseClass := Object subclass: self baseClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. ] on: DuplicateVariableError do:[:ex| ex resume]. baseClass compile: 'superGet ^var'. baseClass compile: 'superSet: v var := v'. self assert:[baseClass instSize = 1]. self assert:[subClass instSize = 2]. "the assumption here is that an existing value is propagated up" self assert: (baseInst instVarAt: 1) = nil. self assert: (subInst instVarAt: 1) = 123. self assert: (subInst instVarAt: 2) = 123. "the assumption below is that the subclass binds to the local scope not the outer one, which is in line with common name space approaches." subInst superSet: 666. subInst subSet: 321. self assert: (subInst instVarAt: 1) = 666. self assert: (subInst instVarAt: 2) = 321. self assert: (subInst superGet) = 666. self assert: (subInst subGet) = 321. subClass := baseClass subclass: self subClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. self assert:[baseClass instSize = 1]. self assert:[subClass instSize = 1]. "the assumption here is that the current (subclass) value is propagated up" self assert: (subInst instVarAt: 1) = 321. self assert: (subInst subGet) = 321. ! Item was changed: ----- Method: ClassBuilderTest>>testMoveVarFromSuperToSubclass (in category 'testing - reshape') ----- testMoveVarFromSuperToSubclass | baseInst subInst | baseClass := Object subclass: self baseClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. baseClass compile: 'superGet ^var'. baseClass compile: 'superSet: v var := v'. subClass := baseClass subclass: self subClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. subClass compile: 'subGet ^var'. subClass compile: 'subSet: v var := v'. self assert:[baseClass instSize = 1]. self assert:[subClass instSize = 1]. baseInst := baseClass new. subInst := subClass new. baseInst instVarAt: 1 put: 42. subInst instVarAt: 1 put: 123. self assert: (baseInst instVarAt: 1) = 42. self assert: (subInst instVarAt: 1) = 123. self assert: (subInst subGet) = 123. [subClass := baseClass subclass: self subClassName instanceVariableNames: 'var' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses - category: 'Kernel-Tests-ClassBuilder' ] on: DuplicateVariableError do:[:ex| ex resume]. self assert:[baseClass instSize = 1]. self assert:[subClass instSize = 2]. self assert: (baseInst instVarAt: 1) = 42. "the assumption below is that for duplicate variables the values get duplicated too. this isn't strictly necessary; what we really need is that the old var doesn't get nuked but it has some advantages when moving vars up the hierarchy" self assert: (subInst instVarAt: 1) = 123. self assert: (subInst instVarAt: 2) = 123. self assert: (subInst superGet) = 123. self assert: (subInst subGet) = 123. "the assumption below is that the subclass binds to the local scope not the outer one, which is in line with common name space approaches." subInst superSet: 666. subInst subSet: 321. self assert: (subInst instVarAt: 1) = 666. self assert: (subInst instVarAt: 2) = 321. self assert: (subInst superGet) = 666. self assert: (subInst subGet) = 321. baseClass removeSelector: #superGet. baseClass removeSelector: #superSet:. baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. self assert:[baseClass instSize = 0]. self assert:[subClass instSize = 1]. self assert: (subInst instVarAt: 1) = 321. self assert: (subInst subGet) = 321. ! Item was changed: ----- Method: ClassBuilderTest>>testSubclass (in category 'testing - format') ----- testSubclass "Ensure that the invariants for superclass/subclass format are preserved" baseClass := Object subclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. [ self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self deny: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. "pointer classes" self shouldnt:[self makeIVarsSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self deny: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeVariableSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert:(subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeWeakSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert:(subClass isVariable). self assert:(subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. "bit classes" self shouldnt:[self makeByteVariableSubclassOf: baseClass] raise: Error. self deny: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self assert: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeWordVariableSubclassOf: baseClass] raise: Error. self deny: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. ] ensure:[self cleanup].! Item was changed: ----- Method: ClassBuilderTest>>testSubclassWithInstanceVariables (in category 'testing - format') ----- testSubclassWithInstanceVariables "Ensure that the invariants for superclass/subclass format are preserved" baseClass := Object subclass: self baseClassName instanceVariableNames: 'var1 var2' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. [ self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self deny: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. "pointer classes" self shouldnt:[self makeIVarsSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self deny: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeVariableSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeWeakSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self assert: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. "bit classes" self should:[self makeByteVariableSubclassOf: baseClass] raise: Error. self should:[self makeWordVariableSubclassOf: baseClass] raise: Error. ] ensure:[self cleanup].! Item was changed: ----- Method: ClassBuilderTest>>testVariableSubclass (in category 'testing - format') ----- testVariableSubclass "Ensure that the invariants for superclass/subclass format are preserved" baseClass := Object variableSubclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. [ "pointer classes" self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeIVarsSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeVariableSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeWeakSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self assert: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. "bit classes" self should:[self makeByteVariableSubclassOf: baseClass] raise: Error. self should:[self makeWordVariableSubclassOf: baseClass] raise: Error. ] ensure:[self cleanup].! Item was changed: ----- Method: ClassBuilderTest>>testWeakSubclass (in category 'testing - format') ----- testWeakSubclass "Ensure that the invariants for superclass/subclass format are preserved" baseClass := Object weakSubclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. [ "pointer classes" self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self assert: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeIVarsSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self assert: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeVariableSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. self shouldnt:[self makeWeakSubclassOf: baseClass] raise: Error. self assert: (subClass isPointers). self assert: (subClass isVariable). self assert: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. "bit classes" self should:[self makeByteVariableSubclassOf: baseClass] raise: Error. self should:[self makeWordVariableSubclassOf: baseClass] raise: Error. ] ensure:[self cleanup].! Item was changed: ----- Method: ClassBuilderTest>>testWordVariableSubclass (in category 'testing - format') ----- testWordVariableSubclass "Ensure that the invariants for superclass/subclass format are preserved" baseClass := Object variableWordSubclass: self baseClassName instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses. - category: 'Kernel-Tests-ClassBuilder'. [ self shouldnt:[self makeNormalSubclassOf: baseClass] raise: Error. self deny: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. "pointer classes" self should:[self makeIVarsSubclassOf: baseClass] raise: Error. self should:[self makeVariableSubclassOf: baseClass] raise: Error. self should:[self makeWeakSubclassOf: baseClass] raise: Error. "bit classes" self should:[self makeByteVariableSubclassOf: baseClass] raise: Error. self shouldnt:[self makeWordVariableSubclassOf: baseClass] raise: Error. self deny: (subClass isPointers). self assert: (subClass isVariable). self deny: (subClass isWeak). self deny: (subClass isBytes). subClass removeFromSystem. ] ensure:[self cleanup].! Item was added: + ----- Method: ClassTest>>categoryNameForTemporaryClasses (in category 'setup') ----- + categoryNameForTemporaryClasses + "Answer the category where to classify temporarily created classes" + + ^'Dummy-Tests-Class'! Item was changed: ----- Method: ClassTest>>setUp (in category 'setup') ----- setUp className := #TUTU. renamedName := #RenamedTUTU. self deleteClass. self deleteRenamedClass. Object subclass: className instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: self categoryNameForTemporaryClasses! - category: 'KernelTests-Classes'! Item was changed: ----- Method: ClassTest>>tearDown (in category 'setup') ----- tearDown self deleteClass. + self deleteRenamedClass. + (Smalltalk organization listAtCategoryNamed: self categoryNameForTemporaryClasses) isEmpty + ifTrue: [Smalltalk organization removeCategory: self categoryNameForTemporaryClasses]! - self deleteRenamedClass! Item was changed: ----- Method: CompiledMethodTest>>testHasClosure (in category 'tests - closures') ----- testHasClosure self assert: (self class >> #withClosure) containsBlockClosures; + assert: (self class >> #withClosureNoNLR) containsBlockClosures; + assert: (self class >> #withoutClosure) containsBlockClosures not! - assert: (self class >> #withClosureNoNLR) containsBlockClosures! Item was added: + ----- Method: CompiledMethodTest>>withoutClosure (in category 'examples') ----- + withoutClosure + ^ 23 + 42! Item was added: + ----- Method: FloatTest>>testSign (in category 'testing') ----- + testSign + + "Set up" + | negatives negz positives strictNegatives strictPositives zero | + strictPositives := {2. 2.5. Float infinity}. + strictNegatives := {-3. -3.25. Float infinity negated}. + zero := 0.0. + negz := Float negativeZero. + positives := strictPositives copyWith: zero. + negatives := strictNegatives copyWith: negz. + + "The sign of non zeros" + strictPositives do: [:aPositive | self assert: aPositive sign = 1]. + strictNegatives do: [:aNegative | self assert: aNegative sign = -1]. + + "The sign of zeros" + self assert: zero sign = 0. + self assert: negz sign = -1. "remark though that negz >= 0.0, and is thus considered positive... Weird" + + "Test the copy sign functions" + positives do: [:aPositiveSign | + positives do: [:aPositive | + self assert: (aPositive sign: aPositiveSign) = aPositive]. + negatives do: [:aNegative | + self assert: (aNegative sign: aPositiveSign) = aNegative negated]. + (zero sign: aPositiveSign) sign = 0. + (negz sign: aPositiveSign) sign = 0]. + + negatives do: [:aNegativeSign | + positives do: [:aPositive | + self assert: (aPositive sign: aNegativeSign) = aPositive negated]. + negatives do: [:aNegative | + self assert: (aNegative sign: aNegativeSign) = aNegative]. + (zero sign: aNegativeSign) sign = -1. + (negz sign: aNegativeSign) sign = -1].! Item was added: + ----- Method: NumberParsingTest>>testNegativeZero (in category 'tests - Integer') ----- + testNegativeZero + "This test ensure that -0.0 will produce a negativeZero" + + | negativeZero | + negativeZero := Number readFrom: '-0.0' readStream. + + "If it is a negative zero, it must behave like a negative zero... IEEE 754 tells how it should behave" + self deny: (negativeZero at: 1) = 0 description: 'In IEEE 754, a negative zero has its sign bit set to 1'.. + self assert: negativeZero = 0 description: 'In IEEE 754, a negative zero cannot be distinguished from zero'.!

1 0

The Inbox: CryptoExtras-rww.2.mcz
by commits＠source.squeak.org 23 Sep '10

23 Sep '10

A new version of CryptoExtras was added to project The Inbox: http://source.squeak.org/inbox/CryptoExtras-rww.2.mcz ==================== Summary ==================== Name: CryptoExtras-rww.2 Author: rww Time: 23 September 2010, 4:23:52.746 am UUID: 788e4fa7-740f-d846-b0d5-ad54ccf56b4a Ancestors: CryptoExtras-rww.1 fixed RSA signing and moved ASN1 and PKCS11 into Core =============== Diff against CryptoExtras-rww.1 =============== Item was added: + ----- Method: MD2 classSide>>oidString (in category 'as yet unclassified') ----- + oidString + + ^ '1.2.840.113549.2.2'. + ! Item was added: + ----- Method: MD4 classSide>>oidString (in category 'instance creation') ----- + oidString + + ^ '1.2.840.113549.2.5'. + !

1 0

The Inbox: CryptoCoreTests-rww.2.mcz
by commits＠source.squeak.org 23 Sep '10

23 Sep '10

A new version of CryptoCoreTests was added to project The Inbox: http://source.squeak.org/inbox/CryptoCoreTests-rww.2.mcz ==================== Summary ==================== Name: CryptoCoreTests-rww.2 Author: rww Time: 23 September 2010, 4:23:23.624 am UUID: ecf58792-976c-8c48-944f-9b8f53f4b347 Ancestors: CryptoCoreTests-rww.1 fixed RSA signing and moved ASN1 and PKCS11 into Core =============== Diff against CryptoCoreTests-rww.1 =============== Item was added: + Object subclass: #ASN1TestModel + instanceVariableNames: 'testSlot1 testSlot2' + classVariableNames: '' + poolDictionaries: '' + category: 'CryptoCoreTests'! Item was added: + ----- Method: ASN1TestModel>>testSlot1 (in category 'accessing') ----- + testSlot1 + "Answer the value of testSlot1" + + ^ testSlot1! Item was added: + ----- Method: ASN1TestModel>>testSlot1: (in category 'accessing') ----- + testSlot1: anObject + "Set the value of testSlot1" + + testSlot1 := anObject! Item was added: + ----- Method: ASN1TestModel>>testSlot2 (in category 'accessing') ----- + testSlot2 + "Answer the value of testSlot2" + + ^ testSlot2! Item was added: + ----- Method: ASN1TestModel>>testSlot2: (in category 'accessing') ----- + testSlot2: anObject + "Set the value of testSlot2" + + testSlot2 := anObject! Item was added: + TestCase subclass: #CryptoASN1Test + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CryptoCoreTests'! Item was added: + ----- Method: CryptoASN1Test>>testBMPString (in category 'tests - base') ----- + testBMPString + + | bytes obj newBytes testObj | + bytes := #(30 11 104 101 108 108 111 32 119 111 114 108 100). + testObj := 'hello world'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testBaseExplicitType (in category 'tests - defined types') ----- + testBaseExplicitType + + | bytes obj newBytes type | + (ASN1Module name: #test) explicit: #TestExplicit type: #ASN1IntegerType tag: 0. + + type := (ASN1Module name: #test) find: #TestExplicit. + bytes := #(160 4 2 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj = 789). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testBaseImplicitConstructedType (in category 'tests - defined types') ----- + testBaseImplicitConstructedType + + | bytes obj newBytes type | + (ASN1Module name: #test) implicit: #TestImplicit type: #ASN1SequenceType tag: 0. + + type := (ASN1Module name: #test) find: #TestImplicit. + bytes := #(160 4 2 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj = (OrderedCollection with: 789)). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testBaseImplicitPrimitiveType (in category 'tests - defined types') ----- + testBaseImplicitPrimitiveType + + | bytes obj newBytes type | + (ASN1Module name: #test) implicit: #TestImplicit type: #ASN1IntegerType tag: 0. + + type := (ASN1Module name: #test) find: #TestImplicit. + bytes := #(128 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj = 789). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testBitString (in category 'tests - base') ----- + testBitString + + | bytes obj newBytes testObj | + bytes := #(3 3 3 168 121). + testObj := ASN1BitString new + bytes: #(168 121); + bitsPadding: 3; + yourself. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testBoolean (in category 'tests - base') ----- + testBoolean + + | bytes obj newBytes testObj | + bytes := #(1 1 255). + testObj := true. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testByteArray (in category 'tests - base') ----- + testByteArray + + | bytes obj newBytes testObj | + bytes := #(4 5 3 21 55 43 76). + testObj := #(3 21 55 43 76) asByteArray. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testConstructedBMPString (in category 'tests - BER') ----- + testConstructedBMPString + + | bytes obj testObj | + bytes := #(62 15 30 5 84 101 115 116 32 30 6 85 115 101 114 32 49). + testObj := 'Test User 1'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testConstructedBitString (in category 'tests - BER') ----- + testConstructedBitString + + | bytes obj testObj | + bytes := #(35 9 3 3 0 110 93 3 2 6 192). + testObj := ASN1BitString new + bytes: #(110 93 192) asByteArray; + bitsPadding: 6; + yourself. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testConstructedByteArray (in category 'tests - BER') ----- + testConstructedByteArray + + | bytes obj testObj | + bytes := #(36 12 4 4 1 35 69 103 4 4 137 171 205 239). + testObj :=#(1 35 69 103 137 171 205 239) asByteArray. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testConstructedIA5String (in category 'tests - BER') ----- + testConstructedIA5String + + | bytes obj testObj | + bytes := #(54 15 22 5 84 101 115 116 32 22 6 85 115 101 114 32 49). + testObj := 'Test User 1'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testConstructedPrintableString (in category 'tests - BER') ----- + testConstructedPrintableString + + | bytes obj testObj | + bytes := #(51 15 19 5 84 101 115 116 32 19 6 85 115 101 114 32 49). + testObj := 'Test User 1'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testConstructedTeletexString (in category 'tests - BER') ----- + testConstructedTeletexString + + | bytes obj testObj | + bytes := #(52 15 20 5 84 101 115 116 32 20 6 85 115 101 114 32 49). + testObj := 'Test User 1'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testConstructedUTF8String (in category 'tests - BER') ----- + testConstructedUTF8String + + | bytes obj testObj | + bytes := #(44 15 12 5 84 101 115 116 32 12 6 85 115 101 114 32 49). + testObj := 'Test User 1'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testConstructedUniversalString (in category 'tests - BER') ----- + testConstructedUniversalString + + | bytes obj testObj | + bytes := #(60 15 28 5 84 101 115 116 32 28 6 85 115 101 114 32 49). + testObj := 'Test User 1'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedAnyDefinedByType (in category 'tests - defined types') ----- + testDefinedAnyDefinedByType + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1ObjectIdentifierType; + add: #testSlot2 type: #TestAnyDefinedBy; + yourself. + ((ASN1Module name: #test) any: #TestAnyDefinedBy definedBy: #testSlot1) + at: (ASN1ObjectId fromString: '1.1') put: #ASN1BooleanType; + at: (ASN1ObjectId fromString: '1.2') put: #ASN1IntegerType; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + + bytes := #(48 6 6 1 41 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = (ASN1ObjectId fromString: '1.1')). + self assert: (obj testSlot2 = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + + bytes := #(48 7 6 1 42 2 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = (ASN1ObjectId fromString: '1.2')). + self assert: (obj testSlot2 = 789). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedAnyType (in category 'tests - defined types') ----- + testDefinedAnyType + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1AnyType; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + + bytes := #(48 3 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + + bytes := #(48 4 2 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = 789). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedChoiceType (in category 'tests - defined types') ----- + testDefinedChoiceType + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #TestChoice; + yourself. + ((ASN1Module name: #test) choice: #TestChoice) + add: #boolean type: #ASN1BooleanType; + add: #integer type: #ASN1IntegerType; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + + bytes := #(48 3 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + + bytes := #(48 4 2 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = 789). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedExplicitType (in category 'tests - defined types') ----- + testDefinedExplicitType + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1IntegerType explicitTag: 0; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 6 160 4 2 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = 789). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedImplicitConstructedType (in category 'tests - defined types') ----- + testDefinedImplicitConstructedType + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1SequenceType implicitTag: 0; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 6 160 4 2 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = (OrderedCollection with: 789)). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedImplicitPrimitiveType (in category 'tests - defined types') ----- + testDefinedImplicitPrimitiveType + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1IntegerType implicitTag: 0; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 4 128 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = 789). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedMappedBMPStringType (in category 'tests - mapped') ----- + testDefinedMappedBMPStringType + + | bytes obj newBytes type | + ((ASN1Module name: #test) mapped: #TestMapped) + mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #ASN1BMPStringType. + type := (ASN1Module name: #test) find: #TestMapped. + + bytes := #(30 11 104 101 108 108 111 32 119 111 114 108 100). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = 'hello world'). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedMappedBooleanType (in category 'tests - mapped') ----- + testDefinedMappedBooleanType + + | bytes obj newBytes type | + ((ASN1Module name: #test) mapped: #TestMapped) + mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #ASN1BooleanType. + type := (ASN1Module name: #test) find: #TestMapped. + + bytes := #(1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedMappedIntegerType (in category 'tests - mapped') ----- + testDefinedMappedIntegerType + + | bytes obj newBytes type | + ((ASN1Module name: #test) mapped: #TestMapped) + mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #ASN1IntegerType. + type := (ASN1Module name: #test) find: #TestMapped. + + bytes := #(2 2 3 21). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = 789). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedMappedSequenceType (in category 'tests - mapped') ----- + testDefinedMappedSequenceType + + | bytes obj newBytes type | + ((ASN1Module name: #test) mapped: #TestMapped) + mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #TestSequence. + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1BooleanType. + type := (ASN1Module name: #test) find: #TestMapped. + + bytes := #(48 3 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 isKindOf: ASN1TestModel). + self assert: (obj testSlot1 testSlot1 = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedMappedUTF8StringType (in category 'tests - mapped') ----- + testDefinedMappedUTF8StringType + + | bytes obj newBytes type | + ((ASN1Module name: #test) mapped: #TestMapped) + mapping: ASN1TestModel mappingSymbol: #testSlot1 type: #ASN1StringType. + type := (ASN1Module name: #test) find: #TestMapped. + + bytes := #(12 11 104 101 108 108 111 32 119 111 114 108 100). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = 'hello world'). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedSequenceOfType (in category 'tests - defined types') ----- + testDefinedSequenceOfType + + | bytes obj newBytes type | + (ASN1Module name: #test) sequence: #TestSequence of: #ASN1BooleanType. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 3 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: OrderedCollection). + self assert: (obj first = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedSequenceType (in category 'tests - defined types') ----- + testDefinedSequenceType + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1BooleanType; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 3 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedSequenceTypeDefault (in category 'tests - defined types') ----- + testDefinedSequenceTypeDefault + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1BooleanType default: false; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 0). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = false). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedSequenceTypeOptional (in category 'tests - defined types') ----- + testDefinedSequenceTypeOptional + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + addOptional: #testSlot1 type: #ASN1BooleanType; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 0). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedSequenceTypeOptionalDefault (in category 'tests - defined types') ----- + testDefinedSequenceTypeOptionalDefault + + | bytes obj newBytes type | + ((ASN1Module name: #test) sequence: #TestSequence mapping: ASN1TestModel) + addOptional: #testSlot1 type: #ASN1BooleanType default: false; + yourself. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 0). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = false). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedSetType (in category 'tests - defined types') ----- + testDefinedSetType + + | bytes obj newBytes type | + ((ASN1Module name: #test) set: #TestSet mapping: ASN1TestModel) + add: #testSlot1 type: #ASN1BooleanType; + yourself. + + type := (ASN1Module name: #test) find: #TestSet. + bytes := #(49 3 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: ASN1TestModel). + self assert: (obj testSlot1 = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedUnmappedSequenceType (in category 'tests - defined types') ----- + testDefinedUnmappedSequenceType + + | bytes obj newBytes type | + (ASN1Module name: #test) sequence: #TestSequence. + + type := (ASN1Module name: #test) find: #TestSequence. + bytes := #(48 3 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: OrderedCollection). + self assert: (obj first = true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testDefinedUnmappedSetType (in category 'tests - defined types') ----- + testDefinedUnmappedSetType + + | bytes obj newBytes type | + (ASN1Module name: #test) set: #TestSet. + + type := (ASN1Module name: #test) find: #TestSet. + bytes := #(49 3 1 1 255). + obj := ASN1Stream decodeBytes: bytes withType: type. + self assert: (obj isKindOf: OrderedSet). + self assert: (obj includes: true). + newBytes := ASN1Stream encode: obj withType: type. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testEqualsChecksType (in category 'tests - base') ----- + testEqualsChecksType + + self deny: (ASN1ObjectId fromString: '1.3.6.1.5.5.7.8.5') = Object new + ! Item was added: + ----- Method: CryptoASN1Test>>testIA5String (in category 'tests - base') ----- + testIA5String + + | bytes obj newBytes testObj | + bytes := #(22 11 104 101 108 108 111 32 119 111 114 108 100). + testObj := 'hello world'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testIndefiniteLengthSequence (in category 'tests - BER') ----- + testIndefiniteLengthSequence + + | bytes obj testObj | + bytes := #(48 128 1 1 255 2 2 3 21 4 2 108 100 0 0). + testObj := OrderedCollection new + add: true; + add: 789; + add: #(108 100) asByteArray; + yourself. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + ! Item was added: + ----- Method: CryptoASN1Test>>testInteger (in category 'tests - base') ----- + testInteger + + | bytes obj newBytes testObj | + bytes := #(2 2 3 21). + testObj := 789. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testNull (in category 'tests - base') ----- + testNull + + | bytes obj newBytes | + bytes := #(5 0). + obj := ASN1Stream decodeBytes: bytes. + self assert: obj isNil. + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testObjectIdentifier (in category 'tests - base') ----- + testObjectIdentifier + + | bytes obj newBytes testObj | + bytes := #(6 8 43 6 1 5 5 7 8 5). + testObj := ASN1ObjectId new + oid: '1.3.6.1.5.5.7.8.5'; + yourself. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testPrintableString (in category 'tests - base') ----- + testPrintableString + + | bytes obj newBytes testObj | + bytes := #(19 11 104 101 108 108 111 32 119 111 114 108 100). + testObj := 'hello world'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testSequence (in category 'tests - base') ----- + testSequence + + | bytes obj newBytes testObj | + bytes := #(48 11 1 1 255 2 2 3 21 4 2 108 100). + testObj := OrderedCollection new + add: true; + add: 789; + add: #(108 100) asByteArray; + yourself. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testSet (in category 'tests - base') ----- + testSet + + | bytes obj newBytes testObj | + bytes := #(49 11 1 1 255 4 2 108 100 2 2 3 21 ). + testObj := OrderedSet new + add: true; + add: #(108 100) asByteArray; + add: 789; + yourself. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testString (in category 'tests - base') ----- + testString + + | bytes obj newBytes testObj | + bytes := #(12 11 104 101 108 108 111 32 119 111 114 108 100). + testObj := 'hello world'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testTeletexString (in category 'tests - base') ----- + testTeletexString + + | bytes obj newBytes testObj | + bytes := #(20 11 104 101 108 108 111 32 119 111 114 108 100). + testObj := 'hello world'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testUTCTime (in category 'tests - base') ----- + testUTCTime + + | bytes obj newBytes testObj | + bytes := #(23 13 48 55 48 51 50 50 49 53 53 56 49 55 90). + testObj := DateAndTime fromString: '2007-03-22T15:58:17+00:00'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + ----- Method: CryptoASN1Test>>testUniversalString (in category 'tests - base') ----- + testUniversalString + + | bytes obj newBytes testObj | + bytes := #(28 11 104 101 108 108 111 32 119 111 114 108 100). + testObj := 'hello world'. + obj := ASN1Stream decodeBytes: bytes. + self assert: (obj = testObj). + newBytes := ASN1Stream encode: obj. + self assert: (bytes asByteArray = newBytes). + ! Item was added: + TestCase subclass: #CryptoPKCS12Test + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CryptoCoreTests'! Item was added: + ----- Method: CryptoPKCS12Test>>test1 (in category 'testing') ----- + test1 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 2 + fromPassword: 'smeg' + salt: #(10 88 207 100 83 13 130 63) + iterations: 1 + size: 8) hex. + self assert: key = '79993DFE048D3B76' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test10 (in category 'testing') ----- + test10 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 1 + fromPassword: 'queeg' + salt: #(22 130 192 252 91 63 126 197) + iterations: 1000 + size: 24) hex. + self assert: key = '483DD6E919D7DE2E8E648BA8F862F3FBFBDC2BCB2C02957F' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test2 (in category 'testing') ----- + test2 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 2 + fromPassword: 'smeg' + salt: #(100 43 153 171 68 251 75 31) + iterations: 1 + size: 8) hex. + self assert: key = 'C0A38D64A79BEA1D' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test3 (in category 'testing') ----- + test3 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 2 + fromPassword: 'queeg' + salt: #(5 222 201 89 172 255 114 247) + iterations: 1000 + size: 8) hex. + self assert: key = '11DEDAD7758D4860' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test4 (in category 'testing') ----- + test4 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 2 + fromPassword: 'queeg' + salt: #(22 130 192 252 91 63 126 197) + iterations: 1000 + size: 8) hex. + self assert: key = '9D461D1B00355C50' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test5 (in category 'testing') ----- + test5 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 3 + fromPassword: 'smeg' + salt: #(61 131 192 228 84 106 193 64) + iterations: 1 + size: 20) hex. + self assert: key = '8D967D88F6CAA9D714800AB3D48051D63F73A312' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test6 (in category 'testing') ----- + test6 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 3 + fromPassword: 'queeg' + salt: #(38 50 22 252 194 250 179 28) + iterations: 1000 + size: 20) hex. + self assert: key = '5EC4C7A80DF652294C3925B6489A7AB857C83476' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test7 (in category 'testing') ----- + test7 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 1 + fromPassword: 'smeg' + salt: #(10 88 207 100 83 13 130 63) + iterations: 1 + size: 24) hex. + self assert: key = '8AAAE6297B6CB04642AB5B077851284EB7128F1A2A7FBCA3' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test8 (in category 'testing') ----- + test8 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 1 + fromPassword: 'smeg' + salt: #(100 43 153 171 68 251 75 31) + iterations: 1 + size: 24) hex. + self assert: key = 'F3A95FEC48D7711E985CFE67908C5AB79FA3D7C5CAA5D966' + ! Item was added: + ----- Method: CryptoPKCS12Test>>test9 (in category 'testing') ----- + test9 + + | key | + key := (Pkcs12KeyDerivationFunction new + derivedKeyWithId: 1 + fromPassword: 'queeg' + salt: #(5 222 201 89 172 255 114 247) + iterations: 1000 + size: 24) hex. + self assert: key = 'ED2034E36328830FF09DF1E1A07DD357185DAC0D4F9EB3D4' + ! Item was changed: TestCase subclass: #CryptoRSATest + instanceVariableNames: 'privateKey publicKey' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'CryptoCoreTests'! Item was added: + ----- Method: CryptoRSATest>>derKeys (in category 'RSA') ----- + derKeys + + | key64 | + key64 := self encodedBase64Keys. + + ^(Base64MimeConverter mimeDecodeToBytes: key64 readStream ) contents. + ! Item was added: + ----- Method: CryptoRSATest>>encodedBase64Keys (in category 'RSA') ----- + encodedBase64Keys + + ^ 'MIICXgIBAAKBgQDkI45GM6mYLlbxrKozE6bXWMoxvtVuIWOIF1KcGLED+4Gipriw + Nt0hkosuil513/CMjn9XBSZtaSsiIOLkXLZtbKYhATtvODR1nD/dl0JpFH7BLcD9 + NGGRKOow0jg8fcPtXhLTy6Dsl7rfmVPJYuc4IlzZImTdErllmhzrTKT3YQIDAQAB + AoGBALPQjogomii3hZHQ3QmLGLqtYhjZaBH4wSF3+IXONF+GMcRIklNZuuuGPKt/ + JjrUOh4fBqFJDuO3u+aXcx45MRMLVHuQIuUbegJXVS+rnxXI3I6I4SLBkoV7Jqn/ + J9T9biOXrzq/xN8XVJQm7zq/FXaHR6l+Wo50LaBj7llY+CMBAkEA8bfsbySseTbI + D7tR/bytEz/DhQ1knKS3nFo83NYwDm7YcdGC+f0rQIUuS30lKApeoygBUiLOSs7K + euxEi6wC0QJBAPGePI59Fc5alAivyTkYdV4sbIL+SL5oXEERRyezogEgRqCGJtyd + MbnVviwREF4MiGTYQIIOx4aFrM/U4q9DL5ECQH+/QImMzEpTlXAbA74iFSZzMJYE + +gN/WjqbxkbAPC2kj2e33ozYLB+xQ0JKJXT/5fw8jFYoZvZKS+CjNabLhcECQQDp + bgrrToXGu1PRoKMzeiHKPfkIBUuaSZD3fA3WmYGmvNv/MhxRf70O4SW9xS6e7lTH + uPV5sXWqzXLLx8zJrotBAkEAgAoiR+5uOW9CgfWkblJ/YIgGbLiLQoFNZbwxXDfr + jcosTQvBjrc//rCnb2Pgm8QRGeN/CXKc9kKoWNqUQSYchQ== + MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDkI45GM6mYLlbxrKozE6bXWMox + vtVuIWOIF1KcGLED+4GipriwNt0hkosuil513/CMjn9XBSZtaSsiIOLkXLZtbKYh + ATtvODR1nD/dl0JpFH7BLcD9NGGRKOow0jg8fcPtXhLTy6Dsl7rfmVPJYuc4IlzZ + ImTdErllmhzrTKT3YQIDAQAB'.! Item was changed: + ----- Method: CryptoRSATest>>genericRSATest: (in category 'tests') ----- - ----- Method: CryptoRSATest>>genericRSATest: (in category 'RSA') ----- genericRSATest: bits | generator public private msg c | generator := RSAKeyPairGenerator new bits: bits. public := generator publicKey. "this may take a while" private := generator privateKey. msg := 1234567890987654321. "the plaintext" c := public crypt: msg. "the ciphertext (print it and take a look)" self assert: (private crypt: c) = msg! Item was added: + ----- Method: CryptoRSATest>>setUp (in category 'running') ----- + setUp + | reader | + super setUp. + + reader := RSAPrivateKeyFileReader new. + reader decryptedBytes: self derKeys. + privateKey := reader asPrivateKey. + publicKey := reader asPublicKey. + ! Item was changed: + ----- Method: CryptoRSATest>>testRSA128 (in category 'tests') ----- - ----- Method: CryptoRSATest>>testRSA128 (in category 'RSA') ----- testRSA128 self genericRSATest: 128! Item was changed: + ----- Method: CryptoRSATest>>testRSA64 (in category 'tests') ----- - ----- Method: CryptoRSATest>>testRSA64 (in category 'RSA') ----- testRSA64 self genericRSATest: 64! Item was added: + ----- Method: CryptoRSATest>>testRSASHASignVerification (in category 'tests') ----- + testRSASHASignVerification + + | signBytes | + + signBytes := privateKey v15SignMessage: 'hello'. + + self assert: (publicKey v15Verify: signBytes isSignatureOf: 'hello')! Item was added: + ----- Method: CryptoRSATest>>testRSASHASigning (in category 'tests') ----- + testRSASHASigning + + | signBytes | + + signBytes := privateKey v15SignMessage: 'hello'. + + self assert: signBytes = + #[217 255 224 189 56 76 46 39 224 98 134 191 90 24 145 47 7 195 143 29 131 44 93 172 118 161 3 217 231 74 82 55 37 193 86 114 7 137 22 207 107 27 26 121 40 155 185 172 20 23 27 27 187 162 97 64 151 41 173 230 53 54 174 53 73 76 252 145 252 215 166 53 37 21 174 21 185 171 201 163 197 43 15 202 40 48 150 9 233 126 34 221 219 27 215 142 161 15 225 230 238 150 82 130 2 51 197 124 242 211 222 60 145 93 145 198 48 122 160 232 31 75 161 244 8 194 143 170]!

1 0

Re: [Pharo-project] I am missing userful functionality?
by Stéphane Ducasse 23 Sep '10

23 Sep '10

Hi igor I cannot help but indeed we need a real brand new classbuilder with a nice MOP for instance migrating too. We will start to work on that probably december/january. Stef On Sep 23, 2010, at 12:03 AM, Igor Stasenko wrote: > Hello, guys > > i want to do a simple thing, which can be expressed by following: > > oldClass replaceWith: newClass migrateInstances: [:inst | > ... ] > > In my case, first, i installing a WeakFinalizationRegistry class, > and then want to replace an old WeakRegistry class with it, > silently and painlessly. > > I end up with following script: > > | old new oldClass newClass | > old := OrderedCollection new. > new := OrderedCollection new. > > > "migrate instances" > WeakRegistry allInstancesDo: [:registry | | newr | > old add: registry. > newr := WeakFinalizationRegistry basicNew initialize. > registry migrateTo: newr. > new add: newr ]. > old asArray elementsForwardIdentityTo: new asArray. > > "replace the class" > > oldClass := WeakRegistry. > newClass := WeakFinalizationRegistry. > > Smalltalk forgetClass: #WeakFinalizationRegistry logged: false. > newClass superclass removeSubclass: newClass. > newClass setName: #WeakRegistry. > oldClass becomeForward: newClass. > > -- > > it looks a bit hackish, and i wonder how to do that in more 'standard' way. > > Initially replacing classes was: > > oldClass removeFromSystem. > newClass rename: #WeakRegistry > > the problem with that, is that all compiled methods , which was > referring to old class through association, > still using it, and to get rid of them i have to recompile them. > > > > -- > Best regards, > Igor Stasenko AKA sig. > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

1 0

Is there Squeak BoF at SPLASH this year?
by Stefan Marr 23 Sep '10

23 Sep '10

Hi: Is there a Squeak BoF planed for SPLASH/OOPSLA this year? If so, is there already a time slot fixed for it? Thanks Stefan -- Stefan Marr Software Languages Lab Vrije Universiteit Brussel Pleinlaan 2 / B-1050 Brussels / Belgium http://soft.vub.ac.be/~smarr Phone: +32 2 629 2974 Fax: +32 2 629 3525

2 1

[OT] NASA Selects High Schools To Compete In New Challenge:
by Edgar J. De Cleene 23 Sep '10

23 Sep '10

------ Forwarded Message From: NASA News Services <nasa_subscriptions(a)service.govdelivery.com> Reply-To: NASA News Services <nasa_subscriptions(a)service.govdelivery.com> Date: Thu, 23 Sep 2010 00:17:31 -0500 To: <edgardec2001(a)yahoo.com.ar> Subject: NASA Selects High Schools To Compete In New Challenge: NASA Selects High Schools To Compete In New Challenge: <http://links.govdelivery.com:80/track?type=click&enid=bWFpbGluZ2lkPTEwMTEyN jEmbWVzc2FnZWlkPVBSRC1CVUwtMTAxMTI2MSZkYXRhYmFzZWlkPTEwMDEmc2VyaWFsPTEyNzY2M jcyNjImZW1haWxpZD1lZGdhcmRlYzIwMDFAeWFob28uY29tLmFyJnVzZXJpZD1lZGdhcmRlYzIwM DFAeWFob28uY29tLmFyJmZsPSZle> <http://links.govdelivery.com:80/track?type=click&enid=bWFpbGluZ2lkPTEwM TEyNjEmbWVzc2FnZWlkPVBSRC1CVUwtMTAxMTI2MSZkYXRhYmFzZWlkPTEwMDEmc2VyaWFsPTEyN zY2MjcyNjImZW1haWxpZD1lZGdhcmRlYzIwMDFAeWFob28uY29tLmFyJnVzZXJpZD1lZGdhcmRlY zIwMDFAeWFob28uY29tLmFyJmZsP> Tue, 21 Sep 2010 23:00:00 -0500 NASA and the Massachusetts Institute of Technology (MIT) in Cambridge, Mass., have selected 24 high schools to participate in a new science, technology, engineering, and math education program. The teams will design software to program small satellites aboard the International Space Station. ------------------------- Could be nice if some use Squeak.... Edgar

1 0

Daily Commit Log
by commits＠source.squeak.org 23 Sep '10

23 Sep '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-September/003777.… Name: Monticello-nice.405 Ancestors: Monticello-nice.403 1) protect against missing timeStamp when annotation pane preference is on 2) adjust default annotation pane height for a double line 3) use this default in the merger ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-September/003778.… Name: System-nice.378 Ancestors: System-nice.377 Correct a bug in Drag&Drop thanks to Stéphane Rollandin (variables theOne, left at nil, seems a leftover from a previous implementation) =============================================

1 0

New finalization + migration
by Igor Stasenko 23 Sep '10

23 Sep '10

Hello, here the latest version of scripts , which supposed to work in both pharo and squeak (except that pharo still missing some prerequisites like HashedCollection and WeakKeyDictionary changes). I added some class comments, and did some refactoring. Install files in following order: phase-0.cs phase-1-weakfinalizationlist.st phase-1-weakfinalizationregistry.st phase-1-weakfinalizeritem.st phase-2-finalizationprocess.1.cs phase-3-migrating.1.cs I split it on phases to indicate the boundaries of mcz packages. It works well on latest 4.2 images under Squeak VM and Cog. It doesn't requires updated VM (things are keep working under older VMs, it just don't using new functionality). Please, examine the #migrateOldRegistries method in WeakFinalizationRegistry class side. It may be a little bit buggy, since i want to replace one class with another and not sure how to do it correctly (Just stop before phase 3, where WeakFinalizationRegistry is not yet made to be WeakRegistry). If there is everything ok, then with help of some generous soul, these changes can be pushed in trunk, because i have no idea how to generate a proper .mcd configs in order to load these changes in right order. P.S. Reminder to Eliot: I am also uploaded the Cog VM changes on mantis (http://bugs.squeak.org/view.php?id=7473), in case if you miss it in my previous mail. -- Best regards, Igor Stasenko AKA sig.

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
41
Older →

Jump to page: