# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1541497157 -3600
# Node ID e1a74171ea8bc9313988d14ad6affdbf46d679b8
# Parent  916a21ae08e1c9da345bbd7759a24f2198aef56a
#REFACTORING by cg
class: RegressionTests::CryptTests class
comment/format in: #initialize
changed: #loadLibcryptIfAvailable

diff -r 916a21ae08e1 -r e1a74171ea8b RegressionTests__CryptTests.st
--- 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'!