33 lines
1.2 KiB
Perl
33 lines
1.2 KiB
Perl
#!/usr/bin/env perl
|
||
|
||
use strict;
|
||
use warnings;
|
||
use utf8;
|
||
|
||
use Test::More;
|
||
use DDG::Test::Goodie;
|
||
|
||
zci answer_type => "prime_factors";
|
||
zci is_cached => 1;
|
||
|
||
ddg_goodie_test(
|
||
[qw(
|
||
DDG::Goodie::PrimeFactors
|
||
)],
|
||
'72 prime factors' => test_zci('The prime factorization of 72 is 2^3 × 3^2',
|
||
html => 'The prime factorization of 72 is 2<sup>3</sup> × 3<sup>2</sup>'),
|
||
'prime factors of 111' => test_zci('The prime factorization of 111 is 3 × 37',
|
||
html => 'The prime factorization of 111 is 3 × 37'),
|
||
'prime factors of 30' => test_zci('The prime factorization of 30 is 2 × 3 × 5',
|
||
html => 'The prime factorization of 30 is 2 × 3 × 5'),
|
||
'prime factorization of 45' => test_zci('The prime factorization of 45 is 3^2 × 5',
|
||
html => 'The prime factorization of 45 is 3<sup>2</sup> × 5'),
|
||
'factorize 128' => test_zci('The prime factorization of 128 is 2^7',
|
||
html => 'The prime factorization of 128 is 2<sup>7</sup>'),
|
||
'42 prime factorize' => test_zci('The prime factorization of 42 is 2 × 3 × 7',
|
||
html => 'The prime factorization of 42 is 2 × 3 × 7'),
|
||
'optimus prime 45' => undef,
|
||
);
|
||
|
||
done_testing;
|