fixed some borked stuff

matortheeternal · May 3, 2018 · 0ffe08e · 0ffe08e
1 parent 12b904f
commit 0ffe08e
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/lib/xedit/wbImplementation.pas b/lib/xedit/wbImplementation.pas
@@ -5276,7 +5276,7 @@ function TwbContainer.ResolveFirstElement(var aName: string): IwbElement;
       Result := GetElementByName(aFName);
   end
   else
-    Result := GetElementByName(aName);
+    Result := GetElementByName(aFName);
 end;
 
 function TwbContainer.ResolveElementName(aName: string; out aRemainingName: string; aCanCreate: Boolean = False): IwbElement;

diff --git a/src/xeFiles.pas b/src/xeFiles.pas
@@ -257,7 +257,7 @@ function SaveFile(_id: Cardinal; filePath: PWideChar): WordBool; cdecl;
     FileStream := TFileStream.Create(path, fmCreate);
     try
       _file.WriteToStream(FileStream, False);
-      slSavedFiles.Add(path);
+      if filePath = '' then slSavedFiles.Add(path);
       Result := True;
     finally
       FileStream.Free;

diff --git a/tests/txFiles.pas b/tests/txFiles.pas
@@ -130,7 +130,7 @@ procedure BuildFileHandlingTests;
 
           It('Should return 0 for a plugin with no records', procedure
             begin
-              ExpectSuccess(FileByName('xtest-1.esp', @h));
+              ExpectSuccess(FileByName('xtest-5.esp', @h));
               ExpectSuccess(GetOverrideRecordCount(h, @count));
               ExpectEqual(count, 0);
             end);

diff --git a/tests/txRecords.pas b/tests/txRecords.pas
@@ -137,7 +137,7 @@ procedure TestGetConflictData(nodes, element: Cardinal; path: PWideChar; ca: TCo
 procedure BuildRecordHandlingTests;
 var
   b: WordBool;
-  skyrim, armo, ar1, dnam, xt1, xt2, xt4, ar2, ar3, kw1, kw2, kw3, h, n1, n2, n3, n4: Cardinal;
+  skyrim, armo, ar1, dnam, xt1, xt2, xt4, ar2, ar3, kw1, kw2, kw3, h, n1, n2, n3: Cardinal;
 begin
   Describe('Record Handling', procedure
     begin