1: /*
  2:      Shows any outstanding Globus file requests
  4:      You can run PETSc programs with -globus_access_token XXXX where XXX is the access token to access Globus
  6: */
  8: #include <petscsys.h>
 10: int main(int argc, char **argv)
 11: {
 12:   char buff[4096];
 14:   PetscFunctionBeginUser;
 15:   PetscCall(PetscInitialize(&argc, &argv, NULL, NULL));
 16:   PetscCall(PetscGlobusGetTransfers(PETSC_COMM_WORLD, NULL, buff, sizeof(buff)));
 17:   PetscCall(PetscPrintf(PETSC_COMM_WORLD, "Transfers are %s\n", buff));
 18:   PetscCall(PetscFinalize());
 19:   return 0;
 20: }
 22: /*TEST
 24:    build:
 25:      requires: ssl
 27:    test:
 28:      TODO: determine how to run this test without going through the browser
 30: TEST*/