view release on metacpan or  search on metacpan

xt/01_integration.t  view on Meta::CPAN

plan tests => 7;

# Test 1: Basic Hrana Protocol Communication
subtest 'Hrana Protocol Direct Test' => sub {
    plan tests => 4;
    
    my $ua = LWP::UserAgent->new(timeout => 10);
    my $json = JSON->new->utf8;
    
    # Test health endpoint
    my $health_response = $ua->get('http://127.0.0.1:8080/health');
    ok($health_response->is_success, 'Health endpoint accessible');
    
    # Test Hrana pipeline endpoint
    my $request = HTTP::Request->new('POST', 'http://127.0.0.1:8080/v2/pipeline');
    $request->header('Content-Type' => 'application/json');
    
    my $pipeline_data = {
        requests => [
            {
                type => 'execute',
                stmt => {
                    sql => 'SELECT 1 as test_value',
                    args => []