From 02ade6fc5886ece3339d3955258954ba21f8ef37 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Wed, 2 Jul 2025 11:42:03 -0400
Subject: [PATCH] Add tests.

---
 tests/test.cmp | 11 +++++++++++
 tests/test.rem |  8 ++++++++
 2 files changed, 19 insertions(+)

diff --git a/tests/test.cmp b/tests/test.cmp
index b46b0ca2..d11291a4 100644
--- a/tests/test.cmp
+++ b/tests/test.cmp
@@ -16587,10 +16587,21 @@ daysinmon("Feb", 2000) => 29
 daysinmon("Feb", 2001) => 28
 daysinmon("March", 2000) => 31
 daysinmon("March", 2001) => 31
+daysinmon("Cabbage", 2001) => Type mismatch
+../tests/test.rem(1639): daysinmon(): Type mismatch
 daysinmon(2000-02-14) => 29
 daysinmon(2001-02-14) => 28
 daysinmon(2000-04-14) => 30
 daysinmon(2001-04-14) => 30
+date(2020, "April", 15) => 2020-04-15
+date(2020, "Carrot", 12) => Type mismatch
+../tests/test.rem(1647): date(): Type mismatch
+datetime(2020, "April", 13, 04:44) => 2020-04-13@04:44
+datetime(2020, "April", 13, 4, 44) => 2020-04-13@04:44
+datetime(2020, "Lettuce", 13, 04:44) => Type mismatch
+../tests/test.rem(1650): datetime(): Type mismatch
+datetime(2020, "Lettuce", 13, 4, 44) => Type mismatch
+../tests/test.rem(1651): datetime(): Type mismatch
 Variable hash table statistics:
   Entries: 100143; Buckets: 87719; Non-empty Buckets: 66301
   Maxlen: 5; Minlen: 0; Avglen: 1.142; Stddev: 0.878; Avg nonempty len: 1.510
diff --git a/tests/test.rem b/tests/test.rem
index 02c368eb..1250cbb4 100644
--- a/tests/test.rem
+++ b/tests/test.rem
@@ -1636,12 +1636,20 @@ set a daysinmon("Feb", 2000)
 set a daysinmon("Feb", 2001)
 set a daysinmon("March", 2000)
 set a daysinmon("March", 2001)
+set a daysinmon("Cabbage", 2001)
 
 set a daysinmon('2000-02-14')
 set a daysinmon('2001-02-14')
 set a daysinmon('2000-04-14')
 set a daysinmon('2001-04-14')
 
+set a date(2020, "April", 15)
+set a date(2020, "Carrot", 12)
+set a datetime(2020, "April", 13, 4:44)
+set a datetime(2020, "April", 13, 4, 44)
+set a datetime(2020, "Lettuce", 13, 4:44)
+set a datetime(2020, "Lettuce", 13, 4, 44)
+
 DEBUG -x
 # Output expression-node stats
 DEBUG +h