Frequency: Refactor tests to remove duplication
parent
80d837cd65
commit
42e9e7d02f
|
@ -11,6 +11,12 @@ zci answer_type => 'frequency';
|
||||||
|
|
||||||
my $all_chars_subtitle = "Frequency of all characters";
|
my $all_chars_subtitle = "Frequency of all characters";
|
||||||
|
|
||||||
|
my @test_response = ('e:1/4 s:1/4 t:2/4', "test", "$all_chars_subtitle", {
|
||||||
|
'e' => 1,
|
||||||
|
's' => 1,
|
||||||
|
't' => 2
|
||||||
|
}, ['e', 's', 't']);
|
||||||
|
|
||||||
sub build_structured_test {
|
sub build_structured_test {
|
||||||
my ($plaintext, $title, $subtitle, $record_data, $record_keys) = @_;
|
my ($plaintext, $title, $subtitle, $record_data, $record_keys) = @_;
|
||||||
|
|
||||||
|
@ -40,41 +46,17 @@ ddg_goodie_test(
|
||||||
DDG::Goodie::Frequency
|
DDG::Goodie::Frequency
|
||||||
)],
|
)],
|
||||||
|
|
||||||
"frequency of all in test" => build_test('e:1/4 s:1/4 t:2/4', "test", "$all_chars_subtitle", {
|
"frequency of all in test" => build_test(@test_response),
|
||||||
'e' => 1,
|
|
||||||
's' => 1,
|
|
||||||
't' => 2
|
|
||||||
}, ['e', 's', 't']),
|
|
||||||
|
|
||||||
'frequency of all letters in test' => build_test('e:1/4 s:1/4 t:2/4', "test", "$all_chars_subtitle", {
|
'frequency of all letters in test' => build_test(@test_response),
|
||||||
'e' => 1,
|
|
||||||
's' => 1,
|
|
||||||
't' => 2
|
|
||||||
}, ['e', 's', 't']),
|
|
||||||
|
|
||||||
'frequency of letters in test' => build_test('e:1/4 s:1/4 t:2/4', "test", "$all_chars_subtitle", {
|
'frequency of letters in test' => build_test(@test_response),
|
||||||
'e' => 1,
|
|
||||||
's' => 1,
|
|
||||||
't' => 2
|
|
||||||
}, ['e', 's', 't']),
|
|
||||||
|
|
||||||
'frequency of all characters in test' => build_test('e:1/4 s:1/4 t:2/4', "test", "$all_chars_subtitle", {
|
'frequency of all characters in test' => build_test(@test_response),
|
||||||
'e' => 1,
|
|
||||||
's' => 1,
|
|
||||||
't' => 2
|
|
||||||
}, ['e', 's', 't']),
|
|
||||||
|
|
||||||
'frequency of all alphabets in test' => build_test('e:1/4 s:1/4 t:2/4', "test", "$all_chars_subtitle", {
|
'frequency of all alphabets in test' => build_test(@test_response),
|
||||||
'e' => 1,
|
|
||||||
's' => 1,
|
|
||||||
't' => 2
|
|
||||||
}, ['e', 's', 't']),
|
|
||||||
|
|
||||||
'frequency of all chars in test' => build_test('e:1/4 s:1/4 t:2/4', "test", "$all_chars_subtitle", {
|
'frequency of all chars in test' => build_test(@test_response),
|
||||||
'e' => 1,
|
|
||||||
's' => 1,
|
|
||||||
't' => 2
|
|
||||||
}, ['e', 's', 't']),
|
|
||||||
|
|
||||||
'frequency of all in testing 1234 ABC!' => build_test('a:1/10 b:1/10 c:1/10 e:1/10 g:1/10 i:1/10 n:1/10 s:1/10 t:2/10', "testing 1234 ABC!", "$all_chars_subtitle", {
|
'frequency of all in testing 1234 ABC!' => build_test('a:1/10 b:1/10 c:1/10 e:1/10 g:1/10 i:1/10 n:1/10 s:1/10 t:2/10', "testing 1234 ABC!", "$all_chars_subtitle", {
|
||||||
'a' => 1,
|
'a' => 1,
|
||||||
|
|
Loading…
Reference in New Issue