tests/srp.slate

   1 lobby ensureNamespace: #UnitTests.
   2
   3 UnitTests define: #SRP &parents: {TestCase}.
   4
   5 s@(UnitTests SRP traits) equalityLiterals
   6 [
   7  "Literals that should compare = when replicated."
   8  | a |
   9  a: (ExtensibleArray newSize: 1).
  10  a add: 'ABC'.
  11  a add: 999999999999999.
  12  a add: -999999999999999.
  13 " a add: 1.5 .
  14  a add: -1.5 .
  15  a add:  1 / 3 .
  16  a add: -1 / 3 ."
  17  a add: #{#name. #date}.
  18  a add: ({255. 65. 66. 67. 0.} as: ByteArray).
  19  a
  20 ].
  21
  22 s@(UnitTests SRP traits) identityLiterals
  23 [
  24   "Literals that should compare == when replicated."
  25
  26  { True. False. Nil. #name. $A. 7. -7.}
  27 ].
  28
  29 s@(UnitTests SRP traits) testLiteralDefaultReplications
  30 [
  31   s equalityLiterals do: [| :ea |
  32     s assert: (SRP Configuration new replicate: ea) = ea.
  33     s assert: (SRP NonMappingConfiguration new replicate: ea) = ea.
  34 "    self assert: (SrpBase64Configuration new replicate: ea) = ea.
  35     self assert: (SrtSequenceCheckConfiguration new replicate: ea) = ea."
  36   ].
  37
  38   s identityLiterals do: [| :ea |
  39     s assert: (SRP Configuration new replicate: ea) == ea.
  40     s assert: ((SRP NonMappingConfiguration new replicate: ea) == ea).
  41 "    self assert: (SrpBase64Configuration new replicate: ea) == ea.
  42     self assert: (SrtSequenceCheckConfiguration new replicate: ea) == ea."
  43   ].
  44 ].
  45
  46 s@(UnitTests SRP traits) testStringReplications
  47 [
  48   | stream |
  49
  50   stream: ((ExtensibleArray newSize: 1) writer).
  51   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  52
  53   stream ; '\n'.
  54
  55   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  56
  57   stream nextPut: $A.
  58
  59   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  60
  61   stream ; '\n'.
  62
  63   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  64
  65   stream nextPutAll: 'ABCD'.
  66
  67   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  68
  69   stream ; '\n'.
  70   stream nextPutAll: 'EFGH'.
  71
  72   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  73
  74   stream ; '\n'. stream ; '\n'.
  75    stream nextPutAll: 'IJKL'.
  76
  77   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  78
  79   stream nextPut: (10 as: Character).
  80    stream ; '\n'.
  81   stream nextPutAll: 'MNOP'.
  82
  83   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  84
  85   stream nextPut: (13 as: Character).
  86   stream ; '\n'.
  87
  88   stream nextPutAll: 'QRST'.
  89
  90   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  91
  92   stream nextPut: (13 as: Character). stream nextPut: (13 as: Character). stream ; '\n'. stream nextPutAll: 'UVW'.
  93
  94   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  95
  96   stream nextPut: (10 as: Character). stream nextPut: (10 as: Character). stream ; '\n'. stream nextPutAll: 'XYZ'.
  97
  98   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
  99
 100   stream ; '\n\n\t\n\n'.
 101
 102   s assert: (SRP Configuration default replicate: stream contents) = stream contents.
 103 ].
 104
 105
 106 s@(UnitTests SRP traits) testSrpDefaultsComplexObject100xWriteRead
 107 [
 108   | ostream method t1 t2 |
 109
 110   method: s complexObject.
 111
 112   ostream: SRP Configuration new newStream.
 113
 114   t1: (t2: 0).
 115
 116   100 timesRepeat: [
 117
 118     ostream nextPut: method.
 119 "    t1 := t1 + (self portal millisecondsToRun: [ostream nextPut: method ]).
 120 "
 121     ostream reset.
 122     ostream next.
 123 "    t2 := t2 + (self portal millisecondsToRun: [ostream next ]).
 124 "
 125     ostream reset.
 126
 127   ].
 128 "
 129   self reportComment: #testSrpDefaultsComplexObject100xWriteRead, ' save ', t1 printString, 'ms, load ', t2 printString, 'ms.'.
 130 "
 131 ].
 132
 133 s@(UnitTests SRP traits) complexObject
 134 [
 135  SRP Configuration default loadObjectFromBinaryFilename: '/home/jewel/complexObject'
 136 ].
 137
 138 s@(UnitTests SRP traits) suite
 139 [s suiteForSelectors: {
 140   #testLiteralDefaultReplications.
 141   #testStringReplications.
 142 }].
 143
 144 "UnitTests SRP suite run"
 145