The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 6;

sub check_this {
	my $arg = shift;	
	my $result = shift;

	ok(my $res = `$^X -Ilib ./datafaker $arg`, "Run for $arg");
	like($res,$result,"Results for $arg");
}

check_this('--help', qr/Usage/);
check_this('--help', qr/--help/);
check_this('--datatypes',qr/data/);