swflib/tagOutTest.ml

   1 open Base
   2 open OUnit
   3 open TagOut
   4
   5 let ok x y =
   6   assert_equal ~printer:Std.dump x @@ to_base y
   7
   8 let _ = begin "tagOut.ml" >::: [
   9   "End" >:: begin fun () ->
  10     ok (0,[]) `End
  11   end;
  12   "SetBackgroundColor" >:: begin fun () ->
  13     ok (9,[`RGB(0,1,2)]) @@ `SetBackgroundColor (0,1,2)
  14   end
  15 ] end +> run_test_tt_main