test_install_check.c File Reference

C test module for PICurv. More...

#include "test_support.h"
#include <stdlib.h>

Include dependency graph for test_install_check.c:

Go to the source code of this file.

Macros
#define	PICURV_TEST_ERR_ENVIRONMENT   PETSC_ERR_USER_INPUT

Functions
static PetscErrorCode	TestEnvironmentVisible (void)
	Test-local routine.
static PetscErrorCode	TestBasicPetscObjects (void)
	Test-local routine.
int	main (int argc, char **argv)
	Entry point for this unit-test binary.

Detailed Description

C test module for PICurv.

Definition in file test_install_check.c.

Macro Definition Documentation

PICURV_TEST_ERR_ENVIRONMENT

#define PICURV_TEST_ERR_ENVIRONMENT   PETSC_ERR_USER_INPUT

Definition at line 13 of file test_install_check.c.

Function Documentation

TestEnvironmentVisible()

static PetscErrorCode TestEnvironmentVisible ( void  )

static

Test-local routine.

Definition at line 19 of file test_install_check.c.

{
    const char *petsc_dir = getenv("PETSC_DIR");
 
    PetscFunctionBeginUser;
    PetscCheck(petsc_dir && petsc_dir[0] != '\0', PETSC_COMM_SELF, PICURV_TEST_ERR_ENVIRONMENT,
               "PETSC_DIR is not set in the environment.");
    PetscFunctionReturn(0);
}

Here is the caller graph for this function:

TestBasicPetscObjects()

static PetscErrorCode TestBasicPetscObjects ( void  )

static

Test-local routine.

Definition at line 32 of file test_install_check.c.

{
    DM da = NULL, swarm = NULL;
    Vec vec = NULL;
 
    PetscFunctionBeginUser;
    PetscCall(DMDACreate3d(PETSC_COMM_WORLD,
                           DM_BOUNDARY_NONE, DM_BOUNDARY_NONE, DM_BOUNDARY_NONE,
                           DMDA_STENCIL_BOX,
                           3, 3, 3,
                           PETSC_DECIDE, PETSC_DECIDE, PETSC_DECIDE,
                           1, 1,
                           NULL, NULL, NULL,
                           &da));
    PetscCall(DMSetUp(da));
    PetscCall(DMCreateGlobalVector(da, &vec));
 
    PetscCall(DMCreate(PETSC_COMM_WORLD, &swarm));
    PetscCall(DMSetType(swarm, DMSWARM));
    PetscCall(DMSetDimension(swarm, 3));
    PetscCall(DMSwarmSetType(swarm, DMSWARM_BASIC));
    PetscCall(DMSwarmSetCellDM(swarm, da));
    PetscCall(DMSwarmRegisterPetscDatatypeField(swarm, "position", 3, PETSC_REAL));
    PetscCall(DMSwarmFinalizeFieldRegister(swarm));
    PetscCall(DMSwarmSetLocalSizes(swarm, 1, 0));
 
    PetscCall(VecDestroy(&vec));
    PetscCall(DMDestroy(&swarm));
    PetscCall(DMDestroy(&da));
    PetscFunctionReturn(0);
}

Here is the caller graph for this function:

main()

int main	(	int	argc,
		char **	argv
	)

Entry point for this unit-test binary.

Definition at line 67 of file test_install_check.c.

{
    PetscErrorCode ierr;
    const PicurvTestCase cases[] = {
        {"environment-visible", TestEnvironmentVisible},
        {"basic-petsc-objects", TestBasicPetscObjects},
    };
 
    ierr = PetscInitialize(&argc, &argv, NULL, "PICurv installation validation");
    if (ierr) {
        return (int)ierr;
    }
 
    ierr = PicurvRunTests("doctor", cases, sizeof(cases) / sizeof(cases[0]));
    if (ierr) {
        PetscFinalize();
        return (int)ierr;
    }
 
    ierr = PetscFinalize();
    return (int)ierr;
}

Here is the call graph for this function: