#!/usr/bin/perl -w

use strict;
use warnings;

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

# Test set 2 -- create client with ordered list of arguements
my $lirc = Lirc::Client->new( 'lclient_test', 'samples/lircrc', undef, 1, 1 );
ok $lirc, "Created new Lirc::Client with ordered args";
is( $lirc->prog, 'lclient_test', 'program name correct');
is( $lirc->rcfile, 'samples/lircrc', 'resource file correct');
is( $lirc->dev, '/dev/lircd', 'lircd device correct');
is( $lirc->debug, 1, 'debug flag set correctly');
is( $lirc->fake, 1, 'fake lirc dev flag set correctly');

# Test set 3 -- create client with named arguments 
$lirc = Lirc::Client->new( 'lclient_test', {
			rcfile	=> 'samples/lircrc', 
			debug	=> 1,
	   		fake	=> 1,
		}
	);
ok $lirc, "Created new Lirc::Client with named args";
is( $lirc->prog, 'lclient_test', 'program name correct');
is( $lirc->rcfile, 'samples/lircrc', 'resource file correct');
is( $lirc->dev, '/dev/lircd', 'lircd device correct');
is( $lirc->debug, 1, 'debug flag set correctly');
is( $lirc->fake, 1, 'fake lirc dev flag set correctly');