use strict;
use warnings;
use RT;
-use RT::Test tests => 34;
+use RT::Test nodata => 1, tests => 34;
ok(require RT::Attributes);
-my $user = RT::User->new($RT::SystemUser);
+my $user = RT::User->new(RT->SystemUser);
ok (UNIVERSAL::isa($user, 'RT::User'));
my ($id,$msg) = $user->Create(Name => 'attrtest-'.$runid);
ok ($id, $msg);
@names = $attr->Names;
is("@names", "TestAttr");
-
-
-1;