/*
  Copyright 2022-2023 SINTEF AS

  This file is part of the Open Porous Media project (OPM).

  OPM is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  OPM 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 General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with OPM.  If not, see <http://www.gnu.org/licenses/>.
*/
#include "opm/simulators/linalg/cuistl/detail/cublas_safe_call.hpp"
#include <config.h>

#define BOOST_TEST_MODULE TestCublasHandle

#include <cuda_runtime.h>
#include <boost/test/unit_test.hpp>
#include <opm/simulators/linalg/cuistl/detail/CuBlasHandle.hpp>

BOOST_AUTO_TEST_CASE(TestGetCublasVersion)
{
#if USE_HIP
    // As of April 2024 it does not seem that hip has implemented the function
    // that checks the version of blas programatically. Let the test pass for now.
    BOOST_CHECK(true);
#else
    auto& cublasHandle = ::Opm::cuistl::detail::CuBlasHandle::getInstance();
    int cuBlasVersion = -1;
    OPM_CUBLAS_SAFE_CALL(cublasGetVersion(cublasHandle.get(), &cuBlasVersion));

    BOOST_CHECK_LT(0, cuBlasVersion);
#endif
}