module test_windspeed_dates
  use fruit
  use windspeed_dates
  implicit none

  contains

  subroutine test_jday
    integer imon, iday, iyear, julday

    imon = 5
    iday = 8
    iyear = 1989
    call jday(imon,iday,iyear,julday)
    call assert_equals(128, julday)
  end subroutine

  subroutine test_jdayi
    integer imon, iday, iyear, julday

    iyear = 1989
    julday = 128
    call jdayi(julday,iyear,imon,iday)
    call assert_equals(5, imon)
    call assert_equals(8, iday)
  end subroutine

  subroutine test_tadd
    integer :: iyr, imon, iday, itime, ihra
    integer :: iyra, imona, idaya, itimea

    iyr = 2019
    imon = 9
    iday = 30
    itime = 18
    ihra = 5
    call tadd(iyr,imon,iday,itime,ihra,iyra,imona,idaya,itimea)
    call assert_equals(iday, idaya)
    call assert_equals(imon, imona)
    call assert_equals(23, itimea)

    ihra = 7
    call tadd(iyr,imon,iday,itime,ihra,iyra,imona,idaya,itimea)
    call assert_equals(10, imona)
    call assert_equals(1, idaya)
    call assert_equals(1, itimea)
  end subroutine test_tadd

end module test_windspeed_dates