From d091cc07a28e2b33a49afbf58543bc91c37446b5 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 29 Jun 2001 14:54:34 +0000
Subject: [PATCH] *** empty log message ***

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

diff --git a/harbour/tests/testprof.prg b/harbour/tests/testprof.prg
new file mode 100644
index 0000000000..cc5232af68
--- /dev/null
+++ b/harbour/tests/testprof.prg
@@ -0,0 +1,15 @@
+// Testing the Harbour profiler
+
+function Main()
+
+   local oGet := GetNew()
+   local oBrw := TBrowseNew()
+   local n
+
+   for n = 1 to 20000
+      oGet:row = 10
+   next
+
+   Profiler()  // look for a generated profiler.txt file on your disk
+
+return nil
\ No newline at end of file