diff --git a/test/canvas_test.adb b/test/canvas_test.adb
index ef2d01db..2ec3bdf0 100644
--- a/test/canvas_test.adb
+++ b/test/canvas_test.adb
@@ -40,6 +40,7 @@ procedure Canvas_Test is
          Alternative_Text => "GNU GPL 3");
 
       C.Draw_Image (Img, 100, 10);
+      C.Draw_Image (Img, 400, 10, 40, 40);
    end On_Click;
 
    procedure On_Connect