view release on metacpan or  search on metacpan

t/02-header.t  view on Meta::CPAN

use Test;
use VMware::API::LabManager;
use strict;

BEGIN { plan tests => 11 };

my $labman = new VMware::API::LabManager (
  qw/username password localhost organizationname workspacename/
);

ok( ref $labman->{auth_header} eq 'SOAP::Header' );
ok( ref $labman->{auth_header}->{_value} eq 'ARRAY' );
ok( ref $labman->{auth_header}->{_value}->[0] eq 'HASH' );

my $header = $labman->{auth_header}->{_value}->[0];

for my $field ( qw/workspacename password organizationname username/ ) {
  ok( defined $header->{$field} );
  ok( $header->{$field} eq $field );
}