pike.git / lib / modules / Calendar.pmod / testsuite.in

version» Context lines:

pike.git/lib/modules/Calendar.pmod/testsuite.in:355:   test_eq([[Calendar.ISO.Year (2005)->place (Calendar.ISO.Day (2004, 2, 29))]], 0)   test_eq([[Calendar.ISO.Year (2005)->place (Calendar.ISO.Day (2004, 2, 29), 1)]], Calendar.ISO.Day (2005, 2, 28))   test_eq([[Calendar.ISO.Year (2005)->place (Calendar.ISO.Day (2004, 3, 1), 1)]], Calendar.ISO.Day (2005, 3, 1))      test_eq([[Calendar.ISO.Month (2005, 2)->place (Calendar.ISO.Day (2004, 2, 24))]], Calendar.ISO.Day (2005, 2, 24))   test_eq([[Calendar.ISO.Month (2005, 2)->place (Calendar.ISO.Day (2004, 2, 26))]], Calendar.ISO.Day (2005, 2, 26))   test_eq([[Calendar.ISO.Month (2005, 2)->place (Calendar.ISO.Day (2004, 2, 29))]], 0)   test_eq([[Calendar.ISO.Month (2005, 2)->place (Calendar.ISO.Day (2004, 2, 29), 1)]], Calendar.ISO.Day (2005, 2, 28))   test_eq([[Calendar.ISO.Month (2005, 3)->place (Calendar.ISO.Day (2004, 3, 1), 1)]], Calendar.ISO.Day (2005, 3, 1))    + dnl Calendar.ISO.deltat + dnl + dnl year, deltat, error + define([[test_deltat]], [[ +  test_any([[ +  int t = ($1 - 1970) * 31556952; +  float dt = Calendar.ISO.deltat(t) + $3; +  if (dt < $2) return dt; +  return 0; +  ]], 0) +  test_any([[ +  int t = ($1 - 1970) * 31556952; +  float dt = Calendar.ISO.deltat(t) - $3; +  if (dt > $2) return dt; +  return 0; +  ]], 0) + ]]) +  + dnl Table 2-1 from http://eclipse.gsfc.nasa.gov/5MCSE/5MCSE-Text11.pdf + test_deltat( -500, 17190, 430) + test_deltat( -400, 15530, 390) + test_deltat( -300, 14080, 360) + test_deltat( -200, 12790, 330) + test_deltat( -100, 11640, 290) + test_deltat( 0, 10580, 260) + test_deltat( 100, 9600, 240) + test_deltat( 200, 8640, 210) + test_deltat( 300, 7680, 180) + test_deltat( 400, 6700, 160) + test_deltat( 500, 5710, 140) + test_deltat( 600, 4740, 120) + test_deltat( 700, 3810, 100) + test_deltat( 800, 2960, 80) + test_deltat( 900, 2200, 70) + test_deltat( 1000, 1570, 55) + test_deltat( 1100, 1090, 40) + test_deltat( 1200, 740, 30) + test_deltat( 1300, 490, 20) + test_deltat( 1400, 320, 20) + test_deltat( 1500, 200, 20) + test_deltat( 1600, 120, 20) + test_deltat( 1700, 9, 5) + test_deltat( 1750, 13, 2) + test_deltat( 1800, 14, 1) + test_deltat( 1850, 7, 1) + test_deltat( 1900, -3, 1) + test_deltat( 1950, 29, 0.1) +  + dnl Table 2-2 from http://eclipse.gsfc.nasa.gov/5MCSE/5MCSE-Text11.pdf + test_deltat(1955, 31.1, 0.08) + test_deltat(1960, 33.2, 0.10) + test_deltat(1965, 35.7, 0.09) + test_deltat(1970, 40.2, 0.05) + test_deltat(1975, 45.5, 0.05) + test_deltat(1980, 50.5, 0.05) + test_deltat(1985, 54.3, 0.05) + test_deltat(1990, 56.9, 0.05) + test_deltat(1995, 60.8, 0.05) + test_deltat(2000, 63.8, 0.08) + test_deltat(2005, 64.7, 0.05) +    END_MARKER