FIX: retain setting the date value when querying file/dir ports as …

…an object (for backwards compatibility)
Oldes · Jul 19, 2024 · d6c8994 · d6c8994
1 parent b9932bf
commit d6c8994
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/core/p-file.c b/src/core/p-file.c
@@ -205,6 +205,7 @@
 		Set_File_Mode_Value(file, SYM_CREATED,  OFV(obj, STD_FILE_INFO_CREATED));
 		Set_File_Mode_Value(file, SYM_ACCESSED, OFV(obj, STD_FILE_INFO_ACCESSED));
 		Set_File_Mode_Value(file, SYM_MODIFIED, OFV(obj, STD_FILE_INFO_MODIFIED));
+		Set_File_Mode_Value(file, SYM_DATE, OFV(obj, STD_FILE_INFO_MODIFIED)); // for backward compatibility
 		SET_OBJECT(ret, obj);
 	}
 }

diff --git a/src/tests/units/port-test.r3 b/src/tests/units/port-test.r3
@@ -206,10 +206,10 @@ if system/platform = 'Windows [
 		--assert info/type = 'dir
 		--assert none? info/size
 		either system/platform = 'Windows [
-			--assert none? info/date
+			--assert none? info/modified
 		][
 			; on linux %/ is just a normal directory root
-			--assert date? info/date
+			--assert date? info/modified
 		]
 
 	--test-- "unicode directory"