use strict;
use warnings;

BEGIN { # set test env otherwise get development config settings - unless explicitly
    # set at command-line: "DANCER_ENVIRONMENT=development prove -lv t/"
    $ENV{DANCER_ENVIRONMENT} ||= $ENV{PLACK_ENV} ||= 'test';
    # set EMAIL_SENDER_TRANSPORT=TestFail at command line to force email failure:
    $ENV{EMAIL_SENDER_TRANSPORT} ||= 'Test'; # default to Test if not set at command-line
}

use IO::All;
use Plack::Test;
use HTTP::Cookies;
use Plack::Builder;
use Data::Printer alias => 'ddp'; # ddp \%ENV;
use HTTP::Request::Common; # GET

use Test::More;
use Test::Most; # bail_on_fail

require_ok('Reporter::Test');  # also loads Reporter::Class - imports Data::Printer, Moo, etc
require_ok('Reporter::Routes');
require_ok('Reporter::Routes::AJAX');

# create app; run 2 separate apps so login for ajax calls not required; requests
# to '/ajax/...' are handled by Routes::AJAX in preference to Routes prefix '/ajax'
my $app = builder {
    mount '/'     => Reporter::Routes->to_app;
    mount '/ajax' => Reporter::Routes::AJAX->to_app;
};

isa_ok( $app, 'CODE' );
my $test = Plack::Test->create($app);

# create a testing object for model:
my $model = Reporter::Test->new->app->model;
# get model dbix (using sqlite db):
my $dbix  = $model->db->dbix; # ddp $dbix->dbh->{Name};

# check test scripts using sqlite in-memory db:
bail_on_fail;
like  ($dbix->dbh->{Name}, qr/:memory:/, 'sqlite db in use');

use lib 't';
use schema;
run_schema($dbix); # create tables & add some data (users, requests, request_specimen, etc)

my $user_id = 1;
{ # user roles:
    my $response = $test->request( POST '/login',
        [ userid => 'queenie', password => 'Queenie' ] ); # p $response;

    # handle cookies for next request:
    my $cookie_jar = HTTP::Cookies->new;
    $cookie_jar->extract_cookies($response);
        # my @cookies;
        # $cookie_jar->scan( sub { @cookies = @_ }); p \@cookies;
    # create HTTP::Request object and add cookies to it:
    my $request = GET 'http://localhost/'; # full url to match cookie expectation
    $cookie_jar->add_cookie_header( $request ); # p $request->dump;
    # resubmit, should get search page:
    my $content = $test->request( $request ); # p $content;
    like( $content->as_string, qr/Miranda(\s+)RICHARDSON/, 'logged in user displayed' );
    unlike( $content->as_string, qr/register/, 'register link not present' );
    # error if requested directly:
    $request = GET 'http://localhost/register'; # full url to match cookie expectation
    $cookie_jar->add_cookie_header( $request ); # p $request->dump;
    # resubmit, should get search page:
    $content = $test->request( $request ); # p $content;
    is( $content->code, 403, 'forbidden request' );

    { # register admin user role:
        my %h = (
            user_id => $user_id,
            function_id   => 1,
            function_name => 'admin',
        );
        $dbix->insert('user_permission_view', \%h);
        # login again:
        $response = $test->request( POST 'http://localhost/login',
            [ userid => 'queenie', password => 'Queenie' ] ); # p $response;
        my $cookie_jar = HTTP::Cookies->new;
        $cookie_jar->extract_cookies($response);
        # request register link:
        $request = GET 'http://localhost/register'; # full url to match cookie expectation
        $cookie_jar->add_cookie_header( $request ); # p $request->dump;
        $content = $test->request( $request ); # p $content;
        is( $content->code, 200, 'allowed request' );
        like( $content->as_string, qr/register/, 'register link now present' );
    }
}
{ # register new user:
    # check email transport set to test or die:
    like( $ENV{EMAIL_SENDER_TRANSPORT}, qr/Test/, 'safe email transport set' )
        or BAIL_OUT('unsafe email transport set');
    # login:
    my $response = $test->request( POST '/login',
        [ userid => 'queenie', password => 'Queenie' ] ); # p $response;
    # handle cookies for next request:
    my $cookie_jar = HTTP::Cookies->new;
    $cookie_jar->extract_cookies($response);
    # create HTTP::Request object and add cookies to it:
    my $request = GET 'http://localhost/register'; # full url to match cookie expectation
    $cookie_jar->add_cookie_header( $request ); # p $request->dump;
    # resubmit, should get registration page:
    my $content = $test->request( $request ); # p $content->as_string;
    my %user = (
        first_name  => 'tony',
        last_name   => 'robinson',
        email       => 'baldrick@email.com',
        username    => 'baldrick',
        password    => 'Imbecile',
    );
    $request = POST 'http://localhost/register', \%user; # full url to match cookie expectation
    $cookie_jar->add_cookie_header( $request ); # p $request->dump;
    $content = $test->request( $request ); # p $content->as_string; exit;
    # my @deliveries = Email::Sender::Simple->default_transport->deliveries; p \@deliveries; exit;
    is( $content->code, 200, 'request OK' );
    my $content_string = $content->as_string; # p $content_string;
    # uncomment to dump html to file:
    # io('/tmp/draft_reporter_email_message.html')->print($content_string);

    # success or failure depends on $ENV{EMAIL_SENDER_TRANSPORT} setting:
    my $status_msg = $ENV{EMAIL_SENDER_TRANSPORT} eq 'TestFail'
        ? 'email failed: test delivery failure' : 'Message sent OK';
    like( $content_string, qr/$status_msg/, 'expected test email response' );

    like( $content_string, qr/to: $user{email}/, 'expected user email' );
    like( $content_string, qr/from: no-reply\@hmds.info/, 'expected from address' );
    like( $content_string, qr/reply-to: hmds.lth\@nhs.net/, 'expected reply-to address' );
    like( $content_string, qr/cc: hmds.lth\@nhs.net/, 'expected copy-to address' );
    like( $content_string, qr/subject: HMDS draft reporter registration/,
         'expected subject line' );
    like( $content_string, qr/Your HMDS draft reporter registration details/,
         'expected text body' );
    like( $content_string, qr/username: $user{email}/, 'expected username' ); # email NOT username
    like( $content_string, qr/password: $user{password}/, 'expected password' );
    # test Email::Sender::Simple->default_transport->deliveries:
    SKIP: { # only tests headers, doesn't test any more than above $message:
        $ENV{EMAIL_SENDER_TRANSPORT} eq 'Test'
            or skip 'unsuitable EMAIL_SENDER_TRANSPORT setting', 4;
        my @deliveries = Email::Sender::Simple->default_transport->deliveries; # p \@deliveries;
        my $ref = $deliveries[0]; # only 1 msg
        is( $ref->{envelope}->{from}, 'no-reply@hmds.info',
            'expected from address' );
        for my $recipient ($user{email}, 'hmds.lth@nhs.net') {
            my $n = grep { $recipient eq $_ } @{ $ref->{envelope}->{to} }; # p $n;
            is( $n, 1, 'expected recipient' );
        }
        is( scalar @{ $ref->{successes} }, 2,
            'expected number of recipient successes');
    }
}
{ # ajax call (don't need to be logged in as AJAX is separate app under psgi):
    my $url = 'http://localhost/ajax/get_diagnoses?diagnosis=cll';
    my $response = $test->request( GET $url ); # ddp $request->as_string;
    like( $response->as_string, qr{9823/3}, 'expected icdo3 code' );
    like( $response->as_string, qr{CLL}, 'expected diagnosis' );
}

done_testing(27);