use Test::More tests=>1;
use Games::QuizTaker;
use Sub::Override;

my $expected='Who is the creator of Perl?';

my $override=Sub::Override->new('Games::QuizTaker::IO::out'=>sub{ $Games::QuizTaker::line });

my $GQ=Games::QuizTaker->new(filename=>'t/testqa');
$GQ->load;
$GQ->generate;

my $OUT=$GQ->test;

like($OUT,qr/$expected/);

##</code><code>##

tstanley@perlmonk ~/modules/Games-QuizTaker $ make test
PERL_DL_NONLAZY=1 /usr/bin/perl5.8.8 "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/01load..........ok                                                         
t/02generate......ok                                                         
t/03test..........
Use of uninitialized value in pattern match (m//) at t/03test.t line 16, <STDIN> line 1.

#   Failed test at t/03test.t line 16.
#                   undef
#     doesn't match '(?-xism:Who is the creator of Perl?)'
# Looks like you failed 1 test of 1.
t/03test..........dubious                                                    
        Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 1
        Failed 1/1 tests, 0.00% okay
t/04exceptions....ok                                                         
t/05pod...........ok                                                         
Failed Test Stat Wstat Total Fail  List of Failed
-------------------------------------------------------------------------------
t/03test.t     1   256     1    1  1
Failed 1/5 test scripts. 1/15 subtests failed.
Files=5, Tests=15,  2 wallclock secs ( 0.46 cusr +  0.04 csys =  0.50 CPU)
Failed 1/5 test programs. 1/15 subtests failed.
make: *** [test_dynamic] Error 255

##</code><code>##

sub test{
    my $self=shift;
    my $Answer_Sep=$self->get_AnswerDelimiter;
    my $Max=$self->get_MaxQuestions;
    my ($answer,$key,$line,$question_answer);
    my $question_number=1;
    my $number_correct=0;
    my $asep=qq"\\$Answer_Sep";

    system(($^O eq "MSWin32"?'cls':'clear'));
    print"\n";

    while($question_number<=$Max){
      $key=shift @Randoms;
  
      print"Question Number $question_number\n";


      foreach $line(@{$$questions{$key}}){
       Games::QuizTaker::IO::out(wrap("","","$line\n"));
      }

      print"Your Answer: ";
      $answer=Games::QuizTaker::IO::in; 
      chomp($answer);
      $answer=uc($answer);