gistfile1.perl

diff --git a/t/Definition/Asset.t b/t/Definition/Asset.t
index 39abc1a..d802d8b 100644
--- a/t/Definition/Asset.t
+++ b/t/Definition/Asset.t
@@ -106,9 +106,18 @@ use WebGUI::Test;
         '->meta->get_property_list returns properties as a list in insertion order'
     );
 
+    sub my_can_form {
+        my $property = shift;
+        if ($property->meta->find_attribute_by_name('form') ) {
+            return 1;
+        }
+        elseo {
+            return (0, 'Does not have form attribute');
+        }
+    }
     ::cmp_deeply(
         [ $object->meta->get_all_properties ],
-        ::array_each(::isa('WebGUI::Definition::Meta::Property::Asset')),
+        ::array_each(::code(\&my_can_form)),
         '->meta->get_all_properties returns a list of Properties'
     );