/[fuse.before_github]/perl/trunk/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/trunk/test/helper.pm

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

revision 4 by mszeredi, Thu Nov 11 14:44:15 2004 UTC revision 19 by dpavlin, Tue Dec 27 12:47:00 2005 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);
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","/mnt","test/s/mounted.pid","/tmp/fusetest");  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) {
15                  unless(system("ps `cat $_pidfile` | grep \"$_loop $_point\" >/dev/null")>>8) {                  unless(POSIX::WEXITSTATUS(system("ps `cat $_pidfile` | grep \"$_loop $_point\" >/dev/null"))) {
16                          if(`mount | grep "on $_point"`) {                          if(`mount | grep "on $_point"`) {
17                                  $reject = 0;                                  $reject = 0;
18                          } else {                          } else {
# Line 17  if($0 !~ qr|s/u?mount\.t$|) { Line 20  if($0 !~ qr|s/u?mount\.t$|) {
20                          }                          }
21                  }                  }
22          }          }
23          $reject = 1 if (system("ls $_point >&/dev/null") >> 8);          system("ls $_point >&/dev/null");
24            $reject = 1 if (POSIX::WEXITSTATUS($?));
25          die "not properly mounted\n" if $reject;          die "not properly mounted\n" if $reject;
26  }  }
27  1;  1;
Legend:
Removed from v.4  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.26