#!perl -w
use strict;
use warnings;
use Test::Most tests => 23;
use lib 't/lib';
use MyLogger;
BEGIN {
        use_ok('CGI::Info');
}
PROTOCOL: {
        delete $ENV{'SERVER_PORT'};
        delete $ENV{'SCRIPT_URI'};
        delete $ENV{'SCRIPT_PROTOCOL'};
        my $i = new_ok('CGI::Info' => [ logger => MyLogger->new() ]);
        ok(!defined($i->protocol()));
        $ENV{'SCRIPT_URI'} = 'http://www.example.com';
        $i = new_ok('CGI::Info');
        ok($i->protocol() eq 'http');
        $ENV{'SCRIPT_URI'} = 'xyzzy';
        $i = new_ok('CGI::Info' => [ logger => MyLogger->new() ]);
        diag('Ignore messages about not being able to determine the calling protocol');
        ok(!defined($i->protocol()));
        $ENV{'SCRIPT_URI'} = 'https://www.example.com';
        $i = new_ok('CGI::Info');
        ok($i->protocol() eq 'https');
        $ENV{'SERVER_PORT'} = 443;
        delete $ENV{'SCRIPT_URI'};
        $i = new_ok('CGI::Info');
        ok($i->protocol() eq 'https');
        ok(CGI::Info->protocol() eq 'https');
        $ENV{'SERVER_PORT'} = 80;
        $i = new_ok('CGI::Info');
        ok(defined($i->protocol()));
        ok($i->protocol() eq 'http');
        $ENV{'SERVER_PORT'} = 21;
        $i = new_ok('CGI::Info' => [ logger => MyLogger->new() ]);
        ok(!defined($i->protocol()));
        ok(!defined(CGI::Info->protocol()));
        $ENV{'SERVER_PROTOCOL'} = 'HTTP/1.1';
        $i = new_ok('CGI::Info');
        ok($i->protocol() eq 'http');
        ok(CGI::Info->protocol() eq 'http');
        delete $ENV{'SERVER_PORT'};
        $ENV{'SERVER_PROTOCOL'} = 'UNKNOWN';
        $i = new_ok('CGI::Info');
        ok(!defined($i->protocol()));
}