Skip to content
Snippets Groups Projects
Commit aa556032 authored by Fredrik Hübinette (Hubbe)'s avatar Fredrik Hübinette (Hubbe)
Browse files

more tests added 

Rev: src/modules/image/testsuite.in:1.3
parent f7b6bada
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
src/modules/image/testsuite.in
+ 16
− 1
View file @ aa556032
...@@ -4,7 +4,11 @@ cond([[ master()->programs["/precompiled/image"] ]], ...@@ -4,7 +4,11 @@ cond([[ master()->programs["/precompiled/image"] ]],
test_true(objectp(clone(Image))) test_true(objectp(clone(Image)))
test_true(objectp(clone(Image)->new(10,10))) test_true(objectp(clone(Image)->new(10,10)))
test_true(objectp(clone(Image)->new(10,10,1,1,1))) 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_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)->crop(2,2,3,3)))
test_true(objectp(clone(Image)->new(10,10)->autocrop())) test_true(objectp(clone(Image)->new(10,10)->autocrop()))
test_true(objectp(clone(Image)->new(10,10)->gray())) test_true(objectp(clone(Image)->new(10,10)->gray()))
...@@ -13,11 +17,15 @@ cond([[ master()->programs["/precompiled/image"] ]], ...@@ -13,11 +17,15 @@ cond([[ master()->programs["/precompiled/image"] ]],
test_true(objectp(clone(Image)->new(10,10)->threshold(10,20,30))) test_true(objectp(clone(Image)->new(10,10)->threshold(10,20,30)))
dnl matrix dnl matrix
test_true(objectp(clone(Image)->new(10,10)->scale(2.1))) 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(0.2)))
test_true(objectp(clone(Image)->new(10,10)->scale(2.0,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_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())) test_true(stringp(clone(Image)->new(10,10)->toppm()))
dnl fromppm dnl fromppm
test_true(stringp(clone(Image)->new(10,10)->toppm())) test_true(stringp(clone(Image)->new(10,10)->toppm()))
...@@ -33,4 +41,11 @@ dnl past_mask ...@@ -33,4 +41,11 @@ dnl past_mask
dnl tuned_box dnl tuned_box
test_eq(clone(Image)->new(10,10)->xsize(),10) test_eq(clone(Image)->new(10,10)->xsize(),10)
test_eq(clone(Image)->new(10,10)->ysize(),10) test_eq(clone(Image)->new(10,10)->ysize(),10)
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)
]]) ]])
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment