extlib/Date/tests/test_calc.php

   1 <?php
   2 require_once "Date/Calc.php";
   3
   4 /**
   5  * Test dates from 1970 to 2029
   6  * Data from: http://www.merlyn.demon.co.uk/wknotest.txt
   7  *  [N.B. this link is now broken, although the web-site still exists]
   8  * Others usefull datas available from:
   9  * http://www.merlyn.demon.co.uk/#dat
  10  */
  11
  12 // 'wknotest.txt' is missing and no longer available on the web, and so this
  13 // test is disabled for this reason (it was copyright anyway).
  14 //
  15 $failed_test_data = false;
  16 // $wkno   = file('wknotest.txt');
  17 // $cnt    = sizeof($wkno);
  18 // for( $i=0;$i<$cnt;$i++ ){
  19 //     $parts      = explode(':',$wkno[$i]);
  20 //     $weeksno[$parts[0]] = str_replace("\n",'',$parts[1]);
  21 // }
  22 // unset($wkno);
  23 // foreach($weeksno as $date=>$iso){
  24 //     $year       = substr($date,0,4);
  25 //     $month      = substr($date,4,2);
  26 //     $day        = substr($date,6);
  27 //     $iso9601 = Date_Calc::gregorianToISO($day,$month,$year);
  28 //     if($iso9601!=$iso){
  29 //         $failed_test_data   = true;
  30 //         echo $date . '(' . $iso . ') =>' . $year.'-'.$month.'-'.$day .'=>' . $iso9601 . " : failed\n";
  31 //     }
  32 // }
  33
  34 /**
  35  * Bugs #19788
  36  */
  37 $failed_test_19788 = false;
  38 $pass1 = array(1998, 2, 1) == Date_Calc::isoWeekDate(5, 1, 1998) ? true : false;
  39 $pass2 = array(1998, 2, 2) == Date_Calc::isoWeekDate(6, 1, 1998) ? true : false;
  40 $pass3 = array(2004, 2, 1) == Date_Calc::isoWeekDate(5, 1, 2004) ? true : false;
  41 $pass4 = array(2004, 2, 2) == Date_Calc::isoWeekDate(6, 1, 2004) ? true : false;
  42 if (!($pass1 && $pass2 && $pass3 && $pass4)) {
  43     $failed_test_19788 = true;
  44 }
  45
  46 if ($failed_test_19788 || $failed_test_data) {
  47     echo "Bug #19788: failed\n";
  48 } else {
  49     echo "Bug #19788: OK\n";
  50 }