diff --git a/gui-test/tests/gracket/gif.rkt b/gui-test/tests/gracket/gif.rkt new file mode 100644 index 00000000..466a97f3 --- /dev/null +++ b/gui-test/tests/gracket/gif.rkt @@ -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)) +