library_test.pf

!
! library_test.pf  
! This file is part of PROJECTNAME.
!
! Copyright YEAR AUTHOR <EMAIL> [AUTHOR2 <EMAIL2>, ...]
!  
! This program is free software: you can redistribute it and/or modify
! it under the terms of the GNU Lesser General Public License as
! published by the Free Software Foundation, either version 3 of the
! License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful, but
! WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
! Lesser General Public License for more details.
!
! You should have received a copy of the GNU Lesser General Public
! License along with this program.  If not, see
! <https://www.gnu.org/licenses/>.
!
module library_test
  use variable_kinds, only: dp
  use library, only: a_procedure
  use pfunit_mod
  implicit none

  real(dp), parameter :: tol = sqrt(epsilon(1._dp))

contains

  @Test
  subroutine test_a_procedure()
    @assertEqual(a_procedure(0._dp), 0._dp, tolerance=tol)
  end subroutine test_a_procedure

end module library_test