Commits

Toby Inkster  committed f8f865e Draft

check that generators take precedence over non-generated functions

  • Participants
  • Parent commits 1edd132

Comments (0)

Files changed (1)

File t/05generators.t

-use Test::More tests => 9;
+use Test::More tests => 10;
 
 BEGIN {
 	package Local::Exporter;
 		my ($class, $name, $arg) = @_;
 		return sub { $arg->{'foobar'} || 'FOOBAR' };
 	}
+	sub foo {
+		"HAHA";
+	}
 	sub _build__quux {
 		my ($class, $name, $arg) = @_;
 		return sub { $arg->{'quux'} || 'QUUX' };
 
 can_ok('Local::Importer2', 'quux');
 is(Local::Importer2->quux, 'Quux1', "Local::Importer2->quux works ok");
+
+is(Local::Exporter::foo(), 'HAHA');