From f2e421bfa5afdebb53e552ed8285b3c239515488 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Wed, 26 Feb 2020 17:25:09 -0500
Subject: [PATCH] Add acceptance tests for ampm() function.

---
 tests/test.cmp | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++
 tests/test.rem | 26 ++++++++++++++++++
 2 files changed, 100 insertions(+)

diff --git a/tests/test.cmp b/tests/test.cmp
index 81c5f873..6fba00ef 100644
--- a/tests/test.cmp
+++ b/tests/test.cmp
@@ -1745,6 +1745,80 @@ SET x '2015-02-03@12:00pm' + 0
 SET x '2015-02-03@13:00PM' + 0
 ../tests/test.rem(492): Ill-formed time
 
+# Test the ampm function
+set x ampm(0:12) + ""
+ampm(00:12) => "12:12AM"
+"12:12AM" + "" => "12:12AM"
+set x ampm(1:12) + ""
+ampm(01:12) => "1:12AM"
+"1:12AM" + "" => "1:12AM"
+set x ampm(2:12) + ""
+ampm(02:12) => "2:12AM"
+"2:12AM" + "" => "2:12AM"
+set x ampm(3:12) + ""
+ampm(03:12) => "3:12AM"
+"3:12AM" + "" => "3:12AM"
+set x ampm(4:12) + ""
+ampm(04:12) => "4:12AM"
+"4:12AM" + "" => "4:12AM"
+set x ampm(5:12) + ""
+ampm(05:12) => "5:12AM"
+"5:12AM" + "" => "5:12AM"
+set x ampm(6:12) + ""
+ampm(06:12) => "6:12AM"
+"6:12AM" + "" => "6:12AM"
+set x ampm(7:12) + ""
+ampm(07:12) => "7:12AM"
+"7:12AM" + "" => "7:12AM"
+set x ampm(8:12) + ""
+ampm(08:12) => "8:12AM"
+"8:12AM" + "" => "8:12AM"
+set x ampm(9:12) + ""
+ampm(09:12) => "9:12AM"
+"9:12AM" + "" => "9:12AM"
+set x ampm(10:12) + ""
+ampm(10:12) => "10:12AM"
+"10:12AM" + "" => "10:12AM"
+set x ampm(11:12) + ""
+ampm(11:12) => "11:12AM"
+"11:12AM" + "" => "11:12AM"
+set x ampm(12:12) + ""
+ampm(12:12) => "12:12PM"
+"12:12PM" + "" => "12:12PM"
+set x ampm(13:12) + ""
+ampm(13:12) => "1:12PM"
+"1:12PM" + "" => "1:12PM"
+set x ampm(14:12) + ""
+ampm(14:12) => "2:12PM"
+"2:12PM" + "" => "2:12PM"
+set x ampm(15:12) + ""
+ampm(15:12) => "3:12PM"
+"3:12PM" + "" => "3:12PM"
+set x ampm(16:12) + ""
+ampm(16:12) => "4:12PM"
+"4:12PM" + "" => "4:12PM"
+set x ampm(17:12) + ""
+ampm(17:12) => "5:12PM"
+"5:12PM" + "" => "5:12PM"
+set x ampm(18:12) + ""
+ampm(18:12) => "6:12PM"
+"6:12PM" + "" => "6:12PM"
+set x ampm(19:12) + ""
+ampm(19:12) => "7:12PM"
+"7:12PM" + "" => "7:12PM"
+set x ampm(20:12) + ""
+ampm(20:12) => "8:12PM"
+"8:12PM" + "" => "8:12PM"
+set x ampm(21:12) + ""
+ampm(21:12) => "9:12PM"
+"9:12PM" + "" => "9:12PM"
+set x ampm(22:12) + ""
+ampm(22:12) => "10:12PM"
+"10:12PM" + "" => "10:12PM"
+set x ampm(23:12) + ""
+ampm(23:12) => "11:12PM"
+"11:12PM" + "" => "11:12PM"
+
 
 
 Test 2
diff --git a/tests/test.rem b/tests/test.rem
index 50234b77..1a0609c5 100644
--- a/tests/test.rem
+++ b/tests/test.rem
@@ -491,6 +491,32 @@ SET x '2015-02-03@11:00PM' + 0
 SET x '2015-02-03@12:00pm' + 0
 SET x '2015-02-03@13:00PM' + 0
 
+# Test the ampm function
+set x ampm(0:12) + ""
+set x ampm(1:12) + ""
+set x ampm(2:12) + ""
+set x ampm(3:12) + ""
+set x ampm(4:12) + ""
+set x ampm(5:12) + ""
+set x ampm(6:12) + ""
+set x ampm(7:12) + ""
+set x ampm(8:12) + ""
+set x ampm(9:12) + ""
+set x ampm(10:12) + ""
+set x ampm(11:12) + ""
+set x ampm(12:12) + ""
+set x ampm(13:12) + ""
+set x ampm(14:12) + ""
+set x ampm(15:12) + ""
+set x ampm(16:12) + ""
+set x ampm(17:12) + ""
+set x ampm(18:12) + ""
+set x ampm(19:12) + ""
+set x ampm(20:12) + ""
+set x ampm(21:12) + ""
+set x ampm(22:12) + ""
+set x ampm(23:12) + ""
+
 __EOF__
 REM This line should not even be seen
 And you can put whatever you like here.