commit 551549241f05c84bd98b2a704a82ad3ebb737a30
Author: josephlwharton <joseph@jwharton.com>
Date:   Tue Mar 17 03:45:33 2026 +0000

    Add 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