← Back to branch summary

~ubuntu-branches/ubuntu/breezy/libimage-imlib2-perl/breezy

« back to all changes in this revision

Viewing changes to t/simple.t

  • Committer: Bazaar Package Importer
  • Author(s): Don Armstrong
  • Date: 2005-03-03 22:14:36 UTC
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20050303221436-dw8crqm82hs8xag9
Tags: upstream-1.04
Import upstream version 1.04

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/simple.t
1
1
#!/usr/bin/perl -w
2
2
use strict;
3
 
use Test::More tests => 7;
 
3
use Test::More tests => 9;
4
4
 
5
5
use_ok('Image::Imlib2');
6
6
 
15
15
# Is it the right height?
16
16
is($image->get_height, 200);
17
17
 
 
18
# Is alpha on by default?
 
19
is($image->has_alpha, 1);
 
20
 
18
21
# Does set_colour work?
19
22
$image->set_colour(255, 0, 0, 255);
20
23
 
68
71
# create a scaled image of it
69
72
my $dstimage = $image->create_scaled_image(100,80);
70
73
 
 
74
# Does has_alpha work?
 
75
$image->has_alpha(0);
 
76
is($image->has_alpha, 0);
 
77
 
71
78
ok(1, "got to the end")