From Code to Community: Sponsoring The Perl and Raku Conference 2025 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_target_association_and_set_all_fields : Test(3) {
my $target_association = Microsoft::AdCenter::V8::CampaignManagementService::TargetAssociation->new
->DeviceOSTarget('device ostarget')
->Id('id')
;
ok($target_association);
is($target_association->DeviceOSTarget, 'device ostarget', 'can get device ostarget');
is($target_association->Id, 'id', 'can get id');
};
1;