migrate Activity getEditForm to FormBuilder

t/Operation/Workflow.t

@@ -0,0 +1,92 @@
+# vim:syntax=perl
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2009 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#------------------------------------------------------------------
+
+# Test the forms for Workflow editing
+# 
+#
+
+use FindBin;
+use strict;
+use lib "$FindBin::Bin/lib";
+use Test::More;
+use WebGUI::Test; # Must use this before any other WebGUI modules
+use WebGUI::Session;
+use WebGUI::Test::Mechanize;
+
+#----------------------------------------------------------------------------
+# Init
+my $session         = WebGUI::Test->session;
+
+#----------------------------------------------------------------------------
+# Tests
+
+plan tests => 14;        # Increment this number for each test you create
+
+#----------------------------------------------------------------------------
+# Add a workflow
+my $mech = WebGUI::Test::Mechanize->new( config => WebGUI::Test->file );
+$mech->get_ok( '/' );
+$mech->session->user({ userId => 3 });
+
+$mech->get_ok( '?op=addWorkflow' );
+$mech->submit_form_ok({
+        fields => {
+            type => "None",
+        },
+    },
+    "Add a new workflow"
+);
+
+my $workflowId = $mech->value( 'workflowId' );
+ok( $workflowId, "workflow id in edit form" );
+ok( my $workflow = WebGUI::Workflow->new( $mech->session, $workflowId ), "can be instanced" );
+WebGUI::Test::addToCleanup( $workflow );
+is( $workflow->get('type'), "None", "type set correctly" );
+
+my %workflowFields = (
+    title           => 'New Test Workflow',
+    description     => 'Descriptive',
+);
+$mech->submit_form_ok({
+        fields => \%workflowFields,
+    },
+    "Update the new workflow's name and settings",
+);
+
+$workflow = WebGUI::Workflow->new( $mech->session, $workflowId );
+is( $workflow->get('title'), $workflowFields{title}, "title set correctly" );
+is( $workflow->get('description'), $workflowFields{description}, "description set correctly" );
+
+# Add an activity
+$mech->follow_link_ok(
+    {
+        url_regex => qr/WebGUI::Workflow::Activity::DeleteExpiredSessions/,
+    },
+    "Add a DeleteExpiredSessions activity",
+);
+
+my %activityFields = (
+    title    => 'New Workflow Activity',
+    description => 'As if you needed one.',
+);
+$mech->submit_form_ok({
+        fields => \%activityFields,
+    },
+    "Edit the activity properties",
+);
+
+my $activities = $workflow->getActivities;
+is( @$activities, 1, 'workflow has one activity' );
+is( $activities->[0]->get('title'), $activityFields{title}, "activity title set" );
+is( $activities->[0]->get('description'), $activityFields{description}, "activity description set" );
+
+
+#vim:ft=perl