*** empty log message ***

2001-06-29 14:54:34 +00:00
parent 4aaada42f3
commit d091cc07a2
1 changed files with 15 additions and 0 deletions
--- a/harbour/tests/testprof.prg
+++ 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