[Catalyst-commits] r13964 - Catalyst-Runtime/5.80/branches/restarter_changeclass/t/aggregate

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2011-02-14 21:12:25 +0000 (Mon, 14 Feb 2011)
New Revision: 13964

Modified:
   Catalyst-Runtime/5.80/branches/restarter_changeclass/t/aggregate/unit_core_script_server.t
Log:
Add a few tests

Modified: Catalyst-Runtime/5.80/branches/restarter_changeclass/t/aggregate/unit_core_script_server.t
===================================================================
--- Catalyst-Runtime/5.80/branches/restarter_changeclass/t/aggregate/unit_core_script_server.t	2011-02-14 21:05:30 UTC (rev 13963)
+++ Catalyst-Runtime/5.80/branches/restarter_changeclass/t/aggregate/unit_core_script_server.t	2011-02-14 21:12:25 UTC (rev 13964)
@@ -79,6 +79,19 @@
 testRestart( ['-r', '--rr', 'foo'], restartopthash(filter => qr/foo/) );
 testRestart( ['-r', '--restart_regex', 'foo'], restartopthash(filter => qr/foo/) );
 
+local $ENV{TESTAPPTOTESTSCRIPTS_RESTARTER};
+local $ENV{CATALYST_RESTARTER};
+{
+    is _build_testapp([])->restarter_class, 'Catalyst::Restarter', 'default restarter with no $ENV{CATALYST_RESTARTER}';
+}
+{
+    local $ENV{CATALYST_RESTARTER} = "CatalystX::Restarter::Other";
+    is _build_testapp([])->restarter_class, $ENV{CATALYST_RESTARTER}, 'override restarter with $ENV{CATALYST_RESTARTER}';
+}
+{
+    local $ENV{TESTAPPTOTESTSCRIPTS_RESTARTER} = "CatalystX::Restarter::Other2";
+    is _build_testapp([])->restarter_class, $ENV{TESTAPPTOTESTSCRIPTS_RESTARTER}, 'override restarter with $ENV{TESTAPPTOTESTSCRIPTS_RESTARTER}';
+}
 done_testing;
 
 sub testOption {