The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

# Copyright (C) 2012 Xerxes Tsang
# This program is free software; you can redistribute it and/or modify it
# under the terms of Perl Artistic License.
use strict;
use base qw/Test::Class/;
sub test_can_create_hours_of_operation_and_set_all_fields : Test(4) {
my $hours_of_operation = Microsoft::AdCenter::V7::CampaignManagementService::HoursOfOperation->new
->Day('day')
->openTime1('open time1')
->openTime2('open time2')
;
ok($hours_of_operation);
is($hours_of_operation->Day, 'day', 'can get day');
is($hours_of_operation->openTime1, 'open time1', 'can get open time1');
is($hours_of_operation->openTime2, 'open time2', 'can get open time2');
};
1;