FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (findPermutationDifference \"abc \"  \"bac \")," 2 (findPermutationDifference "abc" "bac"))13 14test2 :: Test15test2 = TestCase (assertEqual "for (findPermutationDifference \"abcde \"  \"edbac \")," 12 (findPermutationDifference "abcde" "edbac"))16 17test3 :: Test18test3 = TestCase (assertEqual "for (findPermutationDifference  \"ovmuxe \"  \"umevxo \")," 14 (findPermutationDifference "ovmuxe" "umevxo"))19 20test4 :: Test21test4 = TestCase (assertEqual "for (findPermutationDifference  \"jeqiopgvdkm \"  \"jikpomeqgvd \")," 32 (findPermutationDifference "jeqiopgvdkm" "jikpomeqgvd"))22 23test5 :: Test24test5 = TestCase (assertEqual "for (findPermutationDifference  \"kmrycdgajlwiouzqsnex \"  \"nyzqorgwmxcdlesujiak \")," 142 (findPermutationDifference "kmrycdgajlwiouzqsnex" "nyzqorgwmxcdlesujiak"))25 26test6 :: Test27test6 = TestCase (assertEqual "for (findPermutationDifference  \"ulpgofezvtrdmjsaynx \"  \"yfteunlvxdsjzgamorp \")," 124 (findPermutationDifference "ulpgofezvtrdmjsaynx" "yfteunlvxdsjzgamorp"))28 29test7 :: Test30test7 = TestCase (assertEqual "for (findPermutationDifference  \"tqenyijdapoxfkmwvzrchlu \"  \"velicpqzfjhrkydamwxuton \")," 184 (findPermutationDifference "tqenyijdapoxfkmwvzrchlu" "velicpqzfjhrkydamwxuton"))31 32test8 :: Test33test8 = TestCase (assertEqual "for (findPermutationDifference  \"cdv \"  \"cdv \")," 0 (findPermutationDifference "cdv" "cdv"))34 35test9 :: Test36test9 = TestCase (assertEqual "for (findPermutationDifference  \"uacxvrdlmtwgybpshjfnqiz \"  \"yazjiuqgpvshncfdtxwmbrl \")," 216 (findPermutationDifference "uacxvrdlmtwgybpshjfnqiz" "yazjiuqgpvshncfdtxwmbrl"))37 38 39-- Grouping test cases40tests :: Test41tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6, TestLabel "Test7" test7, TestLabel "Test8" test8, TestLabel "Test9" test9]42 43-- Running the tests44main :: IO Counts45main = runTestTT tests46