#!/usr/bin/perl
use strict;
use Acme::Tests;
use Test::More 'no_plan';

my $t = Acme::Tests->new;
my @questions;
my @answers;
while(my $q = $t->next_question) {
    print STDERR "\b\n$q\n==> ";
    my $a = <>;
    push @questions,$q;
    push @answers,$a;
}

print STDERR "Verifing your answer...\n";
for(0..$#questions) {
    ok( $t->is_correct($questions[$_],$answers[$_]) )
}