[Rt-commit] r6222 - in rtir/branches/2.1-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Wed Oct 18 15:55:46 2006
New Revision: 6222

Added:
   rtir/branches/2.1-EXPERIMENTAL/t/015-make-clicky.t
Modified:
   rtir/branches/2.1-EXPERIMENTAL/   (props changed)

Log:
 r1727 at cubic-pc:  cubic | 2006-10-19 00:03:49 +0400
 * initial make clicky tests


Added: rtir/branches/2.1-EXPERIMENTAL/t/015-make-clicky.t
==============================================================================
--- (empty file)
+++ rtir/branches/2.1-EXPERIMENTAL/t/015-make-clicky.t	Wed Oct 18 15:55:46 2006
@@ -0,0 +1,56 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 185;
+
+require "t/rtir-test.pl";
+
+use_ok('RT');
+RT::LoadConfig();
+RT::Init();
+
+use_ok('RT::IR');
+
+
+my $agent = default_agent();
+my $rtir_user = RT::CurrentUser->new( rtir_user() );
+
+my %clicky = map { lc $_ => 1 } RT->Config->Get('Active_MakeClicky');
+
+diag "clicky ip" if $ENV{'TEST_VERBOSE'};
+{
+    my $id = create_ir( $agent, { Subject => 'clicky ip', Content => '1.0.0.0' } );
+    display_ticket($agent, $id);
+    my @links = $agent->followable_links;
+    if ( $clicky{'ip'} ) {
+        my ($lookup_link) = grep lc $_->text eq 'lookup ip', @links;
+        ok($lookup_link, "found link");
+        ok($lookup_link->url =~ /(?<!\d)1\.0\.0\.0(?!\d)/, 'url has an ip' );
+    } else {
+        ok(!grep( lc $_->text eq 'lookup ip', @links ), "not found link");
+    }
+
+    $id = create_ir( $agent, { Subject => 'clicky ip', Content => '255.255.255.255' } );
+    display_ticket($agent, $id);
+    @links = $agent->followable_links;
+    if ( $clicky{'ip'} ) {
+        my ($lookup_link) = grep lc $_->text eq 'lookup ip', @links;
+        ok($lookup_link, "found link");
+        ok($lookup_link->url =~ /(?<!\d)255\.255\.255\.255(?!\d)/, 'url has an ip' );
+    } else {
+        ok(!grep( lc $_->text eq 'lookup ip', @links ), "not found link");
+    }
+
+    $id = create_ir( $agent, { Subject => 'clicky ip', Content => '255.255.255.256' } );
+    display_ticket($agent, $id);
+    @links = $agent->followable_links;
+    ok(!grep( lc $_->text eq 'lookup ip', @links ), "not found link");
+
+    $id = create_ir( $agent, { Subject => 'clicky ip', Content => '355.255.255.255' } );
+    display_ticket($agent, $id);
+    @links = $agent->followable_links;
+    ok(!grep( lc $_->text eq 'lookup ip', @links ), "not found link");
+}
+