Extend tests.

Author: LeifAndersen

video/private/mlt.rkt

@@ -226,9 +226,9 @@
   ([producer _mlt-producer-pointer/null]
    [event _mlt-event/null]))
 (define-cstruct (_mlt-multitrack _mlt-producer)
-   ([list* _mlt-track-pointer]
-   [size* _int]
-   [count* _int]))
+   ([list* _mlt-track-pointer/null]
+    [size* _int]
+    [count* _int]))
 
 ;; Factory
 (define-mlt* mlt-factory-init (_fun _path -> [v : _mlt-repository/null]

video/tests/mlt.rkt

@@ -52,10 +52,6 @@
 
 (let ()
   (define prof (mlt-profile-init #f))
-  (define prod
-    (mlt-factory-producer prof #f "color:green"))
-  (define props
-    (mlt-producer-properties prod))
   (set-mlt-profile-description! prof #f)
   (set-mlt-profile-progressive! prof 1)
   (set-mlt-profile-sample-aspect-num! prof 1)
@@ -64,8 +60,44 @@
   (set-mlt-profile-display-aspect-den! prof 1)
   (set-mlt-profile-colorspace! prof 1)
   (set-mlt-profile-is-explicit! prof 1)
-  (set-mlt-properties-child! props #f)
-  (set-mlt-properties-local! props #f)
-  (set-mlt-properties-close-object! props #f)
-  (mlt-producer-close prod)
-  (mlt-profile-close prof))
+  (let ()
+    (define prod
+      (mlt-factory-producer prof #f "color:green"))
+    (define props
+      (mlt-producer-properties prod))
+    (set-mlt-properties-child! props #f)
+    (set-mlt-properties-local! props #f)
+    (set-mlt-properties-close-object! props #f)
+    (mlt-producer-close prod))
+  (let ()
+    (define track (mlt-tractor-new))
+    (define mtt (mlt-tractor-multitrack track))
+    (set-mlt-multitrack-list*! mtt #f)
+    (set-mlt-multitrack-size*! mtt 0)
+    (set-mlt-multitrack-count*! mtt 0)
+    (mlt-tractor-close track))
+  (let ()
+    (define pl (mlt-playlist-init))
+    (set-mlt-playlist-blank*! pl (mlt-playlist-blank* pl))
+    (set-mlt-playlist-size*! pl 0)
+    (set-mlt-playlist-count*! pl 0)
+    (set-mlt-playlist-list*! pl (mlt-playlist-list* pl))
+    (define prod (mlt-factory-producer prof #f "color:red"))
+    (mlt-playlist-append pl prod)
+    (define pinfo (mlt-playlist-get-clip-info pl 0))
+    (set-mlt-playlist-clip-info-clip! pinfo 0)
+    (set-mlt-playlist-clip-info-producer! pinfo (mlt-playlist-clip-info-producer pinfo))
+    (set-mlt-playlist-clip-info-cut! pinfo #f)
+    (set-mlt-playlist-clip-info-start! pinfo 0)
+    (set-mlt-playlist-clip-info-resource! pinfo #f)
+    (set-mlt-playlist-clip-info-frame-in! pinfo 0)
+    (set-mlt-playlist-clip-info-frame-out! pinfo 0)
+    (set-mlt-playlist-clip-info-frame-count! pinfo 0)
+    (set-mlt-playlist-clip-info-length! pinfo 0)
+    (set-mlt-playlist-clip-info-fps! pinfo 0.0)
+    (set-mlt-playlist-clip-info-repeate! pinfo 0)
+    (mlt-playlist-clear pl)
+    (mlt-producer-close prod)
+    (mlt-playlist-close pl)
+    (mlt-profile-close prof)))
+