From c159d9873eb005f92650314f74139bd1fc87dc4b Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Thu, 16 Apr 1998 03:57:04 +0200
Subject: [PATCH] reverting testsuite
Rev: src/modules/Image/testsuite.in:1.7
---
src/modules/Image/testsuite.in | 83 ++++++++++++++++------------------
1 file changed, 40 insertions(+), 43 deletions(-)
diff --git a/src/modules/Image/testsuite.in b/src/modules/Image/testsuite.in
index a41a41ebe2..d2a508bf39 100644
--- a/src/modules/Image/testsuite.in
+++ b/src/modules/Image/testsuite.in
@@ -1,57 +1,54 @@
-// $Id: testsuite.in,v 1.6 1998/04/16 00:38:58 mirar Exp $
+// $Id: testsuite.in,v 1.7 1998/04/16 01:57:04 mirar Exp $
cond([[ master()->resolv("Image")->image ]],
[[
test_true(programp(Image.image))
test_true(objectp(clone(Image.image)))
- test_true(objectp(Image.image(,10,10)))
- test_true(objectp(Image.image(,10,10,1,1,1)))
- test_eq(Image.image(,10,12)->xsize(),10))
- test_eq(Image.image(,10,12)->ysize(),12))
- test_true(objectp(Image.image(,10,10,1,1,1)->copy()))
- test_eq(Image.image(,10,12)->copy()->xsize(),10))
- test_eq(Image.image(,10,12)->copy()->ysize(),12))
-dnl test_true(objectp(Image.image(,10,10)->crop(2,2,3,3)))
- test_true(objectp(Image.image(,10,10)->autocrop()))
- test_true(objectp(Image.image(,10,10)->gray()))
- test_true(objectp(Image.image(,10,10)->color(2,2,4)))
- test_true(objectp(Image.image(,10,10)->invert()))
- test_true(objectp(Image.image(,10,10)->threshold(10,20,30)))
+ test_true(objectp(clone(Image.image,10,10)))
+ test_true(objectp(clone(Image.image,10,10,1,1,1)))
+ test_eq(clone(Image.image,10,12)->xsize(),10))
+ test_eq(clone(Image.image,10,12)->ysize(),12))
+ test_true(objectp(clone(Image.image,10,10,1,1,1)->copy()))
+ test_eq(clone(Image.image,10,12)->copy()->xsize(),10))
+ test_eq(clone(Image.image,10,12)->copy()->ysize(),12))
+dnl test_true(objectp(clone(Image.image,10,10)->crop(2,2,3,3)))
+ test_true(objectp(clone(Image.image,10,10)->autocrop()))
+ test_true(objectp(clone(Image.image,10,10)->gray()))
+ test_true(objectp(clone(Image.image,10,10)->color(2,2,4)))
+ test_true(objectp(clone(Image.image,10,10)->invert()))
+ test_true(objectp(clone(Image.image,10,10)->threshold(10,20,30)))
dnl matrix
- test_true(objectp(Image.image(,10,10)->scale(2.1)))
- test_eq(Image.image(,10,12)->scale(2.0)->xsize(),20)
- test_eq(Image.image(,10,12)->scale(2.0)->ysize(),24)
- test_true(objectp(Image.image(,10,10)->scale(0.2)))
- test_true(objectp(Image.image(,10,10)->scale(2.0,0.2)))
- test_true(objectp(Image.image(,10,10)->scale(0.2,2.2)))
- test_true(objectp(Image.image(,10,10)->scale(0.2,2.2)))
- test_true(objectp(Image.image(,10,10)->scale(0.2,2.2)))
- test_eq(Image.image(,10,10)->scale(33,57)->xsize(),33)
- test_eq(Image.image(,10,10)->scale(33,57)->ysize(),57)
- test_true(stringp(Image.image(,10,10)->toppm()))
+ test_true(objectp(clone(Image.image,10,10)->scale(2.1)))
+ test_eq(clone(Image.image,10,12)->scale(2.0)->xsize(),20)
+ test_eq(clone(Image.image,10,12)->scale(2.0)->ysize(),24)
+ test_true(objectp(clone(Image.image,10,10)->scale(0.2)))
+ test_true(objectp(clone(Image.image,10,10)->scale(2.0,0.2)))
+ test_true(objectp(clone(Image.image,10,10)->scale(0.2,2.2)))
+ test_true(objectp(clone(Image.image,10,10)->scale(0.2,2.2)))
+ test_true(objectp(clone(Image.image,10,10)->scale(0.2,2.2)))
+ test_eq(clone(Image.image,10,10)->scale(33,57)->xsize(),33)
+ test_eq(clone(Image.image,10,10)->scale(33,57)->ysize(),57)
+ test_true(stringp(clone(Image.image,10,10)->toppm()))
dnl fromppm
- test_true(stringp(Image.image(,10,10)->toppm()))
- test_true(stringp(Image.image(,10,10)->togif()))
- test_true(objectp(Image.image(,10,10)->paste(Image.image(,3,3),2,3)))
+ test_true(stringp(clone(Image.image,10,10)->toppm()))
+ test_true(stringp(clone(Image.image,10,10)->togif()))
+ test_true(objectp(clone(Image.image,10,10)->paste(clone(Image.image,3,3),2,3)))
dnl past_alpha
dnl past_mask
- test_do(Image.image(,10,10)->setcolor(2,2,2))
- test_do(Image.image(,10,10)->setpixel(2,2,2,2,2))
- test_do(Image.image(,10,10)->line(2,2,4,4,2,2,2))
- test_do(Image.image(,10,10)->box(2,2,4,4,2,2,2))
- test_do(Image.image(,10,10)->circle(2,2,4,4,2,2,2))
+ test_do(clone(Image.image,10,10)->setcolor(2,2,2))
+ test_do(clone(Image.image,10,10)->setpixel(2,2,2,2,2))
+ test_do(clone(Image.image,10,10)->line(2,2,4,4,2,2,2))
+ test_do(clone(Image.image,10,10)->box(2,2,4,4,2,2,2))
+ test_do(clone(Image.image,10,10)->circle(2,2,4,4,2,2,2))
dnl tuned_box
- test_eq(Image.image(,10,10)->xsize(),10)
- test_eq(Image.image(,10,10)->ysize(),10)
+ test_eq(clone(Image.image,10,10)->xsize(),10)
+ test_eq(clone(Image.image,10,10)->ysize(),10)
test_do(clone(Image.font))
test_do(clone(Image.font)->load("SRCDIR/testfont"))
- test_any(object o=clone(Image.font); o->load("SRCDIR/testfont");
- return o->height(),
- 19)
- test_any(object o=clone(Image.font); o->load("SRCDIR/testfont");
- return o->write("foo")->xsize(),23)
- test_any(object o=clone(Image.font); o->load("SRCDIR/testfont");
- return o->write("foo")->ysize(),19)
-dnl test_any(object o=clone(Image.font); o->load("SRCDIR/testfont"); o->write("foo"); Image.image(,100,100)->paste_alpha(o); return 1,1)
+ test_any(object o=clone(Image.font); o->load("SRCDIR/testfont"); return o->height(),19)
+ test_any(object o=clone(Image.font); o->load("SRCDIR/testfont"); return o->write("foo")->xsize(),23)
+ test_any(object o=clone(Image.font); o->load("SRCDIR/testfont"); return
+o->write("foo")->ysize(),19)
+dnl test_any(object o=clone(Image.font); o->load("SRCDIR/testfont"); o->write("foo"); clone(Image.image,100,100)->paste_alpha(o); return 1,1)
]])
--
GitLab