t/config/test_stem_bug.pl

   1 #!/usr/bin/env perl
   2
   3 use strict ;
   4 use warnings ;
   5 use Test::More tests => 2;
   6 use Test::Exception;
   7
   8 use_ok( 'Stem' );
   9
  10 my @config = (
  11     {   class   =>      'Foobar',                       },
  12         {       class   =>      'Stem::Console',        },
  13 ) ;
  14
  15
  16 lives_ok( sub { Stem::Conf::configure( \@config ) }, 'load config from data structure' );
  17
  18 package Foobar ;
  19
  20 sub foobar_cmd { return "FOOBAR!!!\n" }
  21
  22