From 6587f6ba7d047ddc1686c080090afe7d53365bd4 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 24 Apr 2012 11:35:56 -0700
Subject: first pass RT4 merge, RT#13852

---
 rt/t/web/class_create.t | 75 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100644 rt/t/web/class_create.t

(limited to 'rt/t/web/class_create.t')

diff --git a/rt/t/web/class_create.t b/rt/t/web/class_create.t
new file mode 100644
index 000000000..cec41a8aa
--- /dev/null
+++ b/rt/t/web/class_create.t
@@ -0,0 +1,75 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use RT::Test tests => 13;
+
+my ( $baseurl, $m ) = RT::Test->started_ok;
+ok $m->login, 'logged in as root';
+my $root = RT::User->new(RT->SystemUser);
+ok( $root->Load('root'), 'load root user' );
+
+my $class_name = 'test class';
+
+my $class_id;
+diag "Create a class";
+{
+    $m->follow_link( id => 'tools-config-articles-classes-create');
+
+    # Test class form validation
+    $m->submit_form(
+        form_name => 'ModifyClass',
+        fields => {
+            Name => '',
+        },
+    );
+    $m->text_contains('Invalid value for Name');
+    $m->submit_form(
+        form_name => 'ModifyClass',
+        fields => {
+            Name => '0',
+        },
+    );
+    $m->text_contains('Invalid value for Name');
+    $m->submit_form(
+        form_name => 'ModifyClass',
+        fields => {
+            Name => '1',
+        },
+    );
+    $m->text_contains('Invalid value for Name');
+    $m->submit_form(
+        form_name => 'ModifyClass',
+        fields => {
+            Name => $class_name,
+        },
+    );
+    $m->content_contains('Object created', 'created class sucessfully' );
+
+    # Test validation on updae
+    $m->form_name('ModifyClass');
+    $m->set_fields(
+        Name => '',
+    );
+    $m->click_button(value => 'Save Changes');
+    $m->text_contains('Illegal value for Name');
+
+    $m->form_name('ModifyClass');
+    $m->set_fields(
+        Name => '0',
+    );
+    $m->click_button(value => 'Save Changes');
+    $m->text_contains('Illegal value for Name');
+
+    $m->form_name('ModifyClass');
+    $m->set_fields(
+        Name => '1',
+    );
+    $m->click_button(value => 'Save Changes');
+    $m->text_contains('Illegal value for Name');
+
+    $class_id           = $m->form_name('ModifyClass')->value('id');
+    ok $class_id, "found id of the class in the form, it's #$class_id";
+}
+
-- 
cgit v1.2.1