all messages for Guix-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#47379: "statfs" test in tests/syscall.scm fails with BTRFS file systems.
@ 2021-03-25  8:49 Maxime Devos
  2021-03-25 10:04 ` Efraim Flashner
  2021-03-26 12:22 ` raid5atemyhomework via Bug reports for GNU Guix
  0 siblings, 2 replies; 5+ messages in thread
From: Maxime Devos @ 2021-03-25  8:49 UTC (permalink / raw)
  To: 47379

[-- Attachment #1: Type: text/plain, Size: 1077 bytes --]

Hi Guix,

Version:
guix (GNU Guix) 1155a88308df7649fe74bd5bb8279a4d103ce386

The following test fails:

(start snip)
test-name: statfs
location: $HOME/guix/git/guix/tests/syscalls.scm:123
source:
+ (test-assert
+   "statfs"
+   (let ((fs (statfs "/")))
+     (and (file-system? fs)
+          (> (file-system-block-size fs) 0)
+          (>= (file-system-blocks-available fs) 0)
+          (>= (file-system-blocks-free fs)
+              (file-system-blocks-available fs)))))
actual-value: #f
result: FAIL
(end snip)

Evaluating (statfs "/") from a REPL gives:

scheme@(guix-user)> ((@ (guix build syscalls) statfs) "/")
$2 = #<<file-system> type: 2435016766 block-size: 4096 blocks: 244189696 blocks-free: 178549974 blocks-available: 178571318 files: 0 free-
files: 0 identifier: (1111009624 2088757363) name-length: 255 fragment-size: 4096 mount-flags: 1056 spare: (0 0 0 0)>

It seems the following does not hold on my system:
+          (>= (file-system-blocks-free fs)
+              (file-system-blocks-available fs))

Greetings, Maxime

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2021-03-26 12:23 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2021-03-25  8:49 bug#47379: "statfs" test in tests/syscall.scm fails with BTRFS file systems Maxime Devos
2021-03-25 10:04 ` Efraim Flashner
2021-03-25 10:16   ` Maxime Devos
2021-03-25 10:25     ` Efraim Flashner
2021-03-26 12:22 ` raid5atemyhomework via Bug reports for GNU Guix

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/guix.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.