use strict;
use Test::More tests => 2;

use IO::File;
use Term::TtyRec::Player;

my $handle = IO::File->new('t/test.tty');
my $player = Term::TtyRec::Player->new($handle);
isa_ok($player, 'Term::TtyRec::Player');

{
    package Tie::DevNull;
    require Tie::Handle;
    @Tie::DevNull::ISA = qw(Tie::Handle);

    sub TIEHANDLE { bless {}, shift }
    sub WRITE { 1 }
}

tie *STDOUT, 'Tie::DevNull';
$player->play;
ok 1, 'can play';


