On Sat, Oct 19, 2013 at 2:34 PM, Faré fahree@gmail.com wrote:
Now, it's possible that the test is failing to touch files in the cache the same way that they are used in the test, because of all the pathname normalizations that may happen, but that the discrepancy somehow only shows up on Windows.
The failure was happening on MacOS, Linux, and Windows --- not just on Windows.
Ahem. Maybe I could normalize this cache by using the namestring or native-namestring as the key, instead of the pathname object? Probably.
OK, done, please try again (sigh).
Starting from a fresh git clone of asdf (which was reliably producing the problem previously), now we don't get any failures with test-force.script on any platforms.
But I am still getting stamp-propagation failures on Windows with mlisp after having run mlisp8 (and I think it would also fail if running mlisp8 after mlisp). I will send the console output from that separately. I suspect this is indeed an issue with files left over after the run of mlisp polluting the mlisp8 run. I'll confirm that by clearing build/ before each run and see if the failures still occur.
Regarding the touching of files: does the below transcript look correct? (this is on CCL/Mac, and look at the bottom where i check the file-stamp after having done the touch-file):
bash-3.2$ /Users/dcooper8/genworks/cl-engines/ccl-mac-1.9/dx86cl64 --no-init --quiet Welcome to Clozure Common Lisp Version 1.9-r15759 (DarwinX8664)! ? (load "script-support.lisp") #P"/Users/dcooper8/genworks/cl/tests/asdf/asdf-macos/test/script-support.lisp" ? (asdf-test::da) #<Package "ASDF-TEST"> ? (load-asdf) ;Loading #P"/Users/dcooper8/genworks/cl/tests/asdf/asdf-macos/build/fasls/ccl/asdf.dx64fsl"...Configuring ASDF Enabling debugging Being a bit verbose Comparing directories *TEST-DIRECTORY* and X both evaluate to same path: #P"/Users/dcooper8/genworks/cl/tests/asdf/asdf-macos/test/" T ? (frob-packages) Frob packages T ? (load-system 'test-force) ;Loading #P"/Users/dcooper8/genworks/cl/tests/asdf/asdf-macos/test/test-force.asd"... ;Loading #P"/Users/dcooper8/genworks/cl/tests/asdf/asdf-macos/build/fasls/ccl-1.9-f96-macosx-x64/asdf/test/file1.dx64fsl"... T ? (defparameter file1 (test-fasl "file1")) FILE1 ? (defparameter file1-date (file-write-date file1)) FILE1-DATE ? (defparameter date1 (- file1-date 600)) DATE1 ? (defparameter date2 (- file1-date 300)) DATE2 ? file1 #P"/Users/dcooper8/genworks/cl/tests/asdf/asdf-macos/build/fasls/ccl-1.9-f96-macosx-x64/asdf/test/file1.dx64fsl" ? file1-date 3591196920 ? (file-write-date "test-force.asd") 3591196848 ? (get-file-stamp "test-force.asd") 3591196848 ? (asdf/cache:with-asdf-cache () (get-file-stamp "test-force.asd")) 3591196848 ? date1 3591196320 ? (asdf/cache:with-asdf-cache () (touch-file "test-force.asd" :timestamp date1)) 3591196320 ? (asdf/cache:with-asdf-cache () (get-file-stamp "test-force.asd")) 3591196848 ?