add: Thingy asset

t/Asset/Wobject/Thingy.t

@@ -0,0 +1,115 @@
+#-------------------------------------------------------------------
+# 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
+#-------------------------------------------------------------------
+
+use FindBin;
+use strict;
+use lib "$FindBin::Bin/../../lib";
+
+##The goal of this test is to test the creation of Thingy Wobjects.
+
+use WebGUI::Test;
+use WebGUI::Session;
+use WebGUI::PseudoRequest;
+use Test::More tests => 7; # increment this value for each test you create
+use WebGUI::Asset::Wobject::Thingy;
+
+my $session = WebGUI::Test->session;
+
+# Do our work in the import node
+my $node = WebGUI::Asset->getImportNode($session);
+
+my $versionTag = WebGUI::VersionTag->getWorking($session);
+$versionTag->set({name=>"Thingy Test"});
+my $thingy = $node->addChild({className=>'WebGUI::Asset::Wobject::Thingy'});
+
+# Test for a sane object type
+isa_ok($thingy, 'WebGUI::Asset::Wobject::Thingy');
+
+# Test to see if we can set new values
+my $newThingySettings = {
+	templateId=>'testingtestingtesting1',
+	#searchRoot=>'testingtestingtesting2',
+	#classLimiter=>'WebGUI::Asset::Wobject::Article',
+};
+$thingy->update($newThingySettings);
+
+foreach my $newSetting (keys %{$newThingySettings}) {
+	is ($thingy->get($newSetting), $newThingySettings->{$newSetting}, "updated $newSetting is ".$newThingySettings->{$newSetting});
+}
+
+# Test adding a new Thing
+my $i18n = WebGUI::International->new($session, "Asset_Thingy");
+my $groupIdEdit = $thingy->get("groupIdEdit");
+my %thingProperties = (
+            thingId=>"new",
+            label=>$i18n->get('assetName'),
+            editScreenTitle=>$i18n->get('edit screen title label'),
+            groupIdAdd=>$groupIdEdit,
+            groupIdEdit=>$groupIdEdit,
+            saveButtonLabel=>$i18n->get('default save button label'),
+            afterSave=>'searchThisThing',
+            editTemplateId=>"ThingyTmpl000000000003",
+            groupIdView=>$groupIdEdit,
+            viewTemplateId=>"ThingyTmpl000000000002",
+            defaultView=>'searchThing',
+            searchScreenTitle=>$i18n->get('search screen title label'),
+            groupIdSearch=>$groupIdEdit,
+            groupIdExport=>$groupIdEdit,
+            groupIdImport=>$groupIdEdit,
+            searchTemplateId=>"ThingyTmpl000000000004",
+            thingsPerPage=>25,
+);
+my $thingId = $thingy->addThing(\%thingProperties,0); 
+
+my $isValidId = $session->id->valid($thingId);
+
+is($isValidId,1,"addThing returned a valid id: ".$thingId);
+
+my $thingTableName = "Thingy_".$thingId;
+
+my ($thingTableNameCheck) = $session->db->quickArray("show tables like ".$session->db->quote($thingTableName));
+
+is($thingTableNameCheck,$thingTableName,"An empty table: ".$thingTableName." for the new thing exists.");
+
+my %fieldProperties = (
+    thingId=>$thingId,
+    fieldId=>"new",
+    label=>$i18n->get('assetName')." field",
+    dateCreated=>time(),    
+    fieldType=>"textarea",
+    status=>"editable",
+);
+
+my $fieldId = $thingy->addField(\%fieldProperties,0);
+
+$isValidId = $session->id->valid($fieldId);
+
+is($isValidId,1,"Adding a textarea field: addField returned a valid id: ".$fieldId);
+
+my ($fieldLabel, $columnType, $Null, $Key, $Default, $Extra) = $session->db->quickArray("show columns from "
+                                                                .$session->db->dbh->quote_identifier($thingTableName)
+                                                                ." like ".$session->db->quote("Field_".$fieldId));
+
+is($fieldLabel,"field_".$fieldId,"A column for the new field Field_$fieldId exists.");
+is($columnType,"longtext","The columns is the right type");
+
+=cut
+my $request = WebGUI::PseudoRequest->new();
+$session->{_request} = $request;
+
+$session->request->uri($thingy->get("url"));
+
+$request->setup_body({ param1 => 'value1' });
+=cut
+END {
+	# Clean up after thy self
+	$versionTag->rollback();
+}
+