fix tagInTest

diff --git a/swflib/tagInTest.ml b/swflib/tagInTest.ml
index 5a787b8..16536cb 100644 (file)
--- a/swflib/tagInTest.ml
+++ b/swflib/tagInTest.ml
@@ -1,16 +1,16 @@
 open Base
 open OUnit
 
-let ok tag xs =
+let ok tag x xs =
   let s =
     Stream.of_list @@ SwfBaseOut.to_list xs in
-    assert_equal tag (TagIn.of_base s)
+    assert_equal tag (TagIn.of_base x s)
 
 let _ = begin "tagIn.ml" >::: [
   "End" >:: begin fun () ->
-    ok `End [`Ui8 0]
+    ok `End 0 []
   end;
   "SetBackgroundColor" >:: begin fun () ->
-    ok (`SetBackgroundColor (0,1,2)) [`Ui8 9; `RGB(0,1,2)]
+    ok (`SetBackgroundColor (0,1,2)) 9 [`RGB(0,1,2)]
   end
 ] end +> run_test_tt_main