--- a/tests/image_create.ml
+++ b/tests/image_create.ml
@@ -2,14 +2,15 @@ open Printf
 open Cairo
 open Bigarray
 
-let create() =
-  let data = Array1.create int8_unsigned c_layout 360_000 in
+let create data =
   Gc.finalise (fun _ -> eprintf "DESTROY bigarray 'data'\n%!") data;
   let surf = Image.create_for_data8 data Image.RGB24 ~w:300 ~h:300 in
   Cairo.create surf
 
+let data = Array1.create int8_unsigned c_layout 360_000;;
+
 let () =
-  let cr = create() in
+  let cr = create data in
   set_source_rgb cr 1. 1. 1.;
   rectangle cr 0. 0. ~w:300. ~h:300.;
   fill cr;