shithub: regress

Download patch

ref: 814dce91ef582a850d1bdc5464cebe1091559b55
parent: ef3d02cda8c74294c9461c0ef45497781a118d63
author: Ori Bernstein <ori@eigenstate.org>
date: Fri Jun 19 22:34:31 EDT 2020

More date tests

--- a/cmd/date.rc	Mon Jun 15 01:47:17 2020
+++ b/cmd/date.rc	Fri Jun 19 22:34:31 2020
@@ -38,7 +38,8 @@
 check '2020-06-14'			1592092800
 check '2020-06-14T22:14:17-07:00'	1592198057
 
-# colloquial american formats (eww)
+# colloquial american format (eww)
 check '06/14/2020'			1592092800
+check '06/01/2020'			1590969600
 
 exit ''
--- a/libc/date.c	Mon Jun 15 01:47:17 2020
+++ b/libc/date.c	Fri Jun 19 22:34:31 2020
@@ -53,8 +53,8 @@
 	Tzone *gmt, *us_arizona, *us_eastern;
 	Tm here, there;
 	Tzone *zl, *zp;
-	char buf[1024];
-	int i;
+	char buf[128], buf1[128];
+	int i, h;
 
 	tmfmtinstall();
 	if((gmt = tmgetzone("GMT")) == nil)
@@ -208,6 +208,44 @@
 		fail("format: %r");
 	if(strcmp(buf, "Fri, 17 Mar 1950 08:34:17 -0500") != 0)
 		fail("wrong output: %s\n", buf);
+
+	/* AM and PM parsing */
+	for(i = 0; i < 24; i++){
+		h = i % 12;
+		if(h == 0)
+			h = 12;
+		snprint(buf, sizeof(buf), "2021 02 01 %d:14:30 -0400", i);
+		snprint(buf1, sizeof(buf1), "2021 02 01 %d:14:30 -0400 %s", h, (i < 12) ? "AM" : "PM");
+		if(tmparse(&tm, "YYYY MM DD hh:mm:ss ZZZ", buf, nil) == nil)
+			fail("parse: %r\n");
+		if(tmparse(&tt, "YYYY MM DD hh:mm:ss ZZZ A", buf1, nil) == nil)
+			fail("parse: %r\n");
+		if(tm.abs != tt.abs)
+			print("bad am/pm parsed: %s != %s (%lld != %lld)\n", buf, buf1, tm.abs, tt.abs);
+	}
+
+	/* Time zone boundaries: entering DST */
+	if(tmtime(&tm, 1520733600, us_eastern) == nil)
+		fail("tmtime: tz boundary");
+	if(snprint(buf, sizeof(buf), "%τ", tmfmt(&tm, nil)) == -1)
+		fail("format: %r");
+	memset(&tm, 0, sizeof(tm));
+	if(tmparse(&tm, "W MMM D hh:mm:ss ZZZ YYYY", buf, nil) == nil)
+		fail("parse: %r\n");
+	if(tm.abs != 1520733600)
+		fail("round trip timezone: %lld != 1520733600\n", tm.abs);
+
+	/* Time zone boundaries: leaving DST */
+	if(tmtime(&tm, 1541296800, us_eastern) == nil)
+		fail("tmtime: tz boundary");
+	if(snprint(buf, sizeof(buf), "%τ", tmfmt(&tm, nil)) == -1)
+		fail("format: %r\n");
+	memset(&tm, 0, sizeof(tm));
+	if(tmparse(&tm, "W MMM D hh:mm:ss ZZZ YYYY", buf, nil) == nil)
+		fail("parse: %r");
+	if(tm.abs != 1541296800)
+		fail("round trip timezone: %lld != 1541296800\n", tm.abs);
+	
 
 	/* flexible date parsing */
 	if(tmparse(&tm, "?YYYY ?MM DD hh:mm:ss ?ZZZ", "89 04 10 20:14:30 -0400", nil) == nil)
--- a/regress	Mon Jun 15 01:47:17 2020
+++ b/regress	Fri Jun 19 22:34:31 2020
@@ -23,3 +23,13 @@
 
 $O.%:	%.$O $OFILES $LIB
 	$LD $LDFLAGS -o $target $prereq
+
+# [$OS].??* avoids file names like 9.h
+nuke:V:
+	rm -f *.[$OS] y.tab.? lex.yy.c y.debug y.output [$OS].??* *.acid $TARG $CLEANFILES
+
+clean:V:
+	rm -f *.[$OS] *.a[$OS] y.tab.? lex.yy.c y.debug y.output [$OS].??* $TARG $CLEANFILES
+
+%.clean:V:
+	rm -f $stem.[$OS] [$OS].$stem $stem.acid $stem