program tests

  ! Driver program for FRUIT unit tests in:
  ! test_splsubs.f90
  ! test_common_libs.f90
  ! test_windspeed_dates.f90
  ! test_gdland.f90

  ! Generated by FRUITPy.

  use fruit
  use test_splsubs
  use test_windspeed_routines
  use test_windspeed_dates
  use test_gdland

  implicit none
  integer :: failed_count

  call init_fruit

  ! test_splsubs.f90:
  call run_test_case(test_splsubs_spline_splint_exact_points,"test_splsubs_spline_splint_exact_points")
  call run_test_case(test_splsubs_spline_splint_mid_points,"test_splsubs_spline_splint_mid_points")
  call run_test_case(test_splsubs_spline_splint_tension_limit,"test_splsubs_spline_splint_tension_limit")

  ! test_common_libs.f90:
  call run_test_case(test_rcal,"test_rcal")
  call run_test_case(test_shcal,"test_shcal")
  call run_test_case(test_vpcal,"test_vpcal")
  call run_test_case(test_radcal,"This routine calculates the wind radii from the parameteric vortex")
  call run_test_case(test_upcase,"test_upcase")
  call run_test_case(test_lcase,"test_lcase")
  call run_test_case(test_ctorh,"test_ctorh")
  call run_test_case(test_rhtoc,"test_rhtoc")
  call run_test_case(test_distk,"test_distk")
  call run_test_case(test_yint,"test_yint")
  call run_test_case(test_xint,"test_xint")
  call run_test_case(test_xyint,"test_xyint")
  call run_test_case(test_linfill,"test_linfill")
  call run_test_case(test_randn,"test_randn")
  call run_test_case(test_rand_distribuion,"test_rand_distribuion")
  call run_test_case(test_sindex,"test_sindex")
  call run_test_case(test_tolck,"test_tolck")
  call run_test_case(test_ofti,"test_ofti")
  call run_test_case(test_rint,"test_rint")

  ! test_windspeed_dates.f90:
  call run_test_case(test_jday,"test_jday")
  call run_test_case(test_jdayi,"test_jdayi")
  call run_test_case(test_tadd,"test_tadd")

  ! test_gdland.f90:
  call run_test_case(test_gdland_lonwrap,"Couple of predetermined distances to sanity check function")
  call run_test_case(test_gdlandtable_at_dateline,"This tests that there is a break at the dateline in the gdland_table")
  call run_test_case(test_guam_existence,"Simple check to test the existence of guam island in the table.")
  call run_test_case(test_local_lon_changed,"Check that input lon value isn't changed by function")

  call get_failed_count(failed_count)
  call fruit_summary
  call fruit_finalize
  if (failed_count > 0) stop 1

end program tests