]>
Commit | Line | Data |
---|---|---|
36eacc67 TC |
1 | #!perl -w |
2 | use strict; | |
88cc3fed TC |
3 | use Test::More; |
4 | use Imager; | |
02d1d628 | 5 | |
88cc3fed TC |
6 | eval "use Affix::Infix2Postfix; 1;" |
7 | or plan skip_all => "No Affix::Infix2Postfix"; | |
8 | ||
1136f089 | 9 | plan tests => 8; |
02d1d628 AMH |
10 | |
11 | #$Imager::DEBUG=1; | |
12 | ||
40e78f96 TC |
13 | -d "testout" or mkdir "testout"; |
14 | ||
36eacc67 | 15 | Imager->open_log('log'=>'testout/t55trans.log'); |
02d1d628 | 16 | |
36eacc67 | 17 | my $img=Imager->new(); |
02d1d628 | 18 | |
36eacc67 TC |
19 | SKIP: |
20 | { | |
21 | ok($img, "make image object") | |
22 | or skip("can't make image object", 5); | |
02d1d628 | 23 | |
36eacc67 TC |
24 | ok($img->open(file=>'testimg/scale.ppm',type=>'pnm'), |
25 | "read sample image") | |
26 | or skip("couldn't load test image", 4); | |
02d1d628 | 27 | |
36eacc67 TC |
28 | SKIP: |
29 | { | |
30 | my $nimg=$img->transform(xexpr=>'x',yexpr=>'y+10*sin((x+y)/10)'); | |
31 | ok($nimg, "do transformation") | |
32 | or skip ( "warning ".$img->errstr, 1 ); | |
02d1d628 | 33 | |
36eacc67 | 34 | # xopcodes=>[qw( x y Add)],yopcodes=>[qw( x y Sub)],parm=>[] |
02d1d628 | 35 | |
36eacc67 TC |
36 | ok($nimg->write(type=>'pnm',file=>'testout/t55.ppm'), "save to file"); |
37 | } | |
02d1d628 | 38 | |
36eacc67 TC |
39 | SKIP: |
40 | { | |
41 | my $nimg=$img->transform(xexpr=>'x+0.1*y+5*sin(y/10.0+1.57)', | |
42 | yexpr=>'y+10*sin((x+y-0.785)/10)'); | |
43 | ok($nimg, "more complex transform") | |
44 | or skip("couldn't make image", 1); | |
02d1d628 | 45 | |
36eacc67 TC |
46 | ok($nimg->write(type=>'pnm',file=>'testout/t55b.ppm'), "save to file"); |
47 | } | |
02d1d628 | 48 | } |
02d1d628 | 49 | |
1136f089 TC |
50 | { |
51 | my $empty = Imager->new; | |
52 | ok(!$empty->transform(xexpr => "x", yexpr => "y"), | |
53 | "fail to transform an empty image"); | |
54 | is($empty->errstr, "transform: empty input image", | |
55 | "check error message"); | |
56 | } |