added tests for movefield

t/Asset/Wobject/DataForm/moveField.t

@@ -0,0 +1,107 @@
+# vim:syntax=perl
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2008 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
+#------------------------------------------------------------------
+
+# This tests the moveField functions of the DataForm
+# 
+#
+
+use FindBin;
+use strict;
+use lib "$FindBin::Bin/../../../lib";
+use Test::More;
+use Test::Deep;
+use WebGUI::Test; # Must use this before any other WebGUI modules
+use WebGUI::Asset;
+use WebGUI::Asset::Wobject::DataForm;
+use WebGUI::VersionTag;
+use WebGUI::Session;
+
+#----------------------------------------------------------------------------
+# Init
+my $session         = WebGUI::Test->session;
+
+# Create a DataForm
+my $df  = WebGUI::Asset->getImportNode( $session )
+        ->addChild( {
+            className           => "WebGUI::Asset::Wobject::DataForm",
+            mailData            => 0,
+            fieldConfiguration  => '[]',
+        } );
+
+# Add three fields to the DataForm
+$df->createField( "one", { label => "One" } );
+$df->createField( "two", { label => "Two" } );
+$df->createField( "three", { label => "Three" } );
+
+#----------------------------------------------------------------------------
+# Tests
+
+plan tests => 5;        # Increment this number for each test you create
+
+#----------------------------------------------------------------------------
+# Move Field Up
+
+# Test the current positions of the fields
+cmp_deeply( 
+    $df->getFieldOrder, 
+    [ 'one', 'two', 'three' ], 
+    "Fields start in order they're added", 
+);
+
+# Move the field
+$df->moveFieldUp( 'three' );
+
+# Test the new positions of the fields
+cmp_deeply(
+    $df->getFieldOrder,
+    [ 'one', 'three', 'two' ],
+    "Field 'three' is moved up",
+);
+
+$df->moveFieldUp( 'one' );
+
+cmp_deeply(
+    $df->getFieldOrder,
+    [ 'one', 'three', 'two' ],
+    "Field 'one' can't be moved up any more",
+);
+
+#----------------------------------------------------------------------------
+# Move Field Down
+
+# Move the field
+$df->moveFieldDown( 'three' );
+
+# Test the new positions of the fields
+cmp_deeply(
+    $df->getFieldOrder,
+    [ 'one', 'two', 'three' ],
+    "Field 'three' is moved down",
+);
+
+# Move the field
+$df->moveFieldDown( 'three' );
+
+# Test the new positions of the fields
+cmp_deeply(
+    $df->getFieldOrder,
+    [ 'one', 'two', 'three' ],
+    "Field 'three' can't be moved down any more ",
+);
+
+
+#----------------------------------------------------------------------------
+# Cleanup
+END {
+    $df->purge;
+    WebGUI::VersionTag->getWorking( $session )->rollback;
+}
+#vim:ft=perl