#REFACTORING by cg
class: RegressionTests::CryptTests class
comment/format in: #initialize
changed: #loadLibcryptIfAvailable
--- a/RegressionTests__CryptTests.st Tue Oct 23 17:35:28 2018 +0200
+++ b/RegressionTests__CryptTests.st Tue Nov 06 10:39:17 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -32,11 +34,10 @@
initialize
"Invoked at system start or when the class is dynamically loaded."
- "/ please change as required (and remove this comment)
-
LibCryptLoaded := false.
"Modified: / 03-03-2014 / 12:05:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 06-11-2018 / 10:33:59 / Claus Gittinger"
! !
!CryptTests class methodsFor:'utilities'!
@@ -45,17 +46,18 @@
"raise an error: this method should be implemented (TODO)"
LibCryptLoaded ifFalse:[
- (Smalltalk at: #SHA384Stream) isNil ifTrue:[
- [
- Smalltalk loadPackage: #'exept:libcrypt'
- ] on: PackageLoadError do:[:ex |
- "/Libcrypt not not available.
- ].
- ].
- LibCryptLoaded := true.
+ (Smalltalk at: #'exept_libcrypt') isNil ifTrue:[
+ [
+ Smalltalk loadPackage: #'exept:libcrypt'.
+ ] on: PackageLoadError do:[:ex |
+ "/ Libcrypt not not available.
+ ].
+ ].
+ LibCryptLoaded := (Smalltalk at: #'exept_libcrypt') notNil.
].
"Created: / 03-03-2014 / 12:03:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 06-11-2018 / 10:33:48 / Claus Gittinger"
! !
!CryptTests methodsFor:'initialize / release'!