[catagits/Catalyst-Controller-WrapCGI.git] / t / global-context.t

#!perl

use strict;
use warnings;

use Test::More tests => 1;

{
    package TestApp;

    use Catalyst;
    use CatalystX::GlobalContext ();

    sub auto : Private {
        my ($self, $c) = @_;
        CatalystX::GlobalContext->set_context($c);
        1;
    }

    sub dummy : Local {
        my ($self, $c) = @_;
        $c->res->body(Dongs->foo);
    }

    __PACKAGE__->setup;
    
    package Dongs;

    use CatalystX::GlobalContext '$c';

    sub foo { $c->action }
}

use Catalyst::Test 'TestApp';

is(get('/dummy'), 'dummy', 'global context works');
Commit	Line	Data
ac41c40b	1	#!perl
457c1d76	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 1;
	7
	8	{
	9	package TestApp;
	10
	11	use Catalyst;
	12	use CatalystX::GlobalContext ();
	13
	14	sub auto : Private {
	15	my ($self, $c) = @_;
	16	CatalystX::GlobalContext->set_context($c);
	17	1;
	18	}
	19
	20	sub dummy : Local {
	21	my ($self, $c) = @_;
	22	$c->res->body(Dongs->foo);
	23	}
	24
	25	__PACKAGE__->setup;
	26
	27	package Dongs;
	28
	29	use CatalystX::GlobalContext '$c';
	30
	31	sub foo { $c->action }
	32	}
	33
	34	use Catalyst::Test 'TestApp';
	35
	36	is(get('/dummy'), 'dummy', 'global context works');