#!/usr/bin/perl

use Test::More tests => 2;
use Lirc::Client;

my $lirc=Lirc::Client->new( {
		prog    => "lirc-client-test",
		rcfile  => "samples/lircrc.4",
		debug   => 0, 
        fake    => 1,
    } );
ok( $lirc, "created a lirc object");
is( $lirc->mode, 'my-test-mode', 'started in the test_mode' );
use Data::Dumper;
print Dumper $lirc->recognized_commands;