#!/usr/bin/perl --

use strict;
use warnings;


if(not $ENV{VROOM} ){
    $ENV{VROOM}=1;
    use File::Spec;
    my $self = File::Spec->rel2abs(__FILE__);
    my $dir = "my_dir";
    system("prove -v $self :: --input=$dir");
    system('prove', '-v', $self ,'::', "--input=$dir");
} else {
    use Test::More;
    use Getopt::Long;

    plan tests => 1;

    my $input;
    GetOptions( "input=s" => \$input );
    ok( $input, "got input=$input" );
}