#!/usr/bin/perl

#####################
# LOAD CORE MODULES
#####################
use strict;
use warnings;
use Test::More;

# Autoflush
local $| = 1;

# What are we testing?
my $module = "CASCM::Wrapper";

# Load
use_ok($module) or exit;

# Init
my $cascm = new_ok($module) or exit;

my @methods = qw(
  new
  set_context
  load_context
  update_context
  get_context
  errstr
);

my @commands = qw(
  haccess
  hap
  har
  hauthsync
  hcbl
  hccmrg
  hcrrlte
  hchgtype
  hchu
  hci
  hcmpview
  hco
  hcp
  hcpj
  hcropmrg
  hcrtpath
  hdbgctrl
  hdelss
  hdlp
  hdp
  hdv
  hexecp
  hexpenv
  hfatt
  hformsync
  hft
  hgetusg
  himpenv
  hlr
  hlv
  hmvitm
  hmvpkg
  hmvpth
  hpg
  hpkgunlk
  hpp
  hppolget
  hppolset
  hrefresh
  hrepedit
  hrepmngr
  hri
  hrmvpth
  hrnitm
  hrnpth
  hrt
  hsigget
  hsigset
  hsmtp
  hspp
  hsql
  hsv
  hsync
  htakess
  hucache
  hudp
  hup
  husrmgr
  husrunlk
);

my @private = qw(
  _init
  _err
  _run
  _get_run_context
  _get_option_str
  _get_cmd_options
  _handle_error
  _parse_log
);

can_ok( $cascm, @methods );
can_ok( $cascm, @commands );
can_ok( $cascm, @private );

foreach my $cmd (@commands) {
    ok( CASCM::Wrapper::_get_cmd_options("$cmd") )
      or diag "Missing options for $cmd";
} ## end foreach my $cmd (@commands)

done_testing();