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