diff --git a/tests/ptserver/db.prtiny/prdb.DB0 b/tests/ptserver/db.prtiny/prdb.DB0 new file mode 100644 index 0000000000..bbb25f37a5 Binary files /dev/null and b/tests/ptserver/db.prtiny/prdb.DB0 differ diff --git a/tests/ptserver/pt_util-t b/tests/ptserver/pt_util-t index af97668922..bf10d25349 100755 --- a/tests/ptserver/pt_util-t +++ b/tests/ptserver/pt_util-t @@ -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 = <