--- a/tests/GDBDebuggerTestsR.st	Fri Mar 09 11:01:06 2018 +0000
+++ b/tests/GDBDebuggerTestsR.st	Fri Mar 09 12:38:44 2018 +0000
@@ -335,6 +335,24 @@
     "Modified (format): / 11-07-2017 / 23:31:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+test_directories
+    | directories |
+
+    debugger := GDBDebugger new.
+    self assert: debugger isConnected.
+
+    directories := debugger directories.
+    self assert: directories isArray.
+    self assert: directories notEmpty.
+
+    debugger send: ('set directories "%1"' bindWith: Filename currentDirectory pathName).
+    directories := debugger directories.
+    self assert: directories isArray.
+    self assert:(directories includes: Filename currentDirectory pathName).
+
+    "Created: / 09-03-2018 / 12:28:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 test_features
 
     debugger := GDBDebugger new.