changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate 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
394
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
1 
 ;;; zstd/tests.lisp --- Zstd FFI tests
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
2 
 
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
3 
 ;;
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
4 
 
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
5 
 ;;; Code:
60
ee94191a3fb0 add zstd, todos
ellis <ellis@rwest.io>
parents:
diff changeset
6 
 (defpackage :zstd/tests
394
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
7 
     (:use :cl :std :rt :zstd))
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
8 
 
60
ee94191a3fb0 add zstd, todos
ellis <ellis@rwest.io>
parents:
diff changeset
9 
 (in-package :zstd/tests)
394
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
10 
 
60
ee94191a3fb0 add zstd, todos
ellis <ellis@rwest.io>
parents:
diff changeset
11 
 (defsuite :zstd)
ee94191a3fb0 add zstd, todos
ellis <ellis@rwest.io>
parents:
diff changeset
12 
 (in-suite :zstd)
394
a866723aac84 init qmp
Richard Westhaver <ellis@rwest.io>
parents: 393
diff changeset
13 
 
391
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
14 
 (load-zstd)
393
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
15 
 
391
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
16 
 (deftest sanity ()
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
17 
   (mapc (lambda (x)
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
18 
           (is (= (car x) (cdr x))))
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
19 
         `((,zstd::zstd-clevel-default . 3)
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
20 
           (,zstd::zstd-magicnumber . -47205080)
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
21 
           (,zstd::zstd-magic-skippable-start . 407710288)
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
22 
           (,zstd::zstd-blocksizelog-max . 17)
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
23 
           (,zstd::zstd-blocksize-max . 131072)
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
24 
           (,zstd::zstd-contentsize-unknown . -1)
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
25 
           (,zstd::zstd-contentsize-error . -2)
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
26 
           (,zstd::zstd-max-input-size . -71777214294589696)
393
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
27 
           (,zstd::zstd-version-number . (zstd::zstd-versionnumber))
391
757b91ddcb2a zstd init
Richard Westhaver <ellis@rwest.io>
parents: 388
diff changeset
28 
           (,zstd::zstd-magic-dictionary . -332356553))))
393
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
29 
 
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
30 
 (deftest simple ()
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
31 
   ;; (zstd::zstd-compress)
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
32 
   ;; (zstd::zstd-decompress)
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
33 
 )
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
34 
 
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
35 
 (deftest cstream ()
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
36 
   (let ((ret 0)
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
37 
         (in (zstd::allocate-zstd-inbuffer-s))
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
38 
         (out (zstd::allocate-zstd-outbuffer-s))
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
39 
         (cst (zstd::zstd-createcstream)))
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
40 
     (setf ret (zstd::zstd-initcstream cst 9))
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
41 
     (is (= 0 (zstd::zstd-iserror ret)))
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
42 
     (zstd::zstd-compressstream cst out in)
6b87df03cdaf init cli/tools/cc.lisp for grovel experiments, add zstd tests
Richard Westhaver <ellis@rwest.io>
parents: 391
diff changeset
43 
     (is (= 0 (zstd::zstd-compressstream2 cst out in 0)))))