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
|
#lang s-exp framework/private/decode
|
||||||
|
bZFPT8MwDMXv/RRPOzmHSCsgAQeGEOsNAVp3QxzaxR0VJEVJNolvT5Kl3fiT04t/z45jF/Rp
|
||||||
TY+9Ds
|
h32vGNp2slXN1y30KNx7FtwehCgKUtz1hkEUI9BQQhQAfbAHvajGB+R4Mxjl5CJdA/1xstUF
|
||||||
IwDIT3P
|
F2jLns0es+eH9XJV3dXralVX90+Py3omXsXv1JDcd4iZf0miztvebOXC7HTLNjn/KZKsm521
|
||||||
MWN9hCJA
|
bLzMzYpw8oPUGAW6AcX2pR6Mf0OUAloc4/H3h6iKucfJjMMKhdKIcInzeTCMfBpv5uUcZ9en
|
||||||
hIwAA
|
fFpE5iVQnvBpK2P9C+Aq8G8=
|
||||||
+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=;;
|
|
||||||
|
|
|
@ -240,7 +240,10 @@
|
||||||
(set! splash-load-handler (λ (old-load f expected) (old-load f expected))))
|
(set! splash-load-handler (λ (old-load f expected) (old-load f expected))))
|
||||||
|
|
||||||
(define funny?
|
(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)])
|
(and (with-handlers ([exn:fail:filesystem? (λ (x) #f)])
|
||||||
(collection-path "icons")
|
(collection-path "icons")
|
||||||
#t)
|
#t)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user