1*5993eba9SPierre Jolivet static char help[] = "Tests PetscLogView() called with no PetscGlobalArgc and PetscGlobalArgs.\n\n";
2*5993eba9SPierre Jolivet
3*5993eba9SPierre Jolivet #include <petscsys.h>
4*5993eba9SPierre Jolivet #include <petscvec.h>
5*5993eba9SPierre Jolivet
main(int argc,char ** args)6*5993eba9SPierre Jolivet int main(int argc, char **args)
7*5993eba9SPierre Jolivet {
8*5993eba9SPierre Jolivet Vec vec;
9*5993eba9SPierre Jolivet PetscBool flg = PETSC_FALSE;
10*5993eba9SPierre Jolivet PetscViewer viewer;
11*5993eba9SPierre Jolivet
12*5993eba9SPierre Jolivet PetscFunctionBegin;
13*5993eba9SPierre Jolivet PetscCall(PetscInitialize(NULL, NULL, NULL, help));
14*5993eba9SPierre Jolivet PetscCall(PetscLogDefaultBegin());
15*5993eba9SPierre Jolivet PetscCall(PetscViewerCreate(PETSC_COMM_SELF, &viewer));
16*5993eba9SPierre Jolivet PetscCall(PetscViewerSetType(viewer, PETSCVIEWERASCII));
17*5993eba9SPierre Jolivet for (PetscInt i = 1; i < argc; ++i) {
18*5993eba9SPierre Jolivet PetscCall(PetscStrcmp(args[i], "foo", &flg));
19*5993eba9SPierre Jolivet if (flg) break;
20*5993eba9SPierre Jolivet }
21*5993eba9SPierre Jolivet if (flg) {
22*5993eba9SPierre Jolivet PetscCall(VecCreate(PETSC_COMM_SELF, &vec));
23*5993eba9SPierre Jolivet PetscCall(VecDestroy(&vec));
24*5993eba9SPierre Jolivet }
25*5993eba9SPierre Jolivet PetscCall(PetscLogView(viewer));
26*5993eba9SPierre Jolivet PetscCall(PetscViewerDestroy(&viewer));
27*5993eba9SPierre Jolivet PetscCall(PetscFinalize());
28*5993eba9SPierre Jolivet return 0;
29*5993eba9SPierre Jolivet }
30*5993eba9SPierre Jolivet
31*5993eba9SPierre Jolivet /*TEST
32*5993eba9SPierre Jolivet
33*5993eba9SPierre Jolivet testset:
34*5993eba9SPierre Jolivet requires: defined(PETSC_USE_LOG)
35*5993eba9SPierre Jolivet nsize: 1
36*5993eba9SPierre Jolivet filter: grep -E "^ (Vector|Viewer)"
37*5993eba9SPierre Jolivet test:
38*5993eba9SPierre Jolivet suffix: 1
39*5993eba9SPierre Jolivet output_file: output/ex81_1.out
40*5993eba9SPierre Jolivet test:
41*5993eba9SPierre Jolivet suffix: 2
42*5993eba9SPierre Jolivet args: foo
43*5993eba9SPierre Jolivet output_file: output/ex81_2.out
44*5993eba9SPierre Jolivet
45*5993eba9SPierre Jolivet TEST*/
46