stx_goodies_libcairo.st
changeset 61 f25d922632f7
parent 60 9bc47734215d
child 63 054f0513ea65
--- a/stx_goodies_libcairo.st	Thu Mar 03 23:57:57 2016 +0000
+++ b/stx_goodies_libcairo.st	Fri Mar 04 15:35:21 2016 +0000
@@ -10,6 +10,32 @@
 !
 
 
+!stx_goodies_libcairo class methodsFor:'accessing - tests'!
+
+testSuite
+    "generate and return a testSuite containing all of my test-classes"
+
+    | testSuite |
+
+    testSuite := super testSuite.
+    [
+        (Smalltalk at: #'stx_goodies_libcairo_tests') isNil ifTrue:[
+            Smalltalk loadPackage: 'stx:goodies/libcairo/tests'.
+        ].
+        testSuite addTests: (Smalltalk at: #'stx_goodies_libcairo_tests') testSuite tests.
+    ] on: Error do:[:ex | 
+        'FAILED TO LOAD stx:goodies/libcairo/tests: ' errorPrint.
+        ex  description errorPrintCR.
+    ].
+    ^ testSuite
+
+    "
+    stx_goodies_libcairo testSuite
+    "
+
+    "Created: / 04-03-2016 / 15:28:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !stx_goodies_libcairo class methodsFor:'description'!
 
 excludedFromPreRequisites