use strict;
use warnings;
use RT;
-use RT::Test tests => 16;
-
+use RT::Test tests => undef;
{
}
+
+{
+ my $tickets = RT::Tickets->new( RT->SystemUser );
+ $tickets->Limit( FIELD => 'id', OPERATOR => '>', VALUE => 0 );
+ my $count = $tickets->Count();
+ ok $count > 1, "found more than one ticket";
+ undef $count;
+
+ $tickets->Limit( FIELD => 'id', OPERATOR => '=', VALUE => 1, ENTRYAGGREGATOR => 'none' );
+ $count = $tickets->Count();
+ ok $count == 1, "found one ticket";
+}
+
+{
+ my $tickets = RT::Tickets->new( RT->SystemUser );
+ my ($ret, $msg) = $tickets->FromSQL("Resolved IS NULL");
+ ok $ret, "Ran query with IS NULL: $msg";
+ my $count = $tickets->Count();
+ ok $count > 1, "Found more than one ticket";
+ undef $count;
+}
+
+{
+ my $ticket = RT::Ticket->new( RT->SystemUser );
+ ok $ticket->Load(1), "Loaded test ticket 1";
+ ok $ticket->SetStatus('resolved'), "Set to resolved";
+
+ my $tickets = RT::Tickets->new( RT->SystemUser );
+ my ($ret, $msg) = $tickets->FromSQL("Resolved IS NOT NULL");
+ ok $ret, "Ran query with IS NOT NULL: $msg";
+ my $count = $tickets->Count();
+ ok $count == 1, "Found one ticket";
+ undef $count;
+}
+
+{
+ my $tickets = RT::Tickets->new( RT->SystemUser );
+ $tickets->LimitDate( FIELD => "Resolved", OPERATOR => "IS", VALUE => "NULL" );
+ $tickets->LimitDate( FIELD => "Resolved", OPERATOR => "IS NOT", VALUE => "NULL" );
+ my $count = $tickets->Count();
+ ok $count > 1, "Found more than one ticket";
+ undef $count;
+}
+
+done_testing;