<commit_before>Class {
	#name : #InfiniteDebuggerTest,
	#superclass : #TestCase,
	#category : #'GT-Tests-Debugger'
}

{ #category : #running }
InfiniteDebuggerTest >> runCaseManaged [
	
	self runCase
]

{ #category : #tests }
InfiniteDebuggerTest >> testTestInfinitDebugger [
	| preWindow debugButton debugWindow overButton |

	[ TestClassForTestingDebugger debug: #bla ] forkAt: 41.

	1000 milliSecond asDelay wait.
	World doOneCycle.
	preWindow := (World allMorphs
		select: [ :e | (e isKindOf: SystemWindow) and: [ e label beginsWith: 'Instance of ' ] ])
		first.
	debugButton := (preWindow allMorphs
		select: [ :e | (e isKindOf: PluggableButtonMorph) and: [ e label = 'Debug' ] ]) first.
	debugButton performAction.
	preWindow := nil.
	debugButton := nil.
	100 milliSecond asDelay wait.
	World doOneCycle.
	debugWindow := (World allMorphs
		select: [ :e | (e isKindOf: SystemWindow) and: [ e label beginsWith: 'Instance of Test' ] ])
		first.
	overButton := (debugWindow allMorphs
		select: [ :e | (e isKindOf: GLMPluggableButtonMorph) and: [ e label = 'Over' ] ]) first.

	overButton performAction.
	100 milliSecond asDelay wait.
	World doOneCycle.
	
]<commit_msg>Adding expected failure.<commit_after>Class {
	#name : #InfiniteDebuggerTest,
	#superclass : #TestCase,
	#category : #'GT-Tests-Debugger'
}

{ #category : #running }
InfiniteDebuggerTest >> runCaseManaged [
	
	self runCase
]

{ #category : #tests }
InfiniteDebuggerTest >> testTestInfinitDebugger [
	| preWindow debugButton debugWindow overButton process |
	<expectedFailure>
	
	process := [ TestClassForTestingDebugger debug: #bla ] forkAt: 41.

	1000 milliSecond asDelay wait.
	World doOneCycle.
	preWindow := (World allMorphs
		select: [ :e | (e isKindOf: SystemWindow) and: [ e label beginsWith: 'Instance of ' ] ])
		first.
	debugButton := (preWindow allMorphs
		select: [ :e | (e isKindOf: PluggableButtonMorph) and: [ e label = 'Debug' ] ]) first.
	debugButton performAction.
	preWindow := nil.
	debugButton := nil.
	100 milliSecond asDelay wait.
	World doOneCycle.
	debugWindow := (World allMorphs
		select: [ :e | (e isKindOf: SystemWindow) and: [ e label beginsWith: 'Instance of Test' ] ])
		first.
	overButton := (debugWindow allMorphs
		select: [ :e | (e isKindOf: GLMPluggableButtonMorph) and: [ e label = 'Over' ] ]) first.

	overButton performAction.
	100 milliSecond asDelay wait.
	World doOneCycle.

	process terminate.	
	debugWindow close.

]
{'fraction_non_alphanumeric': 0.11476758535582066, 'fraction_numerical': 0.009872480460715755, 'mean_word_length': 4.392461197339246, 'pattern_counts': {'":': 0, '<': 4, '<?xml version=': 0, '>': 12, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5895095', 'n_tokens_mistral': 866, 'n_tokens_neox': 830, 'n_words': 227}