test/s/umount.t

   1 #!/usr/bin/perl
   2 use test::helper qw($_point $_real $_pidfile);
   3 use strict;
   4 use Test::More tests => 1;
   5 use POSIX qw(WEXITSTATUS);
   6 system("fusermount -u $_point");
   7 if(POSIX::WEXITSTATUS($?) != 0) {
   8         system("umount $_point");
   9 }
  10 ok(POSIX::WEXITSTATUS($?) == 0,"unmount");
  11 system("rm -rf $_real $_pidfile");
  12 rmdir($_point);