hg/jv-libgdbs: tests/GDBDebuggerTestsR.st@7f53d51a0a65 (annotated)

56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:libgdbs/tests' }"
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	GDBDebuggerTestCase subclass:#GDBDebuggerTestsR
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'GDB-Core-Tests'
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!GDBDebuggerTestsR class methodsFor:'documentation'!
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	documentation
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	"
66 43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	16	Tests for GDBDebugger (using real test programs)
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	[author:]
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	Jan Vrany <jan.vrany@fit.cvut.cz>
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	[instance variables:]
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	[class variables:]
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	[see also:]
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	"
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	! !
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	!GDBDebuggerTestsR class methodsFor:'accessing'!
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	resources
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	^ Array with: GDBDebuggeesResource
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	"Created: / 28-02-2015 / 00:45:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	! !
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	!GDBDebuggerTestsR methodsFor:'tests - basic'!
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	test_02
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	\| inferior1 thread1 frame1 frame2 \|
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	debugger := GDBDebugger new.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	self assert: debugger isConnected.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	debugger executable: GDBDebuggeesResource current binaryFactorial.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	debugger send: 'b factorial'.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
63 29a7a3b4532b Added conveniece API to ease debugger scripting (and testing) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	49	debugger send: 'r' andWaitFor: GDBStoppedEvent.
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	self assert: debugger inferiors size == 1.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	inferior1 := debugger inferiors anElement.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	self assert: inferior1 threads size == 1.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	thread1 := inferior1 threads anElement.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	self assert: thread1 stack size == 2.
86 7f53d51a0a65 Cache thread status and update it on `=stopped` and `=running` events Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	56	self assert: thread1 status isStopped.
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	frame1 := thread1 stack first.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	frame2 := thread1 stack second.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	self assert: frame1 variables size == 1.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	self assert: frame1 variables first name = 'i'.
76 29efc28d989a Fixed `GDBVariable>>varobj` to actually keep the varobj Jan Vrany <jan.vrany@fit.cvut.cz> parents: 74 diff changeset	61	self assert: frame1 variables first value = '5'.
74 d53d325c2930 Initial work on varobjs. Tests locks up an image, should be polished and folded. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 72 diff changeset	62
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	self assert: frame2 variables size == 4.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	self assert: frame2 variables first name = 'argc'.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	self assert: frame2 variables second name = 'argv'.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	self assert: frame2 variables third name = 'i'.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	self assert: frame2 variables fourth name = 'f'.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69
63 29a7a3b4532b Added conveniece API to ease debugger scripting (and testing) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	70	debugger send: 'd'.
29a7a3b4532b Added conveniece API to ease debugger scripting (and testing) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	71	debugger send: 'c' andWaitFor: GDBThreadGroupExitedEvent.
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	73	self assert: thread1 isDead.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	74
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	75	debugger send: 'quit' andWait: false.
66 43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	76
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	"Created: / 28-02-2015 / 00:55:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
86 7f53d51a0a65 Cache thread status and update it on `=stopped` and `=running` events Jan Vrany <jan.vrany@fit.cvut.cz> parents: 79 diff changeset	78	"Modified: / 12-07-2017 / 13:55:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66 43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	79	!
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	80
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	81	test_03
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	82	\| inferior1 thread1 \|
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	83
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	84	debugger := GDBDebugger new.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	85	self assert: debugger isConnected.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	86
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	87	debugger executable: GDBDebuggeesResource current binaryPressAnyKey.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	88
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	89	debugger send: (GDBMI_exec_run new).
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	90
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	91	self assert: debugger inferiors size == 1.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	92	inferior1 := debugger inferiors anElement.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	93	self assert: inferior1 threads size == 1.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	94	thread1 := inferior1 threads anElement.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	95	self assert: thread1 isRunning.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	96
72 eb4eea3ebf4c Increate sequence number also when thread or thread group is stopped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	97	debugger send: (GDBMI_exec_interrupt new arguments: #('--all')) andWaitFor: GDBStoppedEvent.
66 43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	98
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	99	self assert: thread1 isRunning not.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	100
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	101	debugger inferiorStdin nextPutLine:'X'.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	102
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	103	debugger send: 'c' andWaitFor: GDBThreadGroupExitedEvent.
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	104
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	105	debugger send: 'quit' andWait: false
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	106
66 43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	107	"Created: / 08-03-2015 / 07:42:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	108	"Modified: / 01-06-2017 / 22:30:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	!
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	test_basic_01
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	\| timeouted \|
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	debugger := GDBDebugger new.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	self assert: debugger isConnected.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	timeouted := ([
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	debugger send: (GDBMI_gdb_exit new).
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	118	[ debugger isConnected ] whileTrue:[
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	119	Delay waitForMilliseconds: 200.
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	120	].
303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	121	1.
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	] valueWithTimeout: 3 seconds) isNil.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	self assert: timeouted not.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	self assert: debugger isConnected not.
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	"Created: / 24-06-2014 / 09:06:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
79 303c4edc75ad `GDBProcess` refatored to have console interpreter on STDIN/STDOUT Jan Vrany <jan.vrany@fit.cvut.cz> parents: 76 diff changeset	128	"Modified: / 31-05-2017 / 22:42:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
56 20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	! !
20989de12cfb More work on variables + tests Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130
66 43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	131	!GDBDebuggerTestsR class methodsFor:'documentation'!
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	132
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	133	version_HG
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	134
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	135	^ '$Changeset: <not expanded> $'
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	136	! !
43c941cacd43 Added test for -exec-run & -exec-interrupt Jan Vrany <jan.vrany@fit.cvut.cz> parents: 63 diff changeset	137

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 12 Jul 2017 16:27:29 +0200
changeset 86	7f53d51a0a65
parent 79	303c4edc75ad
child 87	50e80d25ea6f
permissions	-rw-r--r--