1 2 static char help[] = "Tests deletion of mixed case options"; 3 4 #include <petscsys.h> 5 6 int main(int argc,char **argv) 7 { 8 9 PetscCall(PetscInitialize(&argc,&argv,NULL,help)); 10 PetscCall(PetscOptionsSetValue(NULL,"-abc",NULL)); 11 PetscCall(PetscOptionsSetValue(NULL,"-FOO",NULL)); 12 PetscCall(PetscOptionsClearValue(NULL,"-FOO")); 13 PetscCall(PetscOptionsView(NULL,NULL)); 14 PetscCall(PetscFinalize()); 15 return 0; 16 } 17 18 /*TEST 19 20 test: 21 args: -skip_petscrc -options_left 0 -use_gpu_aware_mpi 0 22 filter: egrep -v "(malloc|saws_port_auto_select|vecscatter_mpi1|error_output_stdout|check_pointer_intensity|cuda_initialize|nox|use_gpu_aware_mpi|checkstack)" 23 TEST*/ 24