21 lines
919 B
Perl
21 lines
919 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => "greatest_common_factor";
|
|
zci is_cached => 1;
|
|
|
|
ddg_goodie_test(
|
|
[qw(
|
|
DDG::Goodie::GreatestCommonFactor
|
|
)],
|
|
'gcf 9 81' => test_zci('Greatest common factor of 9 and 81 is 9.', html => 'Greatest common factor of 9 and 81 is 9. More at <a href="https://en.wikipedia.org/wiki/Greatest_common_factor">Wikipedia</a>.'),
|
|
'1000 100 greatest common factor' => test_zci ('Greatest common factor of 1000 and 100 is 100.', html => 'Greatest common factor of 1000 and 100 is 100. More at <a href="https://en.wikipedia.org/wiki/Greatest_common_factor">Wikipedia</a>.'),
|
|
'GCF 12 76' => test_zci('Greatest common factor of 12 and 76 is 4.', html => 'Greatest common factor of 12 and 76 is 4. More at <a href="https://en.wikipedia.org/wiki/Greatest_common_factor">Wikipedia</a>.'),
|
|
);
|
|
|
|
done_testing;
|