[Rt-commit] rt branch, 3.8-trunk, updated. rt-3.8.6-33-g1a8fd23

[sunnavy at bestpractical.com]

The branch, 3.8-trunk has been updated
       via  1a8fd23ee6c068f9d7f949ada4c28be31e1b8dfe (commit)
      from  b58cd4fe84a350a56c1808d5181a46ea48390d5d (commit)

Summary of changes:
 t/web/saved_search_chart.t |   54 ++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 54 insertions(+), 0 deletions(-)
 create mode 100644 t/web/saved_search_chart.t

- Log -----------------------------------------------------------------
commit 1a8fd23ee6c068f9d7f949ada4c28be31e1b8dfe
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Mon Oct 26 22:28:47 2009 +0800

    add t/web/saved_search_chart.t

diff --git a/t/web/saved_search_chart.t b/t/web/saved_search_chart.t
new file mode 100644
index 0000000..5fe88e8
--- /dev/null
+++ b/t/web/saved_search_chart.t
@@ -0,0 +1,54 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use RT::Test tests => 9;
+my ( $url, $m ) = RT::Test->started_ok;
+
+# merged tickets still show up in search
+my $ticket = RT::Ticket->new($RT::SystemUser);
+my ( $ret, $msg ) = $ticket->Create(
+    Subject   => 'base ticket' . $$,
+    Queue     => 'general',
+    Owner     => 'root',
+    Requestor => 'root at localhost',
+    MIMEObj   => MIME::Entity->build(
+        From    => 'root at localhost',
+        To      => 'rt at localhost',
+        Subject => 'base ticket' . $$,
+        Data    => "",
+    ),
+);
+ok( $ret, "ticket created: $msg" );
+
+ok( $m->login, 'logged in' );
+
+$m->get( $url . "/Search/Chart.html?Query=" . 'id=1' );
+is( $m->{'status'}, 200, "Loaded /Search/Chart.html" );
+my ($owner) = $m->content =~ /value="(RT::User-\d+)"/;
+
+$m->submit_form(
+    form_name => 'SaveSearch',
+    fields    => {
+        SavedSearchDescription => 'first chart',
+        SavedSearchOwner       => $owner,
+    },
+    button => 'SavedSearchSave',
+);
+
+$m->content_like(qr/Chart first chart saved/);
+
+my ($search) = $m->content =~ /value="(RT::User-\d+-SavedSearch-\d+)"/;
+$m->submit_form(
+    form_name => 'SaveSearch',
+    fields      => { SavedSearchLoad => $search },
+);
+
+$m->content_like(qr/name="SavedSearchDelete"\s+value="Delete"/);
+TODO: {
+    local $TODO = 'add Saved Chart Search fully update support';
+    $m->content_like(qr/name="SavedSearchDescription"\s+value="first chart"/);
+    $m->content_like(qr/name="SavedSearchSave"\s+value="Update"/);
+    $m->content_unlike(qr/name="SavedSearchSave"\s+value="Save"/);
+}
+

-----------------------------------------------------------------------