From e2ab76cef9299489e3f09646d32963dd75d5e8a0 Mon Sep 17 00:00:00 2001
From: Mirek Fidler <mirek.fidler@gmail.com>
Date: Mon, 30 Sep 2024 09:13:33 +0200
Subject: [PATCH] .upptst

---
 upptst/ChCacheTest/ChCacheTest.upp |  9 +++++++++
 upptst/ChCacheTest/main.cpp        | 18 ++++++++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 upptst/ChCacheTest/ChCacheTest.upp
 create mode 100644 upptst/ChCacheTest/main.cpp

diff --git a/upptst/ChCacheTest/ChCacheTest.upp b/upptst/ChCacheTest/ChCacheTest.upp
new file mode 100644
index 000000000..5872304d3
--- /dev/null
+++ b/upptst/ChCacheTest/ChCacheTest.upp
@@ -0,0 +1,9 @@
+uses
+	CtrlLib;
+
+file
+	main.cpp;
+
+mainconfig
+	"" = "GUI";
+
diff --git a/upptst/ChCacheTest/main.cpp b/upptst/ChCacheTest/main.cpp
new file mode 100644
index 000000000..99b51e159
--- /dev/null
+++ b/upptst/ChCacheTest/main.cpp
@@ -0,0 +1,18 @@
+#include <CtrlLib/CtrlLib.h>
+
+using namespace Upp;
+
+
+GUI_APP_MAIN
+{
+	for(;;) {
+		Progress progress;
+		progress.Create();
+		progress.SetTotal(20000);
+		for(int i=0;i<20000;i++){
+			if(progress.Canceled()) return;
+			progress.SetPos(i);
+			progress.SetText(Format("MemoryUsedKb %d", MemoryUsedKb()));
+		}
+	}
+}