diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2018-07-25 21:30:18 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2018-07-25 21:30:18 +0300 |
| commit | 95da60845127731f1395f8a7f5ab7e235aca5dfc (patch) | |
| tree | 0d2fec7b243b91ac7a5d6140d4edad52946174e6 /tests/store-database.scm | |
| parent | 2a43df2270345babd768b0057d3cccdf08398e77 (diff) | |
| parent | b19f3337eae86ad0cd910da45b9d45e3866c98fd (diff) | |
| download | patches-95da60845127731f1395f8a7f5ab7e235aca5dfc.tar patches-95da60845127731f1395f8a7f5ab7e235aca5dfc.tar.gz | |
Merge remote-tracking branch 'origin/master' into qt-updates
Diffstat (limited to 'tests/store-database.scm')
| -rw-r--r-- | tests/store-database.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/store-database.scm b/tests/store-database.scm index fcae66e2de..4d91884250 100644 --- a/tests/store-database.scm +++ b/tests/store-database.scm @@ -32,7 +32,8 @@ (test-begin "store-database") -(test-assert "register-path" +(test-equal "register-path" + '(1 1) (let ((file (string-append (%store-prefix) "/" (make-string 32 #\f) "-fake"))) (when (valid-path? %store file) @@ -50,7 +51,9 @@ (and (valid-path? %store file) (equal? (references %store file) (list ref)) (null? (valid-derivers %store file)) - (null? (referrers %store file)))))) + (null? (referrers %store file)) + (list (stat:mtime (lstat file)) + (stat:mtime (lstat ref))))))) (test-equal "new database" (list 1 2) |