From a2152d5666a06d9a3fc7f1616ba48596d939d02d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 17 Jun 2015 09:31:42 +0800
Subject: [PATCH] start test suite for `file/gif`

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.
---
 gui-test/tests/gracket/gif.rkt | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 gui-test/tests/gracket/gif.rkt

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))
+