rt/t/ticket/search_by_txn.t

   1
   2 use warnings;
   3 use strict;
   4
   5
   6 BEGIN{ $ENV{'TZ'} = 'GMT'};
   7
   8 use RT::Test tests => 10;
   9
  10 my $SUBJECT = "Search test - ".$$;
  11
  12 use_ok('RT::Tickets');
  13 my $tix = RT::Tickets->new(RT->SystemUser);
  14 can_ok($tix, 'FromSQL');
  15 $tix->FromSQL('Updated = "2005-08-05" AND Subject = "$SUBJECT"');
  16
  17 ok(! $tix->Count, "Searching for tickets updated on a random date finds nothing" . $tix->Count);
  18
  19 my $ticket = RT::Ticket->new(RT->SystemUser);
  20 $ticket->Create(Queue => 'General', Subject => $SUBJECT);
  21 ok ($ticket->id, "We created a ticket");
  22 my ($id, $txnid, $txnobj) =  $ticket->Comment( Content => 'A comment that happend on 2004-01-01');
  23
  24 isa_ok($txnobj, 'RT::Transaction');
  25
  26 ok($txnobj->CreatedObj->ISO);
  27 my ( $sid,$smsg) = $txnobj->__Set(Field => 'Created', Value => '2005-08-05 20:00:56');
  28 ok($sid,$smsg);
  29 is($txnobj->Created,'2005-08-05 20:00:56');
  30 is($txnobj->CreatedObj->ISO,'2005-08-05 20:00:56');
  31
  32 $tix->FromSQL(qq{Updated = "2005-08-05" AND Subject = "$SUBJECT"});
  33 is( $tix->Count, 1);
  34