Skip to content

Commit

Permalink
Skip test if build is without tblite.
Browse files Browse the repository at this point in the history
Signed-off-by: MtoLStoN <70513124+MtoLStoN@users.noreply.github.com>
  • Loading branch information
MtoLStoN committed Oct 4, 2023
1 parent 8188be5 commit cd9a00c
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion test/unit/test_dipro.f90
Original file line number Diff line number Diff line change
Expand Up @@ -15,7 +15,8 @@
! along with xtb. If not, see <https://www.gnu.org/licenses/>.

module test_dipro
use testdrive, only : new_unittest, unittest_type, error_type, check_ => check, test_failed
use testdrive, only : new_unittest, unittest_type, error_type, check_ => check, test_failed, skip_test
use xtb_features, only : get_xtb_feature
implicit none
private

Expand Down Expand Up @@ -95,6 +96,11 @@ subroutine test_dipro_jabeff(error)
& 2.47280_wp, 2.62117_wp, 1.74468_wp, &
& 3.50640_wp, 0.83800_wp, 1.74471_wp], shape(xyz))

if (.not.get_xtb_feature('tblite')) then
call skip_test(error, 'tblite libary not available.')
return
end if

call init(env)
!! construct calculation environment

Expand Down

0 comments on commit cd9a00c

Please sign in to comment.