App::Rad::Tester - Test your App::Rad applications with ease

  use Test::More tests => 3;
  use App::Rad::Tester;

  # get STDOUT from your tested app
  my $output = test_app("myapp.pl", qw(somecommand --foo=bar) );

  # alternatively, pass any string with code and it
  # will create a temporary file for you.
  my ($output, $filename) = test_app(\*DATA, qw(help) );

  __DATA__
  use App::Rad;
  App::Rad->run

package App::Rad::Tester;
use strict;
use warnings;

use base 'Exporter';
our @EXPORT = qw(test_app get_controller);

sub get_controller {
    # kids, don't try this at home...
    require App::Rad;
    my $c = {};
    bless $c, 'App::Rad';
    $c->_init();
    return $c;
}

sub test_app {
	my ($app, @args) = (@_);

	# we may receive a filehandle reference
	# such as a GLOB or IO::Handle.
	if (ref $app) {
		eval {
			local $/ = undef;
			my $content = ref $app ? <$app> : $app;
			$app = $content;
		};
		return if $@;
	}
	
	# if user gave us a filename, we use it.
	# otherwise we assume $app to be a string
	# containing code and run it in a temp file.
	my $filename = '';
	if ($app !~ /\n/ and -r $app) { 
		$filename = $app;
	}
	else {
	    #TODO: if we can inject a custom setup()
	    # (if none exists) on the string, we could
	    # make it not register anything by default.
	    # and on the setup tests we just do something
	    # like use Test::More ();
		eval 'use File::Temp qw(tempfile tempdir)';
		return if $@;
		my $fh;
		($fh, $filename) = tempfile(UNLINK => 1);
		print $fh $app;
		close $fh;
	}
	my $out = `$^X $filename @args`;
    return wantarray ? ($out, $filename) : $out;
}

42;
__END__