test for symbol table/package lookup bug

diff --git a/t/config/test_stem_bug.pl b/t/config/test_stem_bug.pl
new file mode 100644 (file)
index 0000000..5f90534
--- /dev/null
+++ b/t/config/test_stem_bug.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+
+use strict ;
+use warnings ;
+use Test::More tests => 2;
+use Test::Exception;
+
+use_ok( 'Stem' );
+
+my @config = (
+    {  class   =>      'Foobar',                       },
+       {       class   =>      'Stem::Console',        },
+) ;
+
+
+lives_ok( sub { Stem::Conf::configure( \@config ) }, 'load config from data structure' );
+
+package Foobar ;
+
+sub foobar_cmd { return "FOOBAR!!!\n" }
+
+