rt/t/api/tickets_overlay_sql.t

   1
   2 use RT;
   3 use RT::Test tests => 19;
   4
   5 {
   6
   7 use RT::Tickets;
   8 use strict;
   9
  10 my $tix = RT::Tickets->new($RT::SystemUser);
  11 {
  12     my $query = "Status = 'open'";
  13     my ($status, $msg)  = $tix->FromSQL($query);
  14     ok ($status, "correct query") or diag("error: $msg");
  15 }
  16
  17
  18 my (@created,%created);
  19 my $string = 'subject/content SQL test';
  20 {
  21     my $t = RT::Ticket->new($RT::SystemUser);
  22     ok( $t->Create(Queue => 'General', Subject => $string), "Ticket Created");
  23     $created{ $t->Id }++; push @created, $t->Id;
  24 }
  25
  26 {
  27     my $Message = MIME::Entity->build(
  28                      Subject     => 'this is my subject',
  29                      From        => 'jesse@example.com',
  30                      Data        => [ $string ],
  31             );
  32
  33     my $t = RT::Ticket->new($RT::SystemUser);
  34     ok( $t->Create( Queue => 'General',
  35                     Requestor => 'jesse@example.com',
  36                     Subject => 'another ticket',
  37                     MIMEObj => $Message,
  38                     MemberOf => $created[0]
  39                   ),
  40         "Ticket Created"
  41     );
  42     $created{ $t->Id }++; push @created, $t->Id;
  43 }
  44
  45 {
  46     my $query = ("Subject LIKE '$string' OR Content LIKE '$string'");
  47     my ($status, $msg) = $tix->FromSQL($query);
  48     ok ($status, "correct query") or diag("error: $msg");
  49
  50     my $count = 0;
  51     while (my $tick = $tix->Next) {
  52         $count++ if $created{ $tick->id };
  53     }
  54     is ($count, scalar @created, "number of returned tickets same as entered");
  55 }
  56
  57 {
  58     my $query = "id = $created[0] OR MemberOf = $created[0]";
  59     my ($status, $msg) = $tix->FromSQL($query);
  60     ok ($status, "correct query") or diag("error: $msg");
  61
  62     my $count = 0;
  63     while (my $tick = $tix->Next) {
  64         $count++ if $created{ $tick->id };
  65     }
  66     is ($count, scalar @created, "number of returned tickets same as entered");
  67 }
  68
  69 diag "Make sure we don't barf on invalid input for IS / IS NOT";
  70 {
  71     my ($status, $msg) = $tix->FromSQL("Subject IS 'foobar'");
  72     ok ($status, "valid query") or diag("error: $msg");
  73     is $tix->Count, 0, "found no tickets";
  74     unlike $tix->BuildSelectQuery, qr/foobar/, "didn't find foobar in the select";
  75     like $tix->BuildSelectQuery, qr/Subject IS NULL/, "found right clause";
  76
  77     my ($status, $msg) = $tix->FromSQL("Subject IS NOT 'foobar'");
  78     ok ($status, "valid query") or diag("error: $msg");
  79     is $tix->Count, 2, "found two tickets";
  80     unlike $tix->BuildSelectQuery, qr/foobar/, "didn't find foobar in the select";
  81     like $tix->BuildSelectQuery, qr/Subject IS NOT NULL/, "found right clause";
  82 }
  83
  84 {
  85     my ($status, $msg) = $tix->FromSQL("Requestor.Signature LIKE 'foo'");
  86     ok (!$status, "invalid query - Signature not valid") or diag("error: $msg");
  87
  88     my ($status, $msg) = $tix->FromSQL("Requestor.EmailAddress LIKE 'jesse'");
  89     ok ($status, "valid query") or diag("error: $msg");
  90     is $tix->Count, 1, "found one ticket";
  91     like $tix->First->Subject, qr/another ticket/, "found the right ticket";
  92 }
  93
  94 }
  95
  96 1;