swflib/tagOutTest.ml

   1 open Base
   2 open OUnit
   3
   4 module T = TagOut.Make(struct
   5                          type t = int list
   6                          let write x = x
   7                        end)
   8
   9 let ok x y =
  10   assert_equal ~printer:Std.dump x @@ T.write y
  11
  12 let _ = begin "tagOut.ml" >::: [
  13   "End" >:: begin fun () ->
  14     ok (0,[]) `End
  15   end;
  16   "SetBackgroundColor" >:: begin fun () ->
  17     ok (9,[`RGB(0,1,2)]) @@ `SetBackgroundColor (0,1,2)
  18   end
  19 ] end +> run_test_tt_main