[gitmo/Mouse.git] / t / 100_bugs / 001_subtype_quote_bug.t

#!/usr/bin/perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;

use strict;
use warnings;

use Test::More;

=pod

This is a test for a bug found by Purge on #moose:
The code:

  subtype Stuff
    => as Object
    => where { ... }

will break if the Object:: namespace exists. So the
solution is to quote 'Object', like so:

  subtype Stuff
    => as 'Object'
    => where { ... }

Mouse 0.03 did this, now it doesn't, so all should
be well from now on.

=cut

{ package Object::Test; }

{
    package Foo;
    ::use_ok('Mouse');
}

done_testing;
Commit	Line	Data
4c98ebb0	1	#!/usr/bin/perl
ee5e6a03	2	# This is automatically generated by author/import-moose-test.pl.
	3	# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
	4	use t::lib::MooseCompat;
4c98ebb0	5
	6	use strict;
	7	use warnings;
	8
ee5e6a03	9	use Test::More;
4c98ebb0	10
	11	=pod
	12
	13	This is a test for a bug found by Purge on #moose:
	14	The code:
	15
	16	subtype Stuff
	17	=> as Object
	18	=> where { ... }
	19
	20	will break if the Object:: namespace exists. So the
	21	solution is to quote 'Object', like so:
	22
	23	subtype Stuff
	24	=> as 'Object'
	25	=> where { ... }
	26
	27	Mouse 0.03 did this, now it doesn't, so all should
	28	be well from now on.
	29
	30	=cut
	31
	32	{ package Object::Test; }
	33
ee5e6a03	34	{
	35	package Foo;
	36	::use_ok('Mouse');
	37	}
	38
	39	done_testing;