# -*- perl -*-

use strict;
use warnings;
use Data::Dumper qw{Dumper};
use Test::More tests => 8;

BEGIN { use_ok( 'SMS::Send::Driver::WebService' ); }

my $service = SMS::Send::Driver::WebService->new(
                                                 username    => "user_new",
                                                 password    => "pass_new",
                                                 host        => "host_new",
                                                 protocol    => "protocol_new",
                                                 port        => "port_new",
                                                 script_name => "script_name_new",
                                                );

isa_ok ($service, 'SMS::Send::Driver::WebService');
isa_ok ($service, 'SMS::Send::Driver');
is($service->username   ("user_set"),        'user_set'       , 'username');
is($service->host       ("host_set"),        'host_set'       , 'host');
is($service->protocol   ("protocol_set"),    'protocol_set'   , 'protocol');
is($service->port       ("port_set"),        'port_set'       , 'port');
is($service->script_name("script_name_set"), 'script_name_set', 'script_name');
