environment.cpp

/** @file
 * Unit tests of the environment module.
 *
 * @author Tyson Jones
 * 
 * @defgroup unitenv Environment
 * @ingroup unittests
 */
 
#include "quest.h"
 
#include <catch2/catch_test_macros.hpp>
#include <catch2/matchers/catch_matchers_string.hpp>
 
#include "tests/utils/qvector.hpp"
#include "tests/utils/qmatrix.hpp"
#include "tests/utils/compare.hpp"
#include "tests/utils/convert.hpp"
#include "tests/utils/evolve.hpp"
#include "tests/utils/linalg.hpp"
#include "tests/utils/lists.hpp"
#include "tests/utils/macros.hpp"
#include "tests/utils/random.hpp"
 
using Catch::Matchers::ContainsSubstring;
 
 
 
/*
 * UTILITIES
 */
 
#define TEST_CATEGORY \
    LABEL_UNIT_TAG "[environment]"
 
 
 
/** 
 * TESTS
 * 
 * @ingroup unitenv
 * @{
 */
 
 
TEST_CASE( "initQuESTEnv", TEST_CATEGORY ) {
 
    SECTION( LABEL_CORRECTNESS ) {
 
        // cannot be meaningfully tested since env already active
        SUCCEED( );
    }
 
    SECTION( LABEL_VALIDATION ) {
 
        REQUIRE_THROWS_WITH( initQuESTEnv(), ContainsSubstring( "already been initialised") );
 
        // cannot automatically check other validations, such as:
        // - has env been previously initialised then finalised?
        // - is env distributed over power-of-2 nodes?
        // - are environment-variables valid?
        // - is max 1 MPI process bound to each GPU?
        // - is GPU compatible with cuQuantum (if enabled)?
    }
}
 
 
TEST_CASE( "initCustomQuESTEnv", TEST_CATEGORY ) {
 
    SECTION( LABEL_CORRECTNESS ) {
 
        // cannot be meaningfully tested since env already active
        SUCCEED( );
    }
 
    SECTION( LABEL_VALIDATION ) {
 
        REQUIRE_THROWS_WITH( initCustomQuESTEnv(0,0,0), ContainsSubstring( "already been initialised") );
 
        // cannot check arguments since env-already-initialised
        // validation is performed first
    }
}
 
 
TEST_CASE( "initCustomMpiQuESTEnv", TEST_CATEGORY ) {
 
    SECTION( LABEL_CORRECTNESS ) {
 
        // cannot be meaningfully tested since env already active
        SUCCEED( );
    }
 
    SECTION( LABEL_VALIDATION ) {
 
        REQUIRE_THROWS_WITH( initCustomMpiQuESTEnv(0,0,0,0), ContainsSubstring( "already been initialised") );
 
        // cannot check arguments since env-already-initialised
        // validation is performed first
    }
}
 
 
TEST_CASE( "finalizeQuESTEnv", TEST_CATEGORY ) {
 
    SECTION( LABEL_CORRECTNESS ) {
 
        // cannot be meaningfully tested since calling
        // mid-tests will break subsequent testing
        SUCCEED( );
    }
 
    SECTION( LABEL_VALIDATION ) {
 
        // cannot be validated since calling it once
        // is always valid but would break subsequent tests
        SUCCEED( );
    }
}
 
 
TEST_CASE( "syncQuESTEnv", TEST_CATEGORY ) {
 
    SECTION( LABEL_CORRECTNESS ) {
 
        // always legal to call
        REQUIRE_NOTHROW( syncQuESTEnv() );
    }
 
    SECTION( LABEL_VALIDATION ) {
 
        // cannot test validation (that env is already
        // created) since we cannot call before initQuESTEnv
        SUCCEED( );
    }
}
 
 
TEST_CASE( "isQuESTEnvInit", TEST_CATEGORY ) {
 
    SECTION( LABEL_CORRECTNESS ) {
 
        // cannot test for other outcome
        REQUIRE( isQuESTEnvInit() == 1 );
    }
 
    SECTION( LABEL_VALIDATION ) {
 
        // performs no validation
        SUCCEED( );
    }
}
 
 
TEST_CASE( "getQuESTEnv", TEST_CATEGORY ) {
 
    SECTION( LABEL_CORRECTNESS ) {
 
        QuESTEnv env = getQuESTEnv();
 
        REQUIRE( env.rank     >= 0 );
        REQUIRE( env.numNodes >= 0 );
        
        if (!env.isDistributed) {
            REQUIRE( env.rank     == 0 );
            REQUIRE( env.numNodes == 1 );
        }
 
        bool isNumNodesPow2 = ((env.numNodes & (env.numNodes - 1)) == 0);
        REQUIRE( isNumNodesPow2 );
    }
 
    SECTION( LABEL_VALIDATION ) {
 
        // performs no validation
        SUCCEED( );
    }
}
 
 
/** @} (end defgroup) */
 
 
 
/**
 * @todo
 * UNTESTED FUNCTIONS
 */
 
void reportQuESTEnv();