1c4762a1bSJed Brown static char help[] = "Tests options database"; 2c4762a1bSJed Brown 3c4762a1bSJed Brown #include <petscsys.h> 4c4762a1bSJed Brown 5c4762a1bSJed Brown #define PetscAssert(expr) do { \ 6c4762a1bSJed Brown if (PetscUnlikely(!(expr))) \ 7c4762a1bSJed Brown SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_LIB, \ 8c4762a1bSJed Brown "Assertion: `%s' failed.", \ 9c4762a1bSJed Brown PetscStringize(expr)); \ 10c4762a1bSJed Brown } while(0) 11c4762a1bSJed Brown 12c4762a1bSJed Brown int main(int argc,char **argv) 13c4762a1bSJed Brown { 14c4762a1bSJed Brown const char *val; 15c4762a1bSJed Brown PetscBool has; 16c4762a1bSJed Brown PetscErrorCode ierr; 17c4762a1bSJed Brown 18c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-skip_petscrc", NULL);if (ierr) return ierr; 19*a87ad0e9SStefano Zampini ierr = PetscOptionsSetValue(NULL,"-use_gpu_aware_mpi", "0");if (ierr) return ierr; 20c4762a1bSJed Brown ierr = PetscInitialize(&argc,&argv,NULL,help);if (ierr) return ierr; 21c4762a1bSJed Brown 22*a87ad0e9SStefano Zampini ierr = PetscOptionsHasName(NULL,NULL,"-use_gpu_aware_mpi",&has);CHKERRQ(ierr); 23*a87ad0e9SStefano Zampini PetscAssert(has == PETSC_TRUE); 24c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,"-abc",&has);CHKERRQ(ierr); 25c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 26c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,"","-abc",&has);CHKERRQ(ierr); 27c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 28c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,"a","-bc",&has);CHKERRQ(ierr); 29c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 30c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,"ab","-c",&has);CHKERRQ(ierr); 31c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 32c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,"abc","-",&has);CHKERRQ(ierr); 33c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 34c4762a1bSJed Brown 35c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-abc",NULL);CHKERRQ(ierr); 36c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,"-abc",&has);CHKERRQ(ierr); 37c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 38c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,"","-abc",&has);CHKERRQ(ierr); 39c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 40c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,"a","-bc",&has);CHKERRQ(ierr); 41c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 42c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,"ab","-c",&has);CHKERRQ(ierr); 43c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 44c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,"abc","-",&has);CHKERRQ(ierr); 45c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 46c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,"-abc");CHKERRQ(ierr); 47c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,"-ABC");CHKERRQ(ierr); 48c4762a1bSJed Brown 49c4762a1bSJed Brown ierr = PetscOptionsPrefixPush(NULL,"a");CHKERRQ(ierr); 50c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-x",NULL);CHKERRQ(ierr); 51c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,"-ax",&has);CHKERRQ(ierr); 52c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 53c4762a1bSJed Brown ierr = PetscOptionsPrefixPush(NULL,"b");CHKERRQ(ierr); 54c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-xy",NULL);CHKERRQ(ierr); 55c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,"-abxy",&has);CHKERRQ(ierr); 56c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 57c4762a1bSJed Brown ierr = PetscOptionsPrefixPop(NULL);CHKERRQ(ierr); 58c4762a1bSJed Brown ierr = PetscOptionsPrefixPush(NULL,"c");CHKERRQ(ierr); 59c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-xz",NULL);CHKERRQ(ierr); 60c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,"-acxz",&has);CHKERRQ(ierr); 61c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 62c4762a1bSJed Brown ierr = PetscOptionsPrefixPop(NULL);CHKERRQ(ierr); 63c4762a1bSJed Brown ierr = PetscOptionsPrefixPop(NULL);CHKERRQ(ierr); 64c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,"-ax");CHKERRQ(ierr); 65c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,"-abxy");CHKERRQ(ierr); 66c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,"-acxz");CHKERRQ(ierr); 67c4762a1bSJed Brown 68c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-FOO",NULL);CHKERRQ(ierr); 69c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-FOO","BAR");CHKERRQ(ierr); 70c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-FOO",NULL);CHKERRQ(ierr); 71c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,"-FOO");CHKERRQ(ierr); 72c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-FOO","BAR");CHKERRQ(ierr); 73c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-FOO",NULL);CHKERRQ(ierr); 74c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-FOO","BAR");CHKERRQ(ierr); 75c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,"-FOO");CHKERRQ(ierr); 76c4762a1bSJed Brown 77c4762a1bSJed Brown { 78c4762a1bSJed Brown char name[] = "-*_42", c; 79c4762a1bSJed Brown for (c = 'a'; c <= 'z'; c++) { 80c4762a1bSJed Brown name[1] = c; 81c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 82c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 83c4762a1bSJed Brown } 84c4762a1bSJed Brown for (c = 'a'; c <= 'z'; c++) { 85c4762a1bSJed Brown name[1] = c; 86c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 87c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 88c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,name,NULL);CHKERRQ(ierr); 89c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 90c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 91c4762a1bSJed Brown } 92c4762a1bSJed Brown for (c = 'A'; c <= 'Z'; c++) { 93c4762a1bSJed Brown name[1] = c; 94c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 95c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 96c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,name);CHKERRQ(ierr); 97c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 98c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 99c4762a1bSJed Brown } 100c4762a1bSJed Brown for (c = 'Z'; c >= 'A'; c--) { 101c4762a1bSJed Brown name[1] = c; 102c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 103c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 104c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,name,NULL);CHKERRQ(ierr); 105c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 106c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 107c4762a1bSJed Brown } 108c4762a1bSJed Brown for (c = 'a'; c <= 'z'; c++) { 109c4762a1bSJed Brown name[1] = c; 110c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 111c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE); 112c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,name);CHKERRQ(ierr); 113c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 114c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 115c4762a1bSJed Brown } 116c4762a1bSJed Brown for (c = 'a'; c <= 'z'; c++) { 117c4762a1bSJed Brown name[1] = c; 118c4762a1bSJed Brown ierr = PetscOptionsHasName(NULL,NULL,name,&has);CHKERRQ(ierr); 119c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 120c4762a1bSJed Brown } 121c4762a1bSJed Brown } 122c4762a1bSJed Brown 123c4762a1bSJed Brown ierr = PetscOptionsSetValue(NULL,"-abc_xyz","123");CHKERRQ(ierr); 124c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_xyz",&val,&has);CHKERRQ(ierr); 125c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE && !strcmp(val,"123")); 126c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_42_xyz",&val,&has);CHKERRQ(ierr); 127c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE && !strcmp(val,"123")); 128c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_42_1_xyz",&val,&has);CHKERRQ(ierr); 129c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE && !strcmp(val,"123")); 130c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_42_1_23_xyz",&val,&has);CHKERRQ(ierr); 131c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE && !strcmp(val,"123")); 132c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_42_1_23_456_xyz",&val,&has);CHKERRQ(ierr); 133c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE && !strcmp(val,"123")); 134c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_42_1_23_456_789_xyz",&val,&has);CHKERRQ(ierr); 135c4762a1bSJed Brown PetscAssert(has == PETSC_TRUE && !strcmp(val,"123")); 136c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_xyz_42",&val,&has);CHKERRQ(ierr); 137c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 138c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc42xyz",&val,&has);CHKERRQ(ierr); 139c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 140c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc42_xyz",&val,&has);CHKERRQ(ierr); 141c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 142c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_42xyz",&val,&has);CHKERRQ(ierr); 143c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 144c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc0_42_xyz",&val,&has);CHKERRQ(ierr); 145c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 146c4762a1bSJed Brown ierr = PetscOptionsFindPair(NULL,NULL,"-abc_42_0xyz",&val,&has);CHKERRQ(ierr); 147c4762a1bSJed Brown PetscAssert(has == PETSC_FALSE); 148c4762a1bSJed Brown ierr = PetscOptionsClearValue(NULL,"-abc_xyz");CHKERRQ(ierr); 149c4762a1bSJed Brown 150c4762a1bSJed Brown ierr = PetscFinalize(); 151c4762a1bSJed Brown return ierr; 152c4762a1bSJed Brown } 153c4762a1bSJed Brown 154c4762a1bSJed Brown 155c4762a1bSJed Brown /*TEST 156c4762a1bSJed Brown 157c4762a1bSJed Brown test: 158c4762a1bSJed Brown 159c4762a1bSJed Brown TEST*/ 160