committing progress

[catagits/Catalyst-Devel.git] / t / check_types.t

diff --git a/t/check_types.t b/t/check_types.t
index 5951cd5..c69c5b1 100644 (file)
--- a/t/check_types.t
+++ b/t/check_types.t
@@ -13,14 +13,26 @@ subtype ValidAppComponent,
    as Str,
    where { /^$regex$/ };
 
+subtype AppEnv,
+   as Str,
+   where { /\w/ };
+   
 coerce ValidAppName,
    from ValidAppComponent,
    via { Catalyst::Utils::class2appclass($_); };
+   
+coerce 'ValidAppEnv',
+   from Str,
+   via { Catalyst::Utils::class2env($_); };
+
+coerce AppEnv,
+   from Str,
+   via { Catalyst::Utils::class2env($_) };
 
 package main;
 use Test::More 'no_plan';
 use Moose::Util::TypeContraints;
-use My::Types qw/ValidAppName ValidAppComponent/;
+use My::Types qw/ValidAppName ValidAppComponent AppEnv/;
 
 my $app_tc = find_type_constraint(ValidAppName);
 ok $app_tc;
@@ -33,6 +45,10 @@ ok !$comp_tc->check('');
 ok !$comp_tc->check('MyApp');
 ok $comp_tc->check('MyApp::Model::Foo');
 
+my $env_tc = my $comp_tc = find_type_constraint(AppEnv);
+ok $env_tc;
+#ok !$env_tc->check('');
+#ok !$env_tc->check('
 is $app_tc->coerce('MyApp::Model::Foo'), 'MyApp';
 
 done_testing;