From: Steve Scaffidi <sscaffidi@gmail.com>
Date: Wed, 26 Aug 2009 16:02:41 +0000 (-0400)
Subject: test for symbol table/package lookup bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8029a6abb407aece85daa146502a74ec641d4f41;p=urisagit%2FStem.git

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
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" }
+
+