steve
/
guile-flac
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

test reorg

main
Steve Ayerhart 2022-11-23 15:26:59 -05:00
parent e33460841b
commit e4e7d1172f
No known key found for this signature in database
GPG Key ID: 4CB33EB9BB156C97
3 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/flac/.gitignore vendored Normal file
View File

@ -0,0 +1 @@
version.scm

10
src/flac/tests/utils.scm
View File

@ -1,10 +0,0 @@
(define-module (flac tests utils)
#:use-module (srfi srfi-64)
#:export (with-tests))
(define-syntax-rule (with-tests name body ...)
(begin
(test-begin name)
body ...
(test-end name)))
; (exit (zero? (test-runner-fail-count (test-end name))))))

6
tests/rcf-examples.scm
View File

@ -10,6 +10,12 @@
#:use-module (srfi srfi-64)) #:use-module (srfi srfi-64))
(define-syntax-rule (with-tests name body ...)
(begin
(test-begin name)
body ...
(test-end name)))
(define-public example-1 (define-public example-1
#vu8(#x66 #x4c #x61 #x43 #x80 #x00 #x00 #x22 #x10 #x00 #x10 #x00 #vu8(#x66 #x4c #x61 #x43 #x80 #x00 #x00 #x22 #x10 #x00 #x10 #x00
#x00 #x00 #x0f #x00 #x00 #x0f #x0a #xc4 #x42 #xf0 #x00 #x00 #x00 #x00 #x0f #x00 #x00 #x0f #x0a #xc4 #x42 #xf0 #x00 #x00