--- a/tests/GDBDebuggerTestsR.st	Mon Feb 05 21:45:22 2018 +0000
+++ b/tests/GDBDebuggerTestsR.st	Tue Feb 13 22:13:28 2018 +0000
@@ -403,7 +403,7 @@
 !
 
 test_variables_01
-    | variables d |
+    | thread frame variables d |
 
     debugger := GDBDebugger new.
     debugger executable: GDBDebuggeesResource current binaryVariables.
@@ -412,11 +412,15 @@
     debugger send: 'r' andWaitFor: GDBStoppedEvent.
     debugger send: 's' andWaitFor: GDBStoppedEvent.
 
-    variables := debugger selectedInferior threads first stack first variables.
+    thread := debugger selectedInferior threads first.
+    frame := thread stack first.
+    variables :=  frame variables.
 
     self assert: variables size = 3. "/ argc, argv, d.
     self assert: variables first name = 'argc'.
     self assert: variables first varobj expression = 'argc'.
+    self assert: variables first varobj thread == thread.
+    self assert: variables first varobj frame == frame.
 
     self assert: variables second name = 'argv'.
     self assert: variables second varobj expression = 'argv'.
@@ -428,10 +432,14 @@
     self assert: d hasChildren.
     self assert: d children size = 3.
 
+    self assert: d children first parent == d.
     self assert: d children first hasChildren not.
     self assert: d children first children = #().
     self assert: d children first expression = 'i'.
     self assert: d children first value = '1'.
+    self assert: d children first thread == thread.
+    self assert: d children first frame == frame.
+    
 
     self assert: d children third hasChildren.
     self assert: d children third children size = 2.
@@ -449,8 +457,7 @@
     debugger send: 'quit' andWait: false.
 
     "Created: / 30-01-2018 / 10:27:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-
-
+    "Modified: / 13-02-2018 / 22:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test_variables_02