diff --git a/upptst/PdfText/PdfText.cpp b/upptst/PdfText/PdfText.cpp
new file mode 100644
index 000000000..2b52cb26f
--- /dev/null
+++ b/upptst/PdfText/PdfText.cpp
@@ -0,0 +1,33 @@
+#include <PdfDraw/PdfDraw.h>
+
+using namespace Upp;
+
+CONSOLE_APP_MAIN
+{
+	PdfDraw pdf;
+	int cy = 0;
+	for(int face = Font::SERIF; face < min(9, Font::GetFaceCount()); face++)
+//	int face = 6;
+		for(int strikeout = 0; strikeout < 2; strikeout++)
+			for(int underline = 0; underline < 2; underline++)
+				for(int italic = 0; italic < 2; italic++)
+					for(int bold = 0; bold < 2; bold++) {
+						Font fnt(face, 100);
+						fnt.Bold(bold).Italic(italic).Underline(underline).Strikeout(strikeout);
+						Cout() << fnt << "\n";
+						LOG(face << ' ' << fnt << ", TTF: " << fnt.IsTrueType());
+						if(1 || fnt.IsTrueType()) {
+							pdf.DrawText(100, cy, AsString(fnt), fnt, Black);
+							pdf.DrawText(2000, cy, 200, AsString(fnt), fnt, Black);
+							cy += fnt.GetLineHeight();
+							if(cy > 6000) {
+								pdf.EndPage();
+								pdf.StartPage();
+								cy = 0;
+							}
+						}
+					}
+	String p = GetHomeDirFile("pdf.pdf");
+	SaveFile(p, pdf.Finish());
+	LaunchWebBrowser(p);
+}
diff --git a/upptst/PdfText/PdfText.upp b/upptst/PdfText/PdfText.upp
new file mode 100644
index 000000000..b22df9307
--- /dev/null
+++ b/upptst/PdfText/PdfText.upp
@@ -0,0 +1,10 @@
+uses
+	Core,
+	PdfDraw;
+
+file
+	PdfText.cpp;
+
+mainconfig
+	"" = "";
+
diff --git a/upptst/PdfText/init b/upptst/PdfText/init
new file mode 100644
index 000000000..257b2ecee
--- /dev/null
+++ b/upptst/PdfText/init
@@ -0,0 +1,5 @@
+#ifndef _PdfText_icpp_init_stub
+#define _PdfText_icpp_init_stub
+#include "Core/init"
+#include "PdfDraw/init"
+#endif
diff --git a/upptst/PdfUrl/PdfUrl.cpp b/upptst/PdfUrl/PdfUrl.cpp
new file mode 100644
index 000000000..f0b964d45
--- /dev/null
+++ b/upptst/PdfUrl/PdfUrl.cpp
@@ -0,0 +1,11 @@
+#include <PdfDraw/PdfDraw.h>
+#include <RichText/RichText.h>
+
+using namespace Upp;
+
+CONSOLE_APP_MAIN
+{
+	String p = GetHomeDirFile("pdf.pdf");
+	SaveFile(p, Pdf(ParseQTF("This is some [^http://www.ultimatepp.org/forums^ LINK]!!!")));
+	LaunchWebBrowser(p);
+}
diff --git a/upptst/PdfUrl/PdfUrl.upp b/upptst/PdfUrl/PdfUrl.upp
new file mode 100644
index 000000000..f2f706823
--- /dev/null
+++ b/upptst/PdfUrl/PdfUrl.upp
@@ -0,0 +1,11 @@
+uses
+	Core,
+	RichText,
+	PdfDraw;
+
+file
+	PdfUrl.cpp;
+
+mainconfig
+	"" = "";
+
diff --git a/upptst/PdfUrl/init b/upptst/PdfUrl/init
new file mode 100644
index 000000000..c53207cb0
--- /dev/null
+++ b/upptst/PdfUrl/init
@@ -0,0 +1,6 @@
+#ifndef _PdfUrl_icpp_init_stub
+#define _PdfUrl_icpp_init_stub
+#include "Core/init"
+#include "RichText/init"
+#include "PdfDraw/init"
+#endif