From 8cc5160aefb2ba3611d1d5d6b12b996227f9da72 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@lorry>
Date: Tue, 10 Mar 2015 19:55:44 +0000
Subject: Future-0.32

---
 t/21debug.t | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 83 insertions(+)
 create mode 100644 t/21debug.t

(limited to 't/21debug.t')

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;
-- 
cgit v1.2.1