From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Wed, 11 Jul 2012 15:43:43 +0000 (+0000)
Subject: tests for await_* with kept and thrown-away proxy object
X-Git-Tag: v0.001001~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=commitdiff_plain;h=eb9d50284b711b67fceffe480197403dfe9b3b96

tests for await_* with kept and thrown-away proxy object
---

diff --git a/t/await.t b/t/await.t
new file mode 100644
index 0000000..d96cf3d
--- /dev/null
+++ b/t/await.t
@@ -0,0 +1,63 @@
+use strictures 1;
+use Test::More;
+use Test::Fatal;
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Object::Remote;
+use Object::Remote::Future qw( await_all await_future );
+use ORTestClass;
+
+my $state = [];
+
+my $_make_future_keep_proxy = sub {
+  # note: do not store the remote proxy somewhere
+  my $proxy = ORTestClass->new::on('-');
+  my $future = $proxy->start::call_callback(23, sub { sleep 1 });
+  push @$state, $proxy;
+  return $future;
+};
+
+my $_make_future = sub {
+  # note: do not store the remote proxy somewhere
+  my $future = ORTestClass
+    ->new::on('-')
+    ->start::call_callback(23, sub { sleep 1 });
+};
+
+my @tests = (
+  ['proxy kept', $_make_future_keep_proxy],
+  ['proxy thrown away', $_make_future],
+);
+
+for my $test (@tests) {
+  my ($title, $make) = @$test;
+  subtest $title, sub {
+
+    do {
+      my $future = $make->();
+      local $SIG{ALRM} = sub { die "future timed out" };
+      alarm 10;
+      is exception {
+        my $result = await_future $future;
+        is $result, 23, 'correct value';
+        alarm 0;
+      }, undef, 'no errors for await_future';
+    };
+
+    do {
+      my $future = $make->();
+      local $SIG{ALRM} = sub { die "future timed out" };
+      alarm 10;
+      is exception {
+        my @result = await_all $future;
+        is $result[0], 23, 'correct value';
+        alarm 0;
+      }, undef, 'no errors for await_all';
+    };
+
+    done_testing;
+  };
+}
+
+done_testing;