From 2a7cbbce055ee9d5e69d8c935fe28468627b2493 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sun, 2 Jun 2002 09:51:39 +0000
Subject: [PATCH] Test for AltD() behavior

---
 harbour/tests/altd.prg | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 harbour/tests/altd.prg

diff --git a/harbour/tests/altd.prg b/harbour/tests/altd.prg
new file mode 100644
index 0000000000..40437c0a04
--- /dev/null
+++ b/harbour/tests/altd.prg
@@ -0,0 +1,18 @@
+//
+// $Id
+//
+
+// Testing AltD()
+// Notice you have to compile it using /b
+
+function Main()
+
+   AltD( 1 )   // Enables the debugger. Press F5 to go
+
+   Alert( "debugger enabled" )
+
+   AltD()      // Invokes the debugger
+
+   Alert( "debugger invoked" )
+
+return nil
\ No newline at end of file