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_ad_group_negative_keywords_and_set_all_fields : Test(3) {
my $ad_group_negative_keywords = Microsoft::AdCenter::V7::CampaignManagementService::AdGroupNegativeKeywords->new
->AdGroupId('ad group id')
->NegativeKeywords('negative keywords')
;
ok($ad_group_negative_keywords);
is($ad_group_negative_keywords->AdGroupId, 'ad group id', 'can get ad group id');
is($ad_group_negative_keywords->NegativeKeywords, 'negative keywords', 'can get negative keywords');
};
1;