package AbstractDpkgTestCase;
use base qw(Test::Unit::TestCase);

sub dpkg_perl_script {
    my ($self, $path) = @_;
    "PERLLIB=../scripts ../scripts/$path";
}

sub dpkg_binary {
    my ($self, $path) = @_;
    "../src/$path";
}

1;