warn (and skip) when trying to export a nonexistent sub

[gitmo/Moose.git] / t / 010_basics / 022_moose_exporter_groups.t

diff --git a/t/010_basics/022_moose_exporter_groups.t b/t/010_basics/022_moose_exporter_groups.t
index 11b901f..589883a 100755 (executable)
--- a/t/010_basics/022_moose_exporter_groups.t
+++ b/t/010_basics/022_moose_exporter_groups.t
@@ -85,6 +85,8 @@ use Test::Exception;
 
     sub exgroups2_as_is { 3 }
 
+    sub exgroups2_with_caller { 4 }
+
     sub generate_group {
         my ($caller, $group_name, $args, $context) = @_;