From 336a1a26c561f5f328405e59b1126826676823f3 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Thu, 05 Jan 2017 17:29:26 -0500
Subject: t/13_drhtz-drhfz.t: Add basic tests with $p=1

---
diff --git a/t/13_drhtz-drhfz.t b/t/13_drhtz-drhfz.t
index 3cebf7a..fc8ee01 100644
--- a/t/13_drhtz-drhfz.t
+++ b/t/13_drhtz-drhfz.t
@@ -35,8 +35,12 @@ my $f;
 	#     a  p       r   functions
 	[ 23.1 , 0,  "23." , \&drhtz, \&drhfz],
 	[ 23.9 , 0,  "24." , \&drhtz, \&drhfz],
+	[  2.31, 1,   "2.3", \&drhtz, \&drhfz],
+	[  2.39, 1,   "2.4", \&drhtz, \&drhfz],
 	[-23.1 , 0, "-23." , \&drhtz, \&drhfz],
 	[-23.9 , 0, "-24." , \&drhtz, \&drhfz],
+	[ -2.31, 1,  "-2.3", \&drhtz, \&drhfz],
+	[ -2.39, 1,  "-2.4", \&drhtz, \&drhfz],
 );
 @tie_tests = (
 	[ 23.5 , 0,  "23." , \&drhtz         ],
--
cgit v0.9.1