File Coverage

blib/lib/swat.pm

Criterion	Covered	Total	%
statement	30	170	17.6
branch	0	70	0.0
condition	0	18	0.0
subroutine	10	18	55.5
pod	0	1	0.0
total	40	277	14.4

package swat;

our $VERSION = '0.1.96';

use base 'Exporter';

our @EXPORT = qw{version};

sub version {
    print $VERSION, "\n"
}


1;

package main;

use strict;

use Carp;
use File::Temp qw/ tempfile /;

use Test::More;
use swat::story;

use Carp;
use Config::Tiny;
use YAML qw{LoadFile};

use Term::ANSIColor;

my $config;

sub config {

    unless ($config){
        if (get_prop('suite_ini_file_path') and -f get_prop('suite_ini_file_path') ){
          my $path = get_prop('suite_ini_file_path');
          $config = $config = Config::Tiny->read($path) or confess "file $path is not valid .ini file";
        }elsif(get_prop('suite_yaml_file_path') and -f get_prop('suite_yaml_file_path')){
          my $path = get_prop('suite_yaml_file_path');
          ($config) = LoadFile($path);
        }elsif ( -f 'suite.ini' ){
          my $path = 'suite.ini';
          $config = $config = Config::Tiny->read($path) or confess "file $path is not valid .ini file";
        }elsif ( -f 'suite.yaml'){
          my $path = 'suite.yaml';
          ($config) = LoadFile($path);
        }else{
          confess "configuration file is not found"
        }
    }

    return $config;
}

sub make_http_request {

    return if get_prop('response_done');

    my ($fh, $content_file) = tempfile( DIR => get_prop('test_root_dir') );

    my $try_i;

    my $try = get_prop('try_num');

    if (get_prop('response') and @{get_prop('response')} ){

        ok(1,'server response is spoofed');

        open F, ">", $content_file or die $!;
        print F ( join "\n", @{get_prop('response')});
        close F;

        open F, ">", "$content_file.stderr" or die $!;
        close F;

        open F, ">", "$content_file.hdr" or die $!;
        close F;

        note "response saved to $content_file";

    }else{

        my $curl_cmd = get_prop('curl_cmd');
        my $hostname = get_prop('hostname');
        my $resource = get_prop('resource');
        my $http_method = get_prop('http_method');

        my $curl_runner = "$curl_cmd -w '%{response_code}' -D $content_file.hdr -o $content_file --stderr $content_file.stderr '$hostname$resource' > $content_file.http_status";
        my $curl_runner_short = tapout( "$curl_cmd -D - '$hostname$resource'", ['cyan'] );
        my $http_status = 0;

        TRY: for my $i (1..$try){
            note("try N [$i] $curl_runner") if debug_mod12();
            $try_i = $i;
            system($curl_runner);
            if(open HTTP_STATUS, "$content_file.http_status"){
                $http_status = ;
                close HTTP_STATUS;
                chomp $http_status;
                note("got http status: $http_status") if debug_mod12();
                last TRY if $http_status < 400 and $http_status > 0;
                last TRY if $http_status >= 400 and ignore_http_err();

            }
            my $delay = ($i)**2;
            note("sleep for $delay seconds before next try") if debug_mod12();
            sleep $delay;

        }


        #note($curl_runner);

        if ( $http_status < 400 and $http_status > 0 ) {

             ok(1, tapout( $http_status, ['green'] )." / $try_i of $try ".$curl_runner_short);

        }elsif(ignore_http_err()){

            ok(1, tapout( $http_status, ['red'] )." / $try_i of $try ".$curl_runner_short);
            note(
                tapout(
                    "server returned bad response, ".
                    "but we still continue due to ignore_http_err set to 1",
                    ['red']
                )
            );

        }else{

            ok(1, tapout( $http_status, ['red'] )." / $try_i of $try ".$curl_runner_short);

            note "stderr:";

            open CURL_ERR, "$content_file.stderr" or die $!;
            while  ( my $i = ){
                chomp $i;
                note($i);
            }
            close CURL_ERR;

            note "http headers:";
            open CURL_HDR, "$content_file.hdr" or die $!;
            while  ( my $i = ){
                chomp $i;
                note($i);
            }
            close CURL_HDR;

            note "http body:";
            open CURL_RSP, "$content_file" or die $!;
            while  ( my $i = ){
                chomp $i;
                note($i);
            }
            close CURL_RSP;

            note("can't continue here due to unsuccessfull http status code");
            exit(1);
        }

        if (debug_mod12()) {
            note tapout( "http headers saved to $content_file.hdr", ['bright_blue'] );
            note tapout( "body saved to $content_file", ['bright_blue'] );
        }

    }


    open F, $content_file or die $!;
    my $body_str = '';
    $body_str.= $_ while ;
    close F;

    set_prop( body => $body_str );

    open F, "$content_file.hdr" or die $!;
    my $headers_str = '';
    $headers_str.= $_ while ;
    close F;

    set_prop( headers => $headers_str );

    if (debug_mod12()){
        my $debug_bytes = get_prop('debug_bytes');
        my $bshort = substr( $body_str, 0, $debug_bytes );
        if (length($bshort) < length($body_str)) {
             note("body:\n$bshort ... ( output truncated to $debug_bytes bytes )");
        } else{
             note("body:\n$body_str");
        }
    }


    set_prop( response_done => 1 );

}

sub header {


    my $project = get_prop('project');
    my $swat_module = get_prop('swat_module');
    my $hostname = get_prop('hostname');
    my $resource = get_prop('resource');
    my $http_method = get_prop('http_method');
    my $curl_cmd = get_prop('curl_cmd');
    my $debug = get_prop('debug');
    my $try_num = get_prop('try_num');
    my $ignore_http_err = get_prop('ignore_http_err');

    ok(1, "project: $project");
    ok(1, "hostname: $hostname");
    ok(1, "resource: $resource");
    ok(1, "http method: $http_method");
    ok(1,"swat module: $swat_module");
    ok(1, "debug: $debug");
    ok(1, "try num: $try_num");
    ok(1, "ignore http errors: $ignore_http_err");

}

sub generate_asserts {


    my $check_file = shift;

    header() if debug_mod2();

    dsl()->{debug_mod} = get_prop('debug');

    dsl()->{match_l} = get_prop('match_l');

    return if http_method() eq 'META';

    make_http_request();

    dsl()->{output} = headers().body();

    run_response_processor();

    eval {
        dsl()->validate($check_file);
    };

    my $err = $@;

    for my $r ( @{dsl()->results}){
        note($r->{message}) if $r->{type} eq 'debug';
        ok($r->{status}, $r->{message}) if $r->{type} eq 'check_expression';

    }

    confess "parser error: $err" if $err;

}

sub tapout {

    my $line  = shift;
    my $color = shift;

    if ($ENV{'swat_disable_color'}){
        $line;
    }else{
        colored($color,$line);
    }
}

sub print_meta {

    note('@'.http_method());
    open META, resource_dir()."/meta.txt" or die $!;
    while (my $i = ){
        chomp $i;
        note( tapout( "\t $i", ['yellow'] ));
    }
    close META;

}

sub output_mod {

    return $ENV{output_mod};
}

1;


__END__