>From 296127671ca80659b05cbf3fbe0e4ecff4012095 Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio <address@hidden>
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 <address@hidden>
+
+        * debugtests.st: Add a test case for the line number.
+
 2011-07-27  Paolo Bonzini <address@hidden>
 
 	* 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