# encapsulate the mechanics of divisibility testing
use Divisor;

my $seven = Divisor->new(7);
ok( $seven->divides(42), 'Seven divides 42.' );
ok( 
    not( $seven->divides(365) ), 
    'The year does not contain a whole number of weeks.',
);
ok(
    $seven->divides( 400*365 + 97 ),
    'But the Gregorian calendar repeats itself every 400 years.',
);