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