From f98471377a8a80d32f6d8055d2d4f6b2c2de9c30 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Wed, 6 Nov 2024 10:38:11 -0800
Subject: [PATCH] Add test from the bug report.

---
 tests/rtest_laplace.mac | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/rtest_laplace.mac b/tests/rtest_laplace.mac
index 1adb9e160..5a86eba83 100644
--- a/tests/rtest_laplace.mac
+++ b/tests/rtest_laplace.mac
@@ -660,6 +660,10 @@ s^((-%i*v)-1)*gamma(%i*v+1);
 assuming (u > -1, laplace (t^(u + v*%i), t, s));
 s^((-%i*v)-u-1)*gamma(%i*v+u+1);
 
+/* Bug 4398 */
+assuming(a > 0, laplace(delta(t - a) * sin(b*t), t, s));
+-(((%i*%e^(2*%i*a*b)-%i)*%e^(-(a*s)-%i*a*b))/2);
+
 (kill (z),
  declare (z, complex), assume (realpart (z) > -1), 0);
 0;
-- 
2.11.4.GIT