[catagits/Catalyst-Runtime.git] / t / plugin_new_method_backcompat.t

# Test that plugins with their own new method don't break applications.

# 5.70 creates all of the request/response structure itself in prepare, 
# and as the new method in our plugin just blesses our args, that works nicely.

# In 5.80, we rely on the new method to appropriately initialise data 
# structures, and therefore we need to inline a new method on MyApp to ensure
# that plugins don't get it wrong for us.

# Also tests method modifiers and etc in MyApp.pm still work as expected.

use FindBin;
use lib "$FindBin::Bin/lib";use Test::More tests => 3;

use Catalyst::Test qw/TestAppPluginWithNewMethod/; # 1 test for adding a modifer not throwing.
BEGIN { warn("COMPILE TIME finished use of Catalyst::Test"); }
ok request('/foo')->is_success; 
is $TestAppPluginWithNewMethod::MODIFIER_FIRED, 1, 'Before modifier was fired correctly.';
Commit	Line	Data
3d041c32	1	# Test that plugins with their own new method don't break applications.
	2
	3	# 5.70 creates all of the request/response structure itself in prepare,
	4	# and as the new method in our plugin just blesses our args, that works nicely.
	5
	6	# In 5.80, we rely on the new method to appropriately initialise data
	7	# structures, and therefore we need to inline a new method on MyApp to ensure
	8	# that plugins don't get it wrong for us.
	9
	10	# Also tests method modifiers and etc in MyApp.pm still work as expected.
	11
	12	use FindBin;
	13	use lib "$FindBin::Bin/lib";use Test::More tests => 3;
	14
	15	use Catalyst::Test qw/TestAppPluginWithNewMethod/; # 1 test for adding a modifer not throwing.
01ce7075	16	BEGIN { warn("COMPILE TIME finished use of Catalyst::Test"); }
3d041c32	17	ok request('/foo')->is_success;
3d041c32	18	is $TestAppPluginWithNewMethod::MODIFIER_FIRED, 1, 'Before modifier was fired correctly.';