diff --git a/src/modules/image/testsuite.in b/src/modules/image/testsuite.in
index 8cd786cdcf69e8b98522ccb2c53792212a991590..89e03ea5248fb2eaaeac40be03f59f02d8c03456 100644
--- a/src/modules/image/testsuite.in
+++ b/src/modules/image/testsuite.in
@@ -4,7 +4,11 @@ cond([[ master()->programs["/precompiled/image"] ]],
   test_true(objectp(clone(Image)))
   test_true(objectp(clone(Image)->new(10,10)))
   test_true(objectp(clone(Image)->new(10,10,1,1,1)))
+  test_eq(clone(Image)->new(10,12)->xsize(),10))
+  test_eq(clone(Image)->new(10,12)->ysize(),12))
   test_true(objectp(clone(Image)->new(10,10,1,1,1)->copy()))
+  test_eq(clone(Image)->new(10,12)->copy()->xsize(),10))
+  test_eq(clone(Image)->new(10,12)->copy()->ysize(),12))
   test_true(objectp(clone(Image)->new(10,10)->crop(2,2,3,3)))
   test_true(objectp(clone(Image)->new(10,10)->autocrop()))
   test_true(objectp(clone(Image)->new(10,10)->gray()))
@@ -13,11 +17,15 @@ cond([[ master()->programs["/precompiled/image"] ]],
   test_true(objectp(clone(Image)->new(10,10)->threshold(10,20,30)))
 dnl matrix
   test_true(objectp(clone(Image)->new(10,10)->scale(2.1)))
+  test_eq(clone(Image)->new(10,12)->scale(2.0)->xsize(),20)
+  test_eq(clone(Image)->new(10,12)->scale(2.0)->ysize(),24)
   test_true(objectp(clone(Image)->new(10,10)->scale(0.2)))
   test_true(objectp(clone(Image)->new(10,10)->scale(2.0,0.2)))
   test_true(objectp(clone(Image)->new(10,10)->scale(0.2,2.2)))
   test_true(objectp(clone(Image)->new(10,10)->scale(0.2,2.2)))
   test_true(objectp(clone(Image)->new(10,10)->scale(0.2,2.2)))
+  test_eq(clone(Image)->new(10,10)->scale(33,57)->xsize(),33)
+  test_eq(clone(Image)->new(10,10)->scale(33,57)->ysize(),57)
   test_true(stringp(clone(Image)->new(10,10)->toppm()))
 dnl fromppm
   test_true(stringp(clone(Image)->new(10,10)->toppm()))
@@ -33,4 +41,11 @@ dnl past_mask
 dnl tuned_box
   test_eq(clone(Image)->new(10,10)->xsize(),10)
   test_eq(clone(Image)->new(10,10)->ysize(),10)
-]])
\ No newline at end of file
+  test_do(clone(Font))
+  test_do(clone(Font)->load("SRCDIR/testfont"))
+  test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->height(),19)
+  test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->write("foo")->xsize(),23)
+  test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->write("foo")->ysize(),19)
+dnl  test_any(object o=clone(Font); o->load("SRCDIR/testfont"); o->write("foo"); clone(Image)->new(100,100)->paste_alpha(o); return 1,1)
+]])
+