changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/ffi/zstd/tests.lisp

changeset 394: a866723aac84
parent: 6b87df03cdaf
child: c40d2a41d7ce
author: Richard Westhaver <ellis@rwest.io>
date: Sat, 01 Jun 2024 19:16:02 -0400
permissions: -rw-r--r--
description: init qmp 
     1 ;;; zstd/tests.lisp --- Zstd FFI tests
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (defpackage :zstd/tests 
     7     (:use :cl :std :rt :zstd))
     8 
     9 (in-package :zstd/tests)
    10 
    11 (defsuite :zstd)
    12 (in-suite :zstd)
    13 
    14 (load-zstd)
    15 
    16 (deftest sanity ()
    17   (mapc (lambda (x)
    18           (is (= (car x) (cdr x))))
    19         `((,zstd::zstd-clevel-default . 3)
    20           (,zstd::zstd-magicnumber . -47205080)
    21           (,zstd::zstd-magic-skippable-start . 407710288)
    22           (,zstd::zstd-blocksizelog-max . 17)
    23           (,zstd::zstd-blocksize-max . 131072)
    24           (,zstd::zstd-contentsize-unknown . -1)
    25           (,zstd::zstd-contentsize-error . -2)
    26           (,zstd::zstd-max-input-size . -71777214294589696)
    27           (,zstd::zstd-version-number . (zstd::zstd-versionnumber))
    28           (,zstd::zstd-magic-dictionary . -332356553))))
    29 
    30 (deftest simple ()
    31   ;; (zstd::zstd-compress)
    32   ;; (zstd::zstd-decompress)
    33 )
    34 
    35 (deftest cstream ()
    36   (let ((ret 0)
    37         (in (zstd::allocate-zstd-inbuffer-s))
    38         (out (zstd::allocate-zstd-outbuffer-s))
    39         (cst (zstd::zstd-createcstream)))
    40     (setf ret (zstd::zstd-initcstream cst 9))
    41     (is (= 0 (zstd::zstd-iserror ret)))
    42     (zstd::zstd-compressstream cst out in)
    43     (is (= 0 (zstd::zstd-compressstream2 cst out in 0)))))