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);