From aa55603235757469380be42531a4e391b9a0a2b9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 27 Sep 1996 01:56:01 +0200
Subject: [PATCH] more tests added
Rev: src/modules/image/testsuite.in:1.3
---
src/modules/image/testsuite.in | 17 ++++++++++++++++-
1 file changed, 16 insertions(+), 1 deletion(-)
diff --git a/src/modules/image/testsuite.in b/src/modules/image/testsuite.in
index 8cd786cdcf..89e03ea524 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)
+]])
+
--
GitLab