rt/t/api/link.t

   1
   2 use strict;
   3 use warnings;
   4 use RT;
   5 use RT::Test tests => 5;
   6
   7
   8 {
   9
  10
  11 use RT::Link;
  12 my $link = RT::Link->new($RT::SystemUser);
  13
  14
  15 ok (ref $link);
  16 ok (UNIVERSAL::isa($link, 'RT::Link'));
  17 ok (UNIVERSAL::isa($link, 'RT::Base'));
  18 ok (UNIVERSAL::isa($link, 'RT::Record'));
  19 ok (UNIVERSAL::isa($link, 'DBIx::SearchBuilder::Record'));
  20
  21
  22 }
  23
  24 1;