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