~ubuntu-branches/ubuntu/natty/perl-tk/natty

« back to all changes in this revision

Viewing changes to t/after.t

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

Show diffs side-by-side

added

removed

t/after.t

 

1

use Test::More (tests => 6);

 

2

use Tk;

 

3

my $mw = MainWindow->new;

 

4

$mw->withdraw;

 

5

my $start = time;

 

6

$mw->after(1000,sub { my $t = time;

 

7

                      isnt($t,$start);

 

8

                      ok( $t >= $start+1,"$t >= $start");

 

9

                      ok( $t <= $start+2 ) });

 

10

$mw->after(2000,sub { my $t = time;

 

11

                      ok( $t >= $start+2 );

 

12

                      ok( $t <= $start+3 ) });

 

13

$mw->after(3000,[destroy => $mw ]);

 

14

MainLoop;

 

15

ok(time >= $start+3);

 

16

 

• Older »

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