From 551549241f05c84bd98b2a704a82ad3ebb737a30 Mon Sep 17 00:00:00 2001
From: josephlwharton <joseph@jwharton.com>
Date: Tue, 17 Mar 2026 03:45:33 +0000
Subject: [PATCH] Add Test code

---
 Test code | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 Test code

diff --git a/Test code b/Test code
new file mode 100644
index 0000000..4940244
--- /dev/null
+++ b/Test code	
@@ -0,0 +1,7 @@
+class procedure TedoInfo.Error( const aMsg: String = '' );
+begin
+  if ( aMsg = '' ) then
+    raise EedoInfoException.Create( SParsingError )
+  else
+    raise EedoInfoException.Create( aMsg );
+end;
\ No newline at end of file