On 29/05/2013 13:37, Ladislav Marek wrote:
It has been reported here
http://lists.gnu.org/archive/html/help-smalltalk/2011-07/msg00035.html
.
On Wed, May 29, 2013 at 10:29 AM, Holger Hans Peter Freyther
<[email protected]> wrote:
Issue status update for http://smalltalk.gnu.org/project/issue/770
Post a follow up: http://smalltalk.gnu.org/project/comments/add/770
Project: GNU Smalltalk
Version: <none>
Component: Base classes
Category: bug reports
Priority: normal
Assigned to: Unassigned
Reported by: MrGwen
Updated by: zecke
Status: active
We are playing ping-pong here. The +1 was changed to a -1 in
dd1f241bf27756bfa41057bc6368483dc25c3da7. This change doesn't have a
testcase and I couldn't find the bug description in the mailinglist
archive.
So by changing it back to +1 we will break something. So please create a
new testcase that shows your issue and can be used for regression
testing.
_______________________________________________
help-smalltalk mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/help-smalltalk
_______________________________________________
help-smalltalk mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/help-smalltalk
Add a test case in debug tool for the line number
>From 296127671ca80659b05cbf3fbe0e4ecff4012095 Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio <[email protected]>
Date: Tue, 4 Jun 2013 08:58:21 +0200
Subject: [PATCH] Add test case for the line number
---
packages/debug/ChangeLog | 4 ++++
packages/debug/debugtests.st | 15 +++++++++++++++
2 files changed, 19 insertions(+)
diff --git a/packages/debug/ChangeLog b/packages/debug/ChangeLog
index cffb9b4..af2a4f5 100644
--- a/packages/debug/ChangeLog
+++ b/packages/debug/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-04 Gwenael Casaccio <[email protected]>
+
+ * debugTest.st: Add a test case for the line number.
+
2011-07-27 Paolo Bonzini <[email protected]>
* DebugTools.st: Improve 2011-07-15 change to fix testsuite failures.
diff --git a/packages/debug/debugtests.st b/packages/debug/debugtests.st
index c1d142a..e1f6786 100644
--- a/packages/debug/debugtests.st
+++ b/packages/debug/debugtests.st
@@ -264,6 +264,21 @@ TestCase subclass: DebuggerTest [
self deny: notReached
]
+ testLineNumber [
+ " Test the current line number. "
+
+ <category: 'test'>
+ | debugger lines |
+
+ debugger := self debuggerOn:
+ [ 1 printString: 10 ].
+
+ lines := #(1 6 8).
+ 1 to: 3 do: [ :i |
+ debugger step.
+ self assert: debugger currentLine = (lines at: i) ].
+ ]
+
w [
<category: 'support'>
self x: [:foo | ^foo]
--
1.8.1.2
_______________________________________________
help-smalltalk mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/help-smalltalk
