1 files changed, 83 insertions, 0 deletions
diff --git a/t/21debug.t b/t/21debug.t
new file mode 100644
index 0000000..8ad5508
--- /dev/null
+++ b/t/21debug.t
@@ -0,0 +1,83 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+BEGIN {
+   $ENV{PERL_FUTURE_DEBUG} = 1;
+}
+
+use Future;
+
+use Time::HiRes qw( gettimeofday tv_interval );
+
+my $LINE;
+my $LOSTLINE;
+
+sub warnings(&)
+{
+   my $code = shift;
+   my $warnings = "";
+   local $SIG{__WARN__} = sub { $warnings .= shift };
+   $code->();
+   $LOSTLINE = __LINE__; return $warnings;
+}
+
+is( warnings {
+      my $f = Future->new;
+      $f->done;
+   }, "", 'Completed Future does not give warning' );
+
+is( warnings {
+      my $f = Future->new;
+      $f->cancel;
+   }, "", 'Cancelled Future does not give warning' );
+
+like( warnings {
+      $LINE = __LINE__; my $f = Future->new;
+      undef $f;
+   },
+   qr/^Future=\S+ was constructed at \Q$0\E line $LINE and was lost near \Q$0\E line (?:$LOSTLINE|${\($LINE+1)}) before it was ready\.?$/,
+   'Lost Future raises a warning' );
+
+my $THENLINE;
+my $SEQLINE;
+like( warnings {
+      $LINE = __LINE__; my $f1 = Future->new;
+      $THENLINE = __LINE__; my $fseq = $f1->then( sub { } ); undef $fseq;
+      $SEQLINE = __LINE__; $f1->done;
+   },
+   qr/^Future=\S+ was constructed at \Q$0\E line $THENLINE and was lost near \Q$0\E line (?:$SEQLINE|$THENLINE) before it was ready\.?
+Future=\S+ \(constructed at \Q$0\E line $LINE\) lost a sequence Future at \Q$0\E line $SEQLINE\.?$/,
+   'Lost sequence Future raises warning' );
+
+like( warnings {
+      $LINE = __LINE__; my $f = Future->fail("Failed!");
+      undef $f;
+   },
+   qr/^Future=\S+ was constructed at \Q$0\E line $LINE and was lost near \Q$0\E line (?:$LOSTLINE|${\($LINE+1)}) with an unreported failure of: Failed!\.?/,
+   'Destroyed failed future raises warning' );
+
+{
+   local $Future::TIMES = 1;
+
+   my $before = [ gettimeofday ];
+
+   my $future = Future->new;
+
+   ok( defined $future->btime, '$future has btime with $TIMES=1' );
+   ok( tv_interval( $before, $future->btime ) >= 0, '$future btime is not earlier than $before' );
+
+   $future->done;
+
+   ok( defined $future->rtime, '$future has rtime with $TIMES=1' );
+   ok( tv_interval( $future->btime, $future->rtime ) >= 0, '$future rtime is not earlier than btime' );
+   ok( tv_interval( $future->rtime ) >= 0, '$future rtime is not later than now' );
+
+   ok( defined $future->elapsed, '$future has ->elapsed time' );
+   ok( $future->elapsed >= 0, '$future elapsed time >= 0' );
+}
+
+done_testing;