mirror of
https://git.openafs.org/openafs.git
synced 2025-01-18 23:10:58 +00:00
624219a1b2
The SOURCE and BUILD environment variables have been changed to C_TAP_SOURCE and C_TAP_BUILD in the new version of c-tap-harness. The runtests command syntax has changed as well. Convert all of the old SOURCE and BUILD environment variables to the new C_TAP_SOURCE and C_TAP_BUILD names. Add the required -l command line option to specify the test list. Add the new runtests -v option to run the tests in verbose mode to make it easier to see which tests failed. Change-Id: I209a6dc13d6cd1507519234fce1564fc4641e70b Reviewed-on: https://gerrit.openafs.org/14295 Tested-by: BuildBot <buildbot@rampaginggeek.com> Reviewed-by: Andrew Deason <adeason@sinenomine.net> Reviewed-by: Benjamin Kaduk <kaduk@mit.edu>
54 lines
1.2 KiB
Perl
Executable File
54 lines
1.2 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Basename;
|
|
use Test::More tests=>2;
|
|
|
|
my $builddir = $ENV{C_TAP_BUILD};
|
|
if (!$builddir) {
|
|
$builddir = dirname($0)."/..";
|
|
}
|
|
|
|
$builddir.="/..";
|
|
|
|
my $prdbfile = "/tmp/prdbtest.$$";
|
|
|
|
my $instructions = <<EOF;
|
|
admin 128/20 1 -204 -204
|
|
system:administrators 130/20 -204 -204 -204
|
|
admin 1
|
|
EOF
|
|
|
|
my $expected = <<EOF;
|
|
admin 128/20 1 -204 -204
|
|
anonymous 128/20 32766 -204 -204
|
|
system:backup 2/0 -205 -204 -204
|
|
system:administrators 130/20 -204 -204 -204
|
|
admin 1
|
|
system:ptsviewers 2/0 -203 -204 -204
|
|
system:authuser 2/0 -102 -204 -204
|
|
system:anyuser 2/0 -101 -204 -204
|
|
EOF
|
|
|
|
my $fh;
|
|
|
|
open $fh, '|-', "$builddir/src/ptserver/pt_util", '-w', '-p', $prdbfile
|
|
or die "Failed to start pt_util for DB creation\n";
|
|
print $fh $instructions;
|
|
close($fh)
|
|
or die "pt util failed while creating DB\n";
|
|
|
|
open $fh, '-|', "$builddir/src/ptserver/pt_util", '-p', $prdbfile,
|
|
'-user', '-group', '-members'
|
|
or die "Failed to start pt_util for DB reading\n";
|
|
|
|
my $output = join('', readline($fh));
|
|
close($fh)
|
|
or die "pt_util failed while reading from DB\n";
|
|
is($output, $expected, "pt_util produced expected output");
|
|
ok(1, "Completed sucessfully");
|
|
|
|
unlink($prdbfile);
|