use strict;
use warnings;
use Test::More;
use t::TestUtils;

# Test OO interface

SKIP: {
  skip_interactive();

  require IO::Pager;
  {
    my $BOB = new IO::Pager undef, 'Buffered' or die "Failed to create PAGER FH $!";

    isa_ok $BOB, 'IO::Pager::Buffered'; #non-fully qualified sub-class test

    $BOB->print("OO factory filehandle\n");
    $BOB->print("\nEnd of text, try pressing 'Q' to exit.\n");
    $BOB->close();
  }

  my $A1 = prompt "\nDid you see 'OO factory filehandle' in your pager? [Yn]";
  ok is_yes($A1), 'OO, factory instantiation';

  require IO::Pager::Unbuffered;

  {
    my $BOB = new IO::Pager::Unbuffered or die "Failed to create PAGER FH $!";

    isa_ok $BOB, 'IO::Pager::Unbuffered';

    $BOB->print("OO subclass filehandle\n");
    $BOB->print("\nEnd of text, try pressing 'Q' to exit.\n");
    #XXX Close required because pager is not terminated on DESTROY
    $BOB->close();
  }

  my $A2 = prompt "\nDid you see 'OO subclass filehandle' in your pager? [Yn]";
  ok is_yes($A2), 'OO, subclass instantiation';
}

done_testing;