/[fuse.before_github]/perl-llin/test/helper.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /perl-llin/test/helper.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

perl/trunk/test/helper.pm revision 10 by dpavlin, Sun Mar 20 00:36:05 2005 UTC perl-llin/test/helper.pm revision 105 by dpavlin, Wed Nov 29 13:23:28 2006 UTC
# Line 2  Line 2 
2  package test::helper;  package test::helper;
3  use strict;  use strict;
4  use Exporter;  use Exporter;
5    use Config;
6  use POSIX qw(WEXITSTATUS);  use POSIX qw(WEXITSTATUS);
7  our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);  our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
8  @ISA = "Exporter";  @ISA = "Exporter";
9  @EXPORT_OK = qw($_loop $_point $_pidfile $_real);  @EXPORT_OK = qw($_loop $_point $_pidfile $_real);
10  our($_loop, $_point, $_pidfile, $_real) = ("examples/loopback.pl","/tmp/fusemnt-".$ENV{LOGNAME},"test/s/mounted.pid","/tmp/fusetest-".$ENV{LOGNAME});  our($_loop, $_point, $_pidfile, $_real) = ("","/tmp/fusemnt-".$ENV{LOGNAME},"test/s/mounted.pid","/tmp/fusetest-".$ENV{LOGNAME});
11    $_loop = $Config{useithreads} ? "examples/loopback_t.pl" : "examples/loopback.pl";
12  if($0 !~ qr|s/u?mount\.t$|) {  if($0 !~ qr|s/u?mount\.t$|) {
13          my ($reject) = 1;          my ($reject) = 1;
14          if(-f $_pidfile) {          if(-f $_pidfile) {
# Line 18  if($0 !~ qr|s/u?mount\.t$|) { Line 20  if($0 !~ qr|s/u?mount\.t$|) {
20                          }                          }
21                  }                  }
22          }          }
23          system("ls $_point >&/dev/null");          system("ls $_point >/dev/null");
24          $reject = 1 if (POSIX::WEXITSTATUS($?));          $reject = 1 if (POSIX::WEXITSTATUS($?));
25          die "not properly mounted\n" if $reject;          die "not properly mounted\n" if $reject;
26  }  }
Legend:
Removed from v.10  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.26