#!/usr/bin/perl -w
use strict;
use Getopt::Long;

my ($aa, $bb, $diagnostic) = (undef, undef, 0);

if (@ARGV){
    GetOptions('aa=s'=>\$aa,
	       'bb=s'=>\$bb,
	       'diagnostic'=>\$diagnostic);
}

if ($diagnostic){
    my $test = '';
    while(<DATA>){
	$test .= $_;
    }
    eval($test);
    die 'Ran tests. Done.';
}


1;


__DATA__

use Test::More qq~no_plan~;

ok(1==1,'basic');

1;