# test the query() method

use Test::More 'no_plan';
use CGI;

# Include the test hierarchy
use lib 't/lib';

use TestApp14;

# Prevent output to STDOUT
$ENV{CGI_APP_RETURN_ONLY} = 1;

# Test query()
{
    my $cgi = CGI->new('message=hello');
	my $ta_obj = TestApp14->new(QUERY => $cgi);
	my $output = $ta_obj->run();

	like($output, qr/---->hello<----/);

    my $cgi2 = CGI->new('message=goodbye');
    $ta_obj->query($cgi2);
	$output = $ta_obj->run();

	like($output, qr/---->goodbye<----/);
}