#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests=>5;
use IO::Handle;

use_ok( "IO::Select"   );
use_ok( "Lirc::Client" );

my $lirc=Lirc::Client->new( {
		prog	=> "lirc-client-test",
		rcfile	=> "samples/lircrc.3",
		debug	=> 0,
		fake	=> 1,
	} );
ok( $lirc, "created a lirc object");

pipe my $read, my $write or die $!;
$write->autoflush(1);
$read->autoflush(1);
$lirc->{sock} = $read;
print $write "0 0 play test-remote\n";
$write->flush;
print $write "0 0 pause test-remote\n";
$write->flush;
#close $write;  # should not need to close

my @codes = qw/PLAY PAUSE/;
my $count = 0;

my $select = IO::Select->new();
$select->add( $lirc->sock );
while(1){
	# do your own stuff, if you want
	if( my @ready = $select->can_read(0) ){
		# an ir event has been received
		# may not be a full line from lirc, but I have never seen one
		my @codes = $lirc->next_codes;	# should not block
		for my $code (@codes){
			process( $code );
		}
	}
}

sub process {
	my $code = shift;

	is( $code, shift @codes, "recognized command " . ++$count );
	exit if $count > 1;
}