From cd9a00c57ce018ba273fb94ac0e9d694b4ab4f6e Mon Sep 17 00:00:00 2001 From: MtoLStoN <70513124+MtoLStoN@users.noreply.github.com> Date: Wed, 4 Oct 2023 13:48:18 +0200 Subject: [PATCH] Skip test if build is without tblite. Signed-off-by: MtoLStoN <70513124+MtoLStoN@users.noreply.github.com> --- test/unit/test_dipro.f90 | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/test/unit/test_dipro.f90 b/test/unit/test_dipro.f90 index 603442c0d..7f6cbde28 100644 --- a/test/unit/test_dipro.f90 +++ b/test/unit/test_dipro.f90 @@ -15,7 +15,8 @@ ! along with xtb. If not, see . 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 @@ -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