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 PetscErrorCode ierr; 9 10 ierr = PetscInitialize(&argc,&argv,NULL,help);if (ierr) return ierr; 11 CHKERRQ(PetscOptionsSetValue(NULL,"-abc",NULL)); 12 CHKERRQ(PetscOptionsSetValue(NULL,"-FOO",NULL)); 13 CHKERRQ(PetscOptionsClearValue(NULL,"-FOO")); 14 CHKERRQ(PetscOptionsView(NULL,NULL)); 15 ierr = PetscFinalize(); 16 return ierr; 17 } 18 19 /*TEST 20 21 test: 22 args: -skip_petscrc -options_left 0 -use_gpu_aware_mpi 0 23 filter: egrep -v "(malloc|saws_port_auto_select|vecscatter_mpi1|error_output_stdout|check_pointer_intensity|cuda_initialize|nox|use_gpu_aware_mpi|checkstack)" 24 TEST*/ 25