guix - Wojtek's customized Guix

diff options

Diffstat (limited to 'gnu/services/samba.scm')

0 files changed, 0 insertions, 0 deletions

string-length (cut header-entry-value <>)) header-entries)))) (let ((index data (make-header-index+data header-entries))) (test-equal "header index" expected-header-index-length (length index)) ;; This test depends on the fact that only STRING entries are used, and that ;; they are composed of single byte characters and the delimiting null byte. (test-equal "header data" expected-header-data-length (length data))) (test-equal "complete header section" (+ 16 ;leading magic + count bytes expected-header-index-length expected-header-data-length) (length (make-header header-entries))) (test-end)


context:
space:
mode: