Update Server.pb, Object.pbi, kidney.ini, and 3 more files

core/server/Server.pb

@@ -2,19 +2,65 @@
 ;- Compiler Directives
 EnableExplicit
 
-
-XIncludeFile "../Commons/HashMap/HashMap.pbi"
+;XIncludeFile "../Commons/HashMap/HashMap.pbi"
+XIncludeFile "./test/Object.pbi"
 
 
+#DefsFolder = "C:\Users\Herwin\Desktop\Projects\Yass13"
 
 
+;- Tests
+
+; Parses every definition file in the given folder, returns #False if any of them failed.
+Procedure.b Test_ParseDefsFolder(Folder.s)
+    Protected Directory.i
+    Protected FilePath.s
+    Protected *Object.YassObject
+    Protected Success.b = #True
+    
+    Directory = ExamineDirectory(#PB_Any, Folder, "*.ini")
+    If Not Directory
+        PrintN("FAIL: Can't examine folder: " + Folder)
+        ProcedureReturn #False
+    EndIf
+    
+    While NextDirectoryEntry(Directory)
+        If DirectoryEntryType(Directory) <> #PB_DirectoryEntry_File
+            Continue
+        EndIf
+        
+        FilePath = Folder + DirectoryEntryName(Directory)
+        *Object = FromDefinitionFile(FilePath)
+        
+        If *Object = #Null
+            PrintN("FAIL: " + FilePath)
+            Success = #False
+        Else
+            PrintN("OK:   " + FilePath + " -> '" + *Object\Id + "' (" + *Object\Type + ")")
+            FreeYassObject(*Object)
+        EndIf
+    Wend
+    
+    FinishDirectory(Directory)
+    ProcedureReturn Success
+EndProcedure
+
+
+;- Entry Point
+
 If Not OpenConsole("YASS13")
     DebuggerError("Failed to open console !")    
     End 1
 EndIf
 
+Define TestsPassed.b = #True
+If Not Test_ParseDefsFolder(#DefsFolder + "\defs\items\") : TestsPassed = #False : EndIf
+If Not Test_ParseDefsFolder(#DefsFolder + "\defs\reagents\") : TestsPassed = #False : EndIf
 
-
+If Not TestsPassed
+    DebuggerError("Definition parsing tests failed !")
+    End 1
+EndIf
 
 
 Debug "Done :)"