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*/