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