oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Test WebGUI::Types

Browse source
This commit is contained in:
Colin Kuskie 2010-03-18 14:46:32 -07:00
parent b41338cef5
commit d3f139d43c
1 changed files with 2 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

11
t/Definition.t
View file

@ -206,20 +206,13 @@ my $session = WebGUI::Test->session;
use Moose::Util::TypeConstraints;
use WebGUI::Definition;
use JSON;
subtype 'WGT::Type::JSONArray'
=> as 'ArrayRef'
;
coerce 'WGT::Type::JSONArray'
=> from Str
=> via { my $struct = eval { JSON::from_json($_); }; $struct ||= []; return $struct },
;
use WebGUI::Types;
property 'leaded' => (
noFormPost => 1,
default => sub { [] },
traits => ['Array', 'WebGUI::Definition::Meta::Property::Serialize'],
isa => 'WGT::Type::JSONArray',
isa => 'WebGUI::Type::JSONArray',
coerce => 1,
);