Add more player tests.

Author: LeifAndersen

video/info.rkt

@@ -31,4 +31,5 @@
 ;; We do not use most of the 'datatype' fields directly,
 ;;   so don't count them in the line count.
 ;; This file WILL be run by inclusion with other modules.
-  '("private/ffmpeg/data.rkt"))
+  '("private/ffmpeg/data.rkt"
+    "private/ffmpeg/lib.rkt"))

video/private/video-canvas.rkt

@@ -196,7 +196,7 @@
                (set! buff (gen-vertex-buff vert-coords))
                (set! buff-id 0)
                (set! uv-buff (gen-vertex-buff uv-coords))
-               (set! buff-id 1)
+               (set! uv-id 1)
                ;; Set up a texture buffer (maybe run later)
                (set! tex-buff (gen-tex-buff))
                ;; Compile and run the shaders
@@ -381,7 +381,10 @@
                   (if play-audio?
                       (send audio-buffer add-frame out-frame)
                       (av-frame-free out-frame))
-                  (loop)))]
+                  (if (call-with-semaphore stop-writing-semaphore
+                                           (λ () (eq? stop-writing-flag 'running)))
+                      (loop)
+                      eof)))]
              [('audio 'close)
               (when (and play-audio? stop-audio)
                 (stop-audio))]
@@ -406,7 +409,8 @@
                              (ptr-add (array-ref (av-frame-data out-frame) 0)
                                       (* i linesize))))))
                   (av-frame-free out-frame)
-                  (when (call-with-semaphore stop-writing-semaphore
-                                             (λ () (eq? stop-writing-flag 'running)))
-                    (loop))))]
+                  (if (call-with-semaphore stop-writing-semaphore
+                                           (λ () (eq? stop-writing-flag 'running)))
+                      (loop)
+                      eof)))]
              [(_ _) (void)])])))))

video/tests/player.rkt

@@ -19,9 +19,13 @@
 (require rackunit
          racket/gui/base
          "../player.rkt"
+         "../base.rkt"
          "../private/video-canvas.rkt"
+         "../private/utils.rkt"
          (prefix-in green: "green.vid"))
 
+(define vid-mp4 (build-path video-dir "examples/vid.mp4"))
+
 (let ()
   (define f (new frame% [label "foo"]))
   (define c (new video-canvas%
@@ -52,3 +56,15 @@
   (define p (preview green:vid))
   (send p stop)
   (send p show #f))
+
+(let p ()
+  (define p (preview green:vid))
+  (sleep 3)
+  (send p stop)
+  (send p show #f))
+
+(let p ()
+  (define p (preview (clip vid-mp4)))
+  (sleep 3)
+  (send p stop)
+  (send p show #f))