view release on metacpan or  search on metacpan

t/Asnmtap/Plugins.t  view on Meta::CPAN

use Test::More tests => 103;

BEGIN { require_ok ( 'ASNMTAP::Asnmtap::Plugins' ) };

BEGIN { use_ok ( 'ASNMTAP::Asnmtap::Plugins' ) };
BEGIN { use_ok ( 'ASNMTAP::Asnmtap::Plugins', qw(:ALL) ) };
BEGIN { use_ok ( 'ASNMTAP::Asnmtap::Plugins', qw(:COMMANDS) ) };
BEGIN { use_ok ( 'ASNMTAP::Asnmtap::Plugins', qw(:_HIDDEN) ) };
BEGIN { use_ok ( 'ASNMTAP::Asnmtap::Plugins', qw(:PLUGINS %ERRORS %STATE %TYPE) ) };

TODO: {
  $ENV{ASNMTAP_PROXY} = "username:password\@server";

  my $objectPlugins = ASNMTAP::Asnmtap::Plugins->new (
    _programName        => 'Plugins.t',
    _programDescription => 'Test ASNMTAP::Asnmtap::Plugins',
    _programVersion     => '3.002.003',
    _programUsagePrefix => '[--commandLineOption]',
    _programHelpPrefix  => '--commandLineOption ...',
    _programGetOptions  => ['commandLineOption=s', 'host|H:s', 'url|U:s', 'port|P:i', 'password|p|passwd:s', 'username|u|loginname:s', 'community|C:s', 'timeout|t:i', 'trendline|T:i', 'environment|e:s', 'proxy:s'],
    _SSLversion         => 23,
    _clientCertificate  => { certFile       => 'ssl/crt/alex-peeters.crt', 
                             keyFile        => 'ssl/key/alex-peeters-nopass.key', 
                             caFile         => 'CA CERT PEER VERIFICATION FILE',
                             caDir          => 'CA CERT PEER VERIFICATION DIR',
                             pkcs12File     => 'CLIENT PKCS12 CERT SUPPORT FILE',
                             pkcs12Password => 'CLIENT PKCS12 CERT SUPPORT PASSWORD'},
    _timeout            => 30,
    _debug              => 0);

  isa_ok( $objectPlugins, 'ASNMTAP::Asnmtap::Plugins' );
  can_ok( $objectPlugins, qw(programName programDescription programVersion getOptionsArgv getOptionsValue debug dumpData printRevision printRevision printUsage printHelp) );
  can_ok( $objectPlugins, qw(appendPerformanceData browseragent SSLversion clientCertificate pluginValue pluginValues proxy timeout setEndTime_and_getResponsTime write_debugfile call_system exit) );

  my ($returnCode, $errorStatus, $status, $stdout, $stderr);

  $returnCode = $objectPlugins->browseragent () eq 'Mozilla/5.0 (compatible; ASNMTAP; U; ASNMTAP 3.002.003 postfix; nl-BE; rv:3.002.003) Gecko/yyyymmdd libwww-perl/5.813' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::browseragent(): get');

  $returnCode = $objectPlugins->browseragent ( 'Mozilla/4.7' ) eq 'Mozilla/4.7' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::browseragent(): set');


  $returnCode = $objectPlugins->SSLversion ( 2 ) == 2 ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::SSLversion(): set 2');

  $returnCode = $objectPlugins->SSLversion ( 3 ) == 3 ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::SSLversion(): set 3');

  $returnCode = $objectPlugins->SSLversion ( 23 ) == 23 ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::SSLversion(): set 23');

  $returnCode = $objectPlugins->SSLversion ( 32 ) == 3 ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::SSLversion(): set 32');


  $returnCode = $objectPlugins->clientCertificate ('certFile') eq 'ssl/crt/alex-peeters.crt' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): get certFile');

  $returnCode = $objectPlugins->clientCertificate ('certFile' => 'certFile') eq 'certFile' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): set certFile');

  $returnCode = $objectPlugins->clientCertificate ('keyFile') eq 'ssl/key/alex-peeters-nopass.key' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): get keyFile');

  $returnCode = $objectPlugins->clientCertificate ('keyFile' => 'keyFile') eq 'keyFile' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): set keyFile');
  
  $returnCode = $objectPlugins->clientCertificate ('caFile') eq 'CA CERT PEER VERIFICATION FILE' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): get caFile');

  $returnCode = $objectPlugins->clientCertificate ('caFile' => 'caFile') eq 'caFile' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): set caFile');

  $returnCode = $objectPlugins->clientCertificate ('caDir') eq 'CA CERT PEER VERIFICATION DIR' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): get caDir');

  $returnCode = $objectPlugins->clientCertificate ('caDir' => 'caDir') eq 'caDir' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): set caDir');

  $returnCode = $objectPlugins->clientCertificate ('pkcs12File') eq 'CLIENT PKCS12 CERT SUPPORT FILE' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): get pkcs12File');

  $returnCode = $objectPlugins->clientCertificate ('pkcs12File' => 'pkcs12File') eq 'pkcs12File' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): set pkcs12File');

  $returnCode = $objectPlugins->clientCertificate ('pkcs12Password') eq 'CLIENT PKCS12 CERT SUPPORT PASSWORD' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): get pkcs12Password');

  $returnCode = $objectPlugins->clientCertificate ('pkcs12Password' => 'pkcs12Password') eq 'pkcs12Password' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): set pkcs12Password');

  $returnCode = $objectPlugins->clientCertificate ('pkcs12Password' => 'pkcs12Password') eq 'pkcs12Password' ? 1 : 0;
  ok ($returnCode, 'ASNMTAP::Asnmtap::Plugins::clientCertificate(): set pkcs12Password');