test the PDF backend

1 files changed, 11 insertions, 3 deletions

diff --git a/test/basket.ml b/test/basket.ml
index 0001b07..d5d031f 100644
--- a/test/basket.ml
+++ b/test/basket.ml
@@ -50,9 +50,7 @@ let main =
 
   prerr_endline "PS" ;
   begin
-    let oc = open_out "basket.ps" in
-    let file = Cairo_channel.of_out_channel oc in
-    close_out oc ;
+    let file = Cairo_channel.open_out "basket.ps" in
     Cairo.set_target_ps c file x_inches y_inches x_ppi y_ppi ;
     draw ~print:true c ;
     Cairo.show_page c ;
@@ -60,6 +58,16 @@ let main =
     Cairo_channel.close file
   end ;
 
+  prerr_endline "PDF" ;
+  begin
+    let file = Cairo_channel.open_out "basket.pdf" in
+    Cairo.set_target_pdf c file x_inches y_inches x_ppi y_ppi ;
+    draw c ;
+    Cairo.show_page c ;
+    Cairo.finalise_target c ;
+    Cairo_channel.close file
+  end ;
+
   prerr_endline "Bigarray and PPM" ;
   begin
     let arr = Bigarray.Array2.create Bigarray.int Bigarray.c_layout