view release on metacpan or  search on metacpan

xt/initialdata.t  view on Meta::CPAN

use strict;
use warnings;

use RT::Extension::ConditionalCustomFields::Test tests => 19;

my $firstinitialdata = RT::Test::get_relocatable_file("firstcf" => "data");
my ($rv, $msg) = RT->DatabaseHandle->InsertData( $firstinitialdata, undef, disconnect_after => 0 );
ok($rv, "Inserted test data from $firstinitialdata: $msg");

my $initialdata = RT::Test::get_relocatable_file("initialdata" => "data");
($rv, $msg) = RT->DatabaseHandle->InsertData( $initialdata, undef, disconnect_after => 0 );
ok($rv, "Inserted test data from $initialdata: $msg");

my $attributes = RT::Attributes->new(RT->SystemUser);
$attributes->Limit(FIELD => 'Name', VALUE => 'ConditionedBy');
is($attributes->Count, 3, 'All attributes created');
my $first_attribute_id = 7;
while (my $attribute = $attributes->Next) {
    if ($attribute->id == $first_attribute_id) {
        is($attribute->Content->{CF}, 3, 'First ConditionedBy CF');