~ubuntu-branches/ubuntu/lucid/perl-tk/lucid

« back to all changes in this revision

Viewing changes to PNG/t/crash.t

• browse files at revision 5
• compare with another revision
• download diff
• download tarball
• view history from revision 5

Show diffs side-by-side

added

removed

PNG/t/crash.t

 

1

#!/usr/bin/perl -w

 

2

# -*- perl -*-

 

3

 

 

4

#

 

5

# $Id: $

 

6

# Author: Slaven Rezic

 

7

#

 

8

 

 

9

use strict;

 

10

 

 

11

use Tk;

 

12

use Tk::PNG;

 

13

use FindBin;

 

14

 

 

15

BEGIN {

 

16

    if (!eval q{

 

17

        use Test::More;

 

18

        1;

 

19

    }) {

 

20

        print "1..0 # skip: no Test::More module\n";

 

21

        exit;

 

22

    }

 

23

}

 

24

 

 

25

plan tests => 1;

 

26

 

 

27

my $mw = tkinit;

 

28

$mw->packPropagate(0);

 

29

my $file = "$FindBin::RealBin/../pngtest.png";

 

30

my $img = $mw->Photo(-file => $file);

 

31

$mw->Label(-image => $img)->pack;

 

32

$mw->afterIdle

 

33

    (sub {

 

34

         $mw->GeometryRequest($img->width, $img->height);

 

35

         $mw->after(100,

 

36

                    sub {

 

37

                        $mw->GeometryRequest($img->width-20, $img->height-20);

 

38

                        $mw->after(100,

 

39

                                   sub {

 

40

                                       $mw->destroy;

 

41

                                   }

 

42

                                  );

 

43

                    }

 

44

                   );

 

45

     });

 

46

MainLoop;

 

47

 

 

48

pass("No crash while resizing a window with PNG image");

 

49

 

 

50

__END__

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1