[Rt-commit] r7880 - in rtfm/branches/2.1-TESTING: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue May 15 23:44:35 2007
New Revision: 7880

Added:
   rtfm/branches/2.1-TESTING/t/search.t
Modified:
   rtfm/branches/2.1-TESTING/   (props changed)

Log:
 r327 at cubic-pc:  cubic | 2007-05-16 07:27:12 +0400
 * add a tests provided by Dirk Pape


Added: rtfm/branches/2.1-TESTING/t/search.t
==============================================================================
--- (empty file)
+++ rtfm/branches/2.1-TESTING/t/search.t	Tue May 15 23:44:35 2007
@@ -0,0 +1,101 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More qw(no_plan);
+BEGIN { require 't/utils.pl' }
+
+use_ok 'RT';
+RT::LoadConfig();
+RT::Init();
+
+my $suffix = '';
+
+my $CurrentUser = $RT::SystemUser;
+
+use_ok 'RT::FM::Class';
+use_ok 'RT::FM::Article';
+use_ok 'RT::CustomField';
+
+my $classname = 'TestClass';
+my $class = RT::FM::Class->new( $CurrentUser );
+{
+    $class->Load( $classname );
+    unless ( $class->Id ) {
+        my ($id, $msg) = $class->Create(
+            Name => $classname,
+            Description => 'class for cf tests',
+        );
+        ok $id, "created class '$classname' #$id"
+            or diag "error: $msg";
+    } else {
+        ok 1, "class '$classname' exists";
+    }
+}
+
+# create cf
+my $cfname = 'TestCF'. $suffix;
+my $cf = RT::CustomField->new( $CurrentUser );
+{
+    my ($id, $msg) = $cf->Create(
+        Name => $cfname,
+        LookupType => 'RT::FM::Class-RT::FM::Article',
+        Type => 'Select', MaxValues => 1,
+        Description => 'singleselect cf for tests',
+    );
+    ok $id, "created cf '$cfname' #$id"
+        or diag "error: $msg";
+}
+
+# attach cf to class
+{
+    my ($status, $msg) = $cf->AddToObject( $class );
+    ok $status, "attached the cf to the class"
+        or diag "error: $msg";
+}
+  
+# create two cf-values
+{
+    my ($status, $msg) = $cf->AddValue( Name => 'Value1' );
+    ok $status, "added a value to the cf" or diag "error: $msg";
+
+    ($status, $msg) = $cf->AddValue( Name => 'Value2' );
+    ok $status, "added a value to the cf" or diag "error: $msg";
+}
+
+my $article1name = 'TestArticle1'.$suffix;
+my $article1 = new RT::FM::Article($CurrentUser);
+$article1->Create( Name => $article1name, Summary => 'Test', Class => $class->Id);
+$article1->AddCustomFieldValue(Field => $cf->Id, Value => 'Value1');
+
+my $article2name = 'TestArticle2'.$suffix;
+my $article2 = new RT::FM::Article($CurrentUser);
+$article2->Create( Name => $article2name, Summary => 'Test', Class => $class->Id);
+$article2->AddCustomFieldValue(Field => $cf->Id, Value => 'Value2');
+
+# search for articles containing 1st value
+{
+    my $articles = RT::FM::ArticleCollection->new( $CurrentUser );
+    $articles->UnLimit;
+    $articles->Limit( FIELD => "Class", SUBCLAUSE => 'ClassMatch', VALUE => $class->Id);
+    $articles->LimitCustomField( FIELD => $cf->Id, VALUE => 'Value1' );
+    is $articles->Count, 1, 'found correct number of articles';
+}
+
+{
+    my $articles = new RT::FM::ArticleCollection($CurrentUser);
+    $articles->UnLimit;
+    $articles->Limit( FIELD => "Class", SUBCLAUSE => 'ClassMatch', VALUE => $class->Id);
+    $articles->LimitCustomField( FIELD => $cf, VALUE => 'Value1' );    
+    is $articles->Count, 1, 'found correct number of articles';
+}
+
+{
+    my $articles = new RT::FM::ArticleCollection($CurrentUser);
+    $articles->UnLimit( );
+    $articles->Limit( FIELD => "Class", SUBCLAUSE => 'ClassMatch', VALUE => $class->Id);
+    $articles->LimitCustomField( FIELD => $cf->Name, VALUE => 'Value1' );
+    is $articles->Count, 1, 'found correct number of articles';
+}
+