extra/calendar/holidays/us/us-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: calendar calendar.holidays calendar.holidays.us kernel
   4 sequences tools.test ;
   5
   6 { 10 } [ 2009 us-federal holidays length ] unit-test
   7
   8 {
   9     {
  10         T{ timestamp
  11             { year 2020 }
  12             { month 1 }
  13             { day 1 }
  14         }
  15         T{ timestamp
  16             { year 2020 }
  17             { month 1 }
  18             { day 20 }
  19         }
  20         T{ timestamp
  21             { year 2020 }
  22             { month 2 }
  23             { day 17 }
  24         }
  25         T{ timestamp
  26             { year 2020 }
  27             { month 5 }
  28             { day 25 }
  29         }
  30         T{ timestamp
  31             { year 2020 }
  32             { month 7 }
  33             { day 3 }
  34         }
  35         T{ timestamp
  36             { year 2020 }
  37             { month 9 }
  38             { day 7 }
  39         }
  40         T{ timestamp
  41             { year 2020 }
  42             { month 10 }
  43             { day 12 }
  44         }
  45         T{ timestamp
  46             { year 2020 }
  47             { month 11 }
  48             { day 11 }
  49         }
  50         T{ timestamp
  51             { year 2020 }
  52             { month 11 }
  53             { day 26 }
  54         }
  55         T{ timestamp
  56             { year 2020 }
  57             { month 12 }
  58             { day 25 }
  59         }
  60     }
  61 } [
  62     2020 <year-gmt> timestamp>year-dates-gmt [ us-federal holiday? ] filter
  63 ] unit-test