--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/VDBAbstractApplicationTests.st	Fri Sep 28 10:09:50 2018 +0100
@@ -0,0 +1,88 @@
+"
+jv:vdb - Visual / VM Debugger
+Copyright (C) 2015-now Jan Vrany
+
+This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'
+
+You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
+"
+"{ Package: 'jv:vdb/tests' }"
+
+"{ NameSpace: Smalltalk }"
+
+TestCase subclass:#VDBAbstractApplicationTests
+	instanceVariableNames:'preferences debugger application'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'VDB-UI-Abstract-Tests'
+!
+
+!VDBAbstractApplicationTests class methodsFor:'documentation'!
+
+copyright
+"
+jv:vdb - Visual / VM Debugger
+Copyright (C) 2015-now Jan Vrany
+
+This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'
+
+You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
+"
+! !
+
+!VDBAbstractApplicationTests class methodsFor:'accessing'!
+
+resources
+    ^ Array with: GDBDebuggeesResource
+
+    "Created: / 28-02-2015 / 00:45:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBAbstractApplicationTests class methodsFor:'queries'!
+
+isAbstract
+    "Return if this class is an abstract class.
+     True is returned here for myself only; false for subclasses.
+     Abstract subclasses must redefine this again."
+
+    ^ self == VDBAbstractApplicationTests.
+! !
+
+!VDBAbstractApplicationTests methodsFor:'running'!
+
+setUp
+    super setUp.
+
+    Screen current isNil ifTrue:[ Smalltalk openDisplay ].
+    self skipIf: Screen current isNil description: 'No display connection'.
+    Smalltalk loadPackage: 'stx:goodies/sunit/ext/ui'.
+
+    preferences := UserPreferences new.
+    MessageTracer mock: #current  in: UserPreferences class do: [ preferences ].
+    self assert: UserPreferences current == preferences.      
+
+    "Add your own code here..."
+
+    "Modified: / 28-09-2018 / 07:52:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+tearDown
+    super tearDown.
+    MessageTracer unmock: #current  in: UserPreferences class.
+    application notNil ifTrue:[ 
+        application closeDownViews.
+    ].
+    debugger isConnected ifTrue:[ 
+        debugger send: 'quit' andWait: false.        
+    ].
+
+    "Created: / 28-09-2018 / 08:29:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBAbstractApplicationTests class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+