added a test suite for DrRacket that checks to make sure the Dear Dr
starts up on all of the days that have easter eggs (well, except 7/2, since that one is hard to interpose on and hasn't changed in a long time) original commit: 617df05ef7d43c04cfaf6978c52619e1865a4812
This commit is contained in:
parent
eabea09e88
commit
46cd9ed627
|
@ -1,34 +1,6 @@
|
|||
#lang s-exp framework/private/decode
|
||||
|
||||
TY+9Ds
|
||||
IwDIT3P
|
||||
MWN9hCJA
|
||||
hIwAA
|
||||
+CGN
|
||||
rGFR
|
||||
UkRW
|
||||
lA4u
|
||||
1JaF
|
||||
K6ne
|
||||
/zz1n
|
||||
R0w/v
|
||||
3gis73R
|
||||
j6s8Zto
|
||||
jxn oU0
|
||||
k2Cl yEjX
|
||||
OwFR cmBh
|
||||
mBVA Dwmg
|
||||
i6lD RKO0
|
||||
gzOj Pk1l
|
||||
+/Je XNDZ
|
||||
Zr6m iThT
|
||||
OwM6 glKb
|
||||
toML NyTJ
|
||||
sPz3 05XJ
|
||||
jZd4 kaCE
|
||||
iot+ UbDD
|
||||
ZhUb Cp/f
|
||||
yLxa YX1Y
|
||||
8vnh zCug
|
||||
WvD5 +7J/C
|
||||
+wj/ \wI=;;
|
||||
bZFPT8MwDMXv/RRPOzmHSCsgAQeGEOsNAVp3QxzaxR0VJEVJNolvT5Kl3fiT04t/z45jF/Rp
|
||||
h32vGNp2slXN1y30KNx7FtwehCgKUtz1hkEUI9BQQhQAfbAHvajGB+R4Mxjl5CJdA/1xstUF
|
||||
F2jLns0es+eH9XJV3dXralVX90+Py3omXsXv1JDcd4iZf0miztvebOXC7HTLNjn/KZKsm521
|
||||
bLzMzYpw8oPUGAW6AcX2pR6Mf0OUAloc4/H3h6iKucfJjMMKhdKIcInzeTCMfBpv5uUcZ9en
|
||||
fFpE5iVQnvBpK2P9C+Aq8G8=
|
||||
|
|
|
@ -240,7 +240,10 @@
|
|||
(set! splash-load-handler (λ (old-load f expected) (old-load f expected))))
|
||||
|
||||
(define funny?
|
||||
(let ([date (seconds->date (current-seconds))])
|
||||
(let ([date (seconds->date (let ([ssec (getenv "PLTDREASTERSECONDS")])
|
||||
(if ssec
|
||||
(string->number ssec)
|
||||
(current-seconds))))])
|
||||
(and (with-handlers ([exn:fail:filesystem? (λ (x) #f)])
|
||||
(collection-path "icons")
|
||||
#t)
|
||||
|
|
Loading…
Reference in New Issue
Block a user