[gitmo/Class-MOP.git] / t / 307_null_stash.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

use Class::MOP;
my $non = Class::MOP::Class->initialize('Non::Existent::Package');
$non->get_method('foo');

pass("empty stashes don't segfault");

done_testing;
Commit	Line	Data
0de4f87e	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
86a4d873	4	use Test::More;
0de4f87e	5
0de4f87e	6	use Class::MOP;
241646a3	7	my $non = Class::MOP::Class->initialize('Non::Existent::Package');
	8	$non->get_method('foo');
	9
0de4f87e	10	pass("empty stashes don't segfault");
86a4d873	11
86a4d873	12	done_testing;