From: Eric Wong <e@80x24.org>
Date: Thu, 31 Dec 2020 13:51:48 +0000 (+0000)
Subject: t/ipc.t: test for references via `die'
X-Git-Tag: v1.7.0~1441
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=2b5d41f3a1b55ae513e9d5510d830074234fda37;p=public-inbox.git

t/ipc.t: test for references via `die'

We'll probably start using references as exceptions in
some places for more exact matching.
---

diff --git a/t/ipc.t b/t/ipc.t
index f3715e2c..5ee45e63 100644
--- a/t/ipc.t
+++ b/t/ipc.t
@@ -45,6 +45,19 @@ my $test = sub {
 	is((values %lines)[0], 2, '2 hits on same line number');
 	is($err, $exp, "$x die matches");
 	is($ret, undef, "$x die did not return");
+
+	eval { $ipc->test_die(['arrayref']) };
+	$exp = $@;
+	$ret = eval { $ipc->ipc_do('test_die', ['arrayref']) };
+	$err = $@;
+	is_deeply($err, $exp, 'die with unblessed ref');
+	is(ref($err), 'ARRAY', 'got an array ref');
+
+	$exp = bless ['blessed'], 'PublicInbox::WTF';
+	$ret = eval { $ipc->ipc_do('test_die', $exp) };
+	$err = $@;
+	is_deeply($err, $exp, 'die with blessed ref');
+	is(ref($err), 'PublicInbox::WTF', 'got blessed ref');
 };
 $test->('local');