From 72c114d031ab546b3e20f3bf41d1b38a57f1cee4 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 7 Jan 2010 13:48:09 -0800
Subject: [PATCH] Testing Moose setters.  They accept undef...

---
 t/Definition/Asset.t | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/t/Definition/Asset.t b/t/Definition/Asset.t
index a2e575a32..9fe131d5a 100644
--- a/t/Definition/Asset.t
+++ b/t/Definition/Asset.t
@@ -234,3 +234,29 @@ use WebGUI::Test;
     );
 
 }
+
+{
+
+    package WGT::Class::Asset::Tertiary;
+    use WebGUI::Definition::Asset;
+    extends 'WGT::Class::AlsoAsset';
+
+    attribute tableName => 'tertius';
+    property 'defaulted' => (
+        fieldType => 'text',
+        label     => 'defaulted',
+        default   => 'a sane default',
+    );
+    property 'no_default'  => (
+        fieldType => 'text',
+        label     => 'noDefault',
+    );
+
+    package main;
+    my $object = WGT::Class::Asset::Tertiary->new;
+    is $object->defaulted(), 'a sane default', 'setup: checking default';
+    is $object->no_default(), undef, '... and one without default';
+
+    $object->defaulted(undef);
+    is $object->defaulted(), undef, 'Moose setters accept undef';
+}