Fixing copyStackToClipboard debugger action

pharo-spec · Jul 29, 2020 · 197c227 · 197c227
1 parent 4ccebb7
commit 197c227
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerTest.class.st
@@ -162,6 +162,16 @@ StDebuggerTest >> testContextUnchangedAfterStepOver [
 	self assert: dbg inspector inspectedObject ==  currentContext
 ]
 
+{ #category : #'tests - actions' }
+StDebuggerTest >> testCopyStackToClipboard [
+	debugger := self debuggerOn: session.
+	debugger copyStackToClipboard.
+	self
+		assert: Clipboard clipboardText string
+		equals: (String streamContents: [ :s | 
+				 session interruptedContext shortDebugStackOn: s ])
+]
+
 { #category : #'tests - initialization' }
 StDebuggerTest >> testDebuggerApplication [
 	self

diff --git a/src/NewTools-Debugger/StDebugger.class.st b/src/NewTools-Debugger/StDebugger.class.st
@@ -542,7 +542,7 @@ StDebugger >> context [
 
 { #category : #actions }
 StDebugger >> copyStackToClipboard [
-	self debuggerActionModel peelToFirstLike: self currentContext
+	self debuggerActionModel copyStackToClipboard
 ]
 
 { #category : #actions }