From f14c1c7b57f779360fb93f5e638bb94869733b02 Mon Sep 17 00:00:00 2001 From: jluehrs2 Date: Fri, 1 Feb 2008 19:49:25 -0500 Subject: add test for shared_letters --- t/012-shared-letters.t | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 t/012-shared-letters.t (limited to 't') diff --git a/t/012-shared-letters.t b/t/012-shared-letters.t new file mode 100644 index 0000000..773f0b5 --- /dev/null +++ b/t/012-shared-letters.t @@ -0,0 +1,26 @@ +#!perl -T +use strict; +use warnings; +use Test::More; +use Games::Word qw/shared_letters shared_letters_by_position/; + +my @tests = ( + {a => "abcde", b => "edcba", sl => 5, slbp => 1}, + {a => "", b => "", sl => 0, slbp => 0}, + {a => "", b => "abcde", sl => 0, slbp => 0}, + {a => "aaa", b => "aa", sl => 2, slbp => 2}, + {a => "abc", b => "abcde", sl => 3, slbp => 3}, + {a => "cde", b => "abcde", sl => 3, slbp => 0}, + {a => "abcba", b => "aabbc", sl => 5, slbp => 2}, + {a => "abcde", b => "cdefg", sl => 3, slbp => 0}, + {a => "bacaa", b => "gabca", sl => 4, slbp => 2}, +); +plan tests => 2 * @tests; + +for (@tests) { + my %test = %$_; + is(shared_letters($test{a}, $test{b}), $test{sl}, + "testing shared_letters"); + is(shared_letters_by_position($test{a}, $test{b}), $test{slbp}, + "testing shared_letters_by_position"); +} -- cgit v1.2.3-54-g00ecf