X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/3760715f6e313ff90da32399fa1903c54f69d59b..e2531e837774276f6ffb3b284703c594644761f8:/csrc/pf_main.c

diff --git a/csrc/pf_main.c b/csrc/pf_main.c
index 71defbc..a973553 100644
--- a/csrc/pf_main.c
+++ b/csrc/pf_main.c
@@ -129,6 +129,14 @@ int main( int argc, char **argv )
 	DicName = NULL;
 #endif
 
+#ifdef PF_UNIT_TEST
+	if( (Result = pfUnitTest()) != 0 )
+	{
+		ERR(("pForth stopping on unit test failure.\n"));
+		goto on_error;
+	}
+#endif
+	
 	Result = pfDoForth( DicName, SourceName, IfInit);
 
 on_error: