tests: Add existing-database test for pt_util 01/14801/2
authorAndrew Deason <adeason@sinenomine.net>
Mon, 28 Dec 2020 20:14:54 +0000 (14:14 -0600)
committerBenjamin Kaduk <kaduk@mit.edu>
Fri, 8 Oct 2021 04:05:02 +0000 (00:05 -0400)
Our current tests for pt_util use pt_util to generate a prdb, and then
check the output of pt_util against that created database. Add a new
test that runs pt_util against an existing database (with the same
test data), to make sure that pt_util is still using the same db

Change-Id: I4dbe7f3b5080ee6ff1f9509992b5686fc8381da0
Reviewed-on: https://gerrit.openafs.org/14801
Tested-by: BuildBot <buildbot@rampaginggeek.com>
Reviewed-by: Cheyenne Wills <cwills@sinenomine.net>
Reviewed-by: Benjamin Kaduk <kaduk@mit.edu>

tests/ptserver/db.prtiny/prdb.DB0 [new file with mode: 0644]

diff --git a/tests/ptserver/db.prtiny/prdb.DB0 b/tests/ptserver/db.prtiny/prdb.DB0
new file mode 100644 (file)
index 0000000..bbb25f3
Binary files /dev/null and b/tests/ptserver/db.prtiny/prdb.DB0 differ
index af97668..bf10d25 100755 (executable)
@@ -4,14 +4,15 @@ use strict;
 use warnings;
 use lib $ENV{C_TAP_SOURCE} . "/tests-lib/perl5";
-use afstest qw(obj_path);
+use afstest qw(src_path obj_path);
 use File::Basename;
 use File::Temp qw(tempfile);
-use Test::More tests=>2;
+use Test::More tests=>3;
 my $pt_util = obj_path("src/ptserver/pt_util");
-(undef, my $prdbfile) = tempfile("prdbtest.XXXXXX", TMPDIR => 1, UNLINK => 1);
+(undef, my $prdb_tmp) = tempfile("prdbtest.XXXXXX", TMPDIR => 1, UNLINK => 1);
+my $prdb_test = src_path("tests/ptserver/db.prtiny/prdb.DB0");
 my $instructions = <<EOF;
 admin 128/20 1 -204 -204
@@ -31,19 +32,28 @@ system:anyuser 2/0 -101 -204 -204
 my $fh;
+my $output;
-open $fh, '|-', "$pt_util", '-w', '-p', $prdbfile
+open $fh, '|-', "$pt_util", '-w', '-p', $prdb_tmp
    or die "Failed to start pt_util for DB creation\n";
 print $fh $instructions;
    or die "pt util failed while creating DB\n";
-open $fh, '-|', "$pt_util", '-p', $prdbfile,
+open $fh, '-|', "$pt_util", '-p', $prdb_tmp,
                                     '-user', '-group', '-members'
     or die "Failed to start pt_util for DB reading\n";
+$output = join('', readline($fh));
+    or die "pt_util failed while reading from $prdb_tmp\n";
+is($output, $expected, "pt_util produced expected output for generated db");
-my $output = join('', readline($fh));
+open $fh, '-|', "$pt_util", '-p', $prdb_test,
+                                    '-user', '-group', '-members'
+    or die "Failed to start pt_util for DB reading\n";
+$output = join('', readline($fh));
-    or die "pt_util failed while reading from DB\n";
-is($output, $expected, "pt_util produced expected output");
+    or die "pt_util failed while reading from $prdb_test\n";
+is($output, $expected, "pt_util produced expected output for test db");
 ok(1, "Completed sucessfully");