home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / os2 / remind / src / test.rem < prev    next >
Encoding:
Text File  |  1993-10-12  |  6.6 KB  |  254 lines
  1. # Test file for REMIND
  2. #
  3. # Use this file to test the date calculation routines
  4. # of the REMIND program by typing:
  5. #
  6. #     ./test-rem  # From WITHIN Remind source directory!
  7.  
  8. REM MSG Today is [hebday(today())] [hebmon(today())] [hebyear(today())]
  9. fset _h(x, y) trigger(hebdate(x,y))
  10.  
  11. [_h(1,  "Tishrey")] MSG Rosh Hashana 1
  12. [_h(2,  "Tishrey")] MSG Rosh Hashana 2
  13. [_h(3,  "Tishrey")] MSG Tzom Gedalia
  14. [_h(10, "Tishrey")] MSG Yom Kippur
  15. [_h(15, "Tishrey")] MSG Sukkot 1
  16. [_h(25, "Kislev")]  MSG Channuka
  17. [_h(10, "Tevet")]   MSG Asara B'Tevet
  18. [_h(15, "Shvat")]   MSG Tu B'Shvat
  19. [_h(15, "Adar A")]  MSG Purim Katan
  20. [_h(14, "Adar")]    MSG Purim
  21. [_h(15, "Nisan")]   MSG Pesach
  22. [_h(27, "Nisan")]   MSG Yom HaShoah
  23. [_h(4,  "Iyar")]    MSG Yom HaZikaron
  24. [_h(5,  "Iyar")]    MSG Yom Ha'atzmaut
  25. [_h(28, "Iyar")]    MSG Yom Yerushalayim
  26. [_h(6,  "Sivan")]   MSG Shavuot
  27. [_h(9,  "Av")]      MSG Tish'a B'Av
  28.  
  29. # Test some jahrzeit cases
  30. fset _i(x,y,z,a) trigger(hebdate(x,y,z,a))
  31. [_i(30, "Heshvan", today(), 5759)] MSG Complete-Complete
  32. [_i(30, "Heshvan", today(), 5760)] MSG Complete-Defective
  33. [_i(30, "Heshvan", today(), 5761)] MSG Illegal
  34.  
  35. [_i(30, "Kislev", today(), 5759)] MSG Complete-Complete
  36. [_i(30, "Kislev", today(), 5760)] MSG Complete-Defective
  37. [_i(30, "Kislev", today(), 5761)] MSG Illegal
  38.  
  39. [_i(30, "Adar A", today(), 5755)] MSG Leap
  40. [_i(30, "Adar A", today(), 5756)] MSG Illegal
  41. [_i(29, "Adar A", today(), 5755)] MSG Leap
  42. [_i(29, "Adar A", today(), 5756)] MSG Illegal
  43.  
  44. # Test each possible case of the basic reminders.
  45.  
  46. REM MSG Every Day
  47.  
  48. REM 18 MSG Every 18th 
  49. REM 15 MSG Every 15th
  50.  
  51. REM Feb MSG February
  52. REM Jan MSG January
  53. REM March MSG March
  54.  
  55. REM 13 Jan MSG 13 Jan
  56. REM 15 Feb MSG 15 Feb
  57. REM 28 Feb MSG 28 Feb
  58. REM 29 Feb MSG 29 Feb
  59. REM 5 Mar MSG 5 Mar
  60.  
  61. REM 1990 MSG 1990
  62. REM 1991 MSG 1991
  63. REM 1992 MSG 1991
  64.  
  65. REM 1 1990 MSG 1 1990
  66. REM 29 1991 MSG 29 1991
  67. REM 29 1992 MSG 29 1992
  68. REM 16 1991 MSG 16 1991
  69.  
  70. REM Jan 1990 MSG Jan 1990
  71. REM Feb 1991 MSG Feb 1991
  72. REM Dec 1991 MSG Dec 1991
  73. REM May 1992 MSG May 1992
  74.  
  75. REM 1 Jan 1991 MSG 1 Jan 1991
  76. REM 16 Feb 1991 MSG 16 Feb 1991
  77. REM 29 Dec 1992 MSG 29 Dec 1992
  78.  
  79. REM Sun MSG Sun
  80. REM Fri Sat Tue MSG Fri Sat Tue
  81.  
  82. REM Sun 16 MSG Sun 16
  83. REM Mon Tue Wed Thu Fri 1 MSG Mon Tue Wed Thu Fri 1
  84.  
  85. REM Sun Feb MSG Sun Feb
  86. REM Mon Tue March MSG Mon Tue March
  87.  
  88. REM Sun 16 Feb MSG Sun 16 Feb
  89. REM Mon Tue 10 March MSG Mon Tue 10 March
  90.  
  91. REM Sat Sun 1991 MSG Sat Sun 1991
  92. REM Mon Tue 1992 MSG Mon Tue 1992
  93.  
  94. REM Sun 16 1991 MSG Sun 16 1991
  95. REM Mon Tue Wed Thu Fri 1 1992 MSG Mon Tue Wed Thu Fri 1 1992
  96.  
  97. REM Mon Feb 1991 MSG Mon Feb 1991
  98. REM Tue Jan 1992 MSG Tue Jan 1992
  99.  
  100. REM Sun Mon 16 Feb 1991 MSG Sun Mon 16 Feb 1991
  101. REM Tue 28 Jan 1992 MSG Tue 28 Jan 1992
  102.  
  103. # Try some Backs
  104. CLEAR-OMIT-CONTEXT
  105. REM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun
  106. REM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun
  107.  
  108. OMIT 28 Feb
  109. REM 1 -1 OMIT sat sun MSG 1 -1 OMIT Sat Sun (28 Feb omitted)
  110. REM 1 --1 OMIT sat sun MSG 1 --1 OMIT Sat Sun (28 Feb omitted)
  111.  
  112. CLEAR-OMIT-CONTEXT
  113.  
  114. # Try out UNTIL
  115. REM Wed UNTIL 21 Feb 1991 MSG Wed UNTIL 21 Feb 1991
  116.  
  117. # Try playing with the OMIT context
  118.  
  119. OMIT 28 Feb 1991
  120. REM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  121. REM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  122. REM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  123. REM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  124. REM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  125.  
  126. PUSH-OMIT-CONTEXT
  127. CLEAR-OMIT-CONTEXT
  128. REM 1 Mar -1 MSG 1 mar -1
  129. REM 1 Mar --1 MSG 1 mar --1
  130. REM 28 Feb BEFORE MSG 28 Feb BEFORE
  131. REM 28 Feb SKIP MSG 28 Feb SKIP 
  132. REM 28 Feb AFTER MSG 28 Feb AFTER
  133.  
  134. POP-OMIT-CONTEXT
  135. REM 1 Mar -1 MSG 1 mar -1 (28feb91 omitted)
  136. REM 1 Mar --1 MSG 1 mar --1 (28Feb91 omitted)
  137. REM 28 Feb BEFORE MSG 28 Feb BEFORE (28Feb91 omitted)
  138. REM 28 Feb SKIP MSG 28 Feb SKIP (28Feb91 omitted)
  139. REM 28 Feb AFTER MSG 28 Feb AFTER (28Feb91 omitted)
  140.  
  141.  
  142. REM 13 March 1991 *1 UNTIL 19 March 1991 MSG 13-19 Mar 91
  143.  
  144. # Test BACK
  145. CLEAR-OMIT-CONTEXT
  146. REM 18 Feb 1991 +1 MSG 18 Feb 1991 +1
  147.  
  148. OMIT 17 Feb 1991
  149. REM 18 Feb 1991 +1 MSG 18 Feb 1991 +1 (17Feb91 omitted)
  150. REM 18 Feb 1991 ++1 MSG 18 Feb 1991 ++1 (17Feb91 omitted)
  151.  
  152. CLEAR-OMIT-CONTEXT
  153. # Test the scanfrom clause
  154. REM Fri SATISFY 1
  155. OMIT [trigger(trigdate())]
  156. REM Fri after MSG 23 Feb 1991
  157. CLEAR-OMIT-CONTEXT
  158. REM Fri SCANFROM [trigger(today()-7)] SATISFY 1
  159. OMIT [trigger(trigdate())]
  160. REM Fri after MSG 16 Feb 1991
  161. CLEAR-OMIT-CONTEXT
  162. set a000 abs(1)
  163. set a001 abs(-1)
  164. set a002 asc("foo")
  165. set a003 baseyr()
  166. set a004 char(66,55,66,77,66)
  167. set a005 choose(3, "foo", "bar", "baz", "blech")
  168. set a006 coerce("string", 1)
  169. set a007 coerce("string", today())
  170. set a008 coerce("string", 11:44)
  171. set a009 coerce("int", "badnews")
  172. set a010 coerce("int", "12")
  173. set a011 coerce("int", 11:44)
  174. set a012 coerce("int", today())
  175. set a013 date(1992, 2, 2)
  176. set a014 date(1993, 2, 29)
  177. set a015 day(today())
  178. set a016 daysinmon(2, 1991)
  179. set a017 daysinmon(2, 1992)
  180. set a018 defined("a017")
  181. set a019 defined("a019")
  182. set a020 filename()
  183. set a021 getenv("TEST_GETENV")
  184. set a022 hour(11:22)
  185. set a023 iif(1, 1, 0)
  186. set a024 iif(0, 1, 0)
  187. set a025 index("barfoobar", "foo")
  188. set a026 index("barfoobar", "bar", 2)
  189. set a027 isleap(today())
  190. set a028 isleap(1992)
  191. omit [trigger(today())]
  192. set a030 isomitted(today())
  193. clear
  194. set a029 isomitted(today())
  195. set a031 lower("FOOBARBAZ")
  196. set a032 max(1, 2, 34, 1, 3)
  197. set a033 max("foo", "bar", "baz")
  198. set a034 max(today(), today()+1, today()-1)
  199. set a035 min(1, 2, 34, 1, 3)
  200. set a036 min("foo", "bar", "baz")
  201. set a037 min(today(), today()+1, today()-1)
  202. set a038 minute(11:33)
  203. set a039 mon(today())
  204. set a040 monnum(today())
  205. set a041 ord(3)
  206. set a042 ord(4)
  207. set a043 ostype()
  208. set a044 plural(2)
  209. set a045 plural(2, "ies")
  210. set a046 plural(2, "y", "ies")
  211. set a047 sgn(-2)
  212. set a048 shell("echo foo")
  213. set a049 strlen("sadjflkhsldkfhsdlfjhk")
  214. set a050 substr(a049, 2)
  215. set a051 substr(a050, 2, 6)
  216. set a052 time(1+2, 3+4)
  217. rem 10 jan 1992 AT 11:22 CAL
  218. set a053 trigdate()
  219. set a054 trigtime()
  220. set a055 trigvalid()
  221. set a056 upper("sdfjhsdf ksjdfh kjsdfh ksjdfh")
  222. set a057 value("a05"+"6")
  223. set a058 version()
  224. set a059 wkday(today())
  225. set a060 wkdaynum(today())
  226. set a061 year(today())
  227. set a062 1+2*(3+4-(5*7/2))
  228. set a063 1>=2
  229. set a064 1<2 || 3 > 4
  230. set a065 1 && 1
  231. set a066 !a065
  232. set a067 typeof(2)
  233. set a068 typeof("foo")
  234. set a069 typeof(11:33)
  235. set a070 typeof(today())
  236. fset g(x,y) max(x,y)
  237. fset h(x,y) min(g(x+y, x*y), g(x-y, x/y))
  238. set a071 g(1, 2)
  239. set a072 h(2, 3)
  240. set a073 h("foo", 11:33)
  241. set a074 dosubst("%a %b %c %d %e %f %g %h", '1992/5/5')
  242. msg [a074]%
  243. set a075 dosubst("%i %j %k %l %m %n %o %p", '1992/5/5')
  244. msg [a075]%
  245. set a076 dosubst("%q %r %s %t %u %v %w %x", '1992/5/5')
  246. msg [a076]%
  247. set a077 dosubst("%y %z", '1992/5/5')
  248. msg [a077]%
  249. set a078 easterdate(today())
  250. set a079 easterdate(1992)
  251. set a080 easterdate(1995)
  252. set a081 ""
  253. dump
  254.