#!/usr/bin/perl

use qbit;

use File::Spec;

my $sh_arguments = shift(@ARGV);
my $path         = shift(@ARGV);

my $pwd = `pwd`;
chomp($pwd);

my @dirs = File::Spec->splitdir($pwd);

do {
    my $script_dir_lib = File::Spec->catdir(@dirs, 't_lib');
    my $script = File::Spec->catfile($script_dir_lib, 'run_test');

    if (-e $script) {
        exit system($script, $path, @ARGV);
    }
} while pop(@dirs);

exit(1);
