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()));
+		}
+	}
+}