suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

start test suite for file/gif

Browse Source 
This test belongs in a "draw-test" package, which doesn't exist yet,
because the old drawing tests also rely on a GUI; I'll fix that
eventually.
This commit is contained in:
Matthew Flatt 2015-06-17 09:31:42 +08:00
parent a5d55ff817
commit a2152d5666
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gui-test/tests/gracket/gif.rkt Normal file
View File

@ -0,0 +1,10 @@
#lang racket/base
(require file/gif
rackunit)
(define g (gif-start (open-output-bytes) 10 10 0 #f))
(check-equal? #t (gif-stream? g))
(check-equal? #t (image-ready-gif-stream? g))
(check-equal? #t (image-or-control-ready-gif-stream? g))
(check-equal? #t (empty-gif-stream? g))