rt/lib/t/regression/14merge.t

   1
   2 use Test::More  tests => '6';
   3 use RT;
   4 RT::LoadConfig();
   5 RT::Init();
   6
   7 # when you try to merge duplicate links on postgres, eveyrything goes to hell due to referential integrity constraints.
   8
   9
  10 my $t = RT::Ticket->new($RT::SystemUser);
  11 $t->Create(Subject => 'Main', Queue => 'general');
  12
  13 ok ($t->id);
  14 my $t2 = RT::Ticket->new($RT::SystemUser);
  15 $t2->Create(Subject => 'Second', Queue => 'general');
  16 ok ($t2->id);
  17
  18 my $t3 = RT::Ticket->new($RT::SystemUser);
  19 $t3->Create(Subject => 'Third', Queue => 'general');
  20
  21 ok ($t3->id);
  22
  23 my ($id,$val);
  24 ($id,$val) = $t->AddLink(Type => 'DependsOn', Target => $t3->id);
  25 ok($id,$val);
  26 ($id,$val) = $t2->AddLink(Type => 'DependsOn', Target => $t3->id);
  27 ok($id,$val);
  28
  29
  30 ($id,$val) = $t->MergeInto($t2->id);
  31 ok($id,$val);