FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (findMinimumOperations \"abc \"  \"abb \"  \"ab \")," 2 (findMinimumOperations "abc" "abb" "ab"))13 14test2 :: Test15test2 = TestCase (assertEqual "for (findMinimumOperations \"dac \"  \"bac \"  \"cac \")," (-1) (findMinimumOperations "dac" "bac" "cac"))16 17test3 :: Test18test3 = TestCase (assertEqual "for (findMinimumOperations  \"xqkqhgglsustxvwxndsvkoowxkp \"  \"cbwmjwfuwlcrqbkopolwnzrnevyzbburgnvqteafhoqvtlchnnamkhpgmuduicvnuudtyswtbddkstsjgtaghmtlm \"  \"dhtalmmraervdjgtnmgzmcsajgecrggnuoulouqhllrtdylkhzbbycqfjvneauanmyv \")," (-1) (findMinimumOperations "xqkqhgglsustxvwxndsvkoowxkp" "cbwmjwfuwlcrqbkopolwnzrnevyzbburgnvqteafhoqvtlchnnamkhpgmuduicvnuudtyswtbddkstsjgtaghmtlm" "dhtalmmraervdjgtnmgzmcsajgecrggnuoulouqhllrtdylkhzbbycqfjvneauanmyv"))19 20test4 :: Test21test4 = TestCase (assertEqual "for (findMinimumOperations  \"xslmewugvdaaobpgkizaddbwtefynig \"  \"fxnsrpsjrtbswpphrtkulgitmtblkyehrlknotfkpwdqhwualiqchmbzckxzlfzedutuwvglwxzuxodqjxvhv \"  \"hvv \")," (-1) (findMinimumOperations "xslmewugvdaaobpgkizaddbwtefynig" "fxnsrpsjrtbswpphrtkulgitmtblkyehrlknotfkpwdqhwualiqchmbzckxzlfzedutuwvglwxzuxodqjxvhv" "hvv"))22 23test5 :: Test24test5 = TestCase (assertEqual "for (findMinimumOperations  \"anklygpkcmezpyvobmzjljirwhsfcxajjhtraogxrlfdsvqd \"  \"fhiujkvaxmufgjzplbfebnxdmywnnovwhvwhmsdcfzcekctcpqsnnhrqigqcuawbdzsxdbqxbuqkdlzpifafjjkrkmgtdrwqfnzj \"  \"mjxuwelhdnscmzfhwetjobbcjnjvbhzocxzlrnaazotckzwsuwrbwmcabfuhompsgdbqzd \")," (-1) (findMinimumOperations "anklygpkcmezpyvobmzjljirwhsfcxajjhtraogxrlfdsvqd" "fhiujkvaxmufgjzplbfebnxdmywnnovwhvwhmsdcfzcekctcpqsnnhrqigqcuawbdzsxdbqxbuqkdlzpifafjjkrkmgtdrwqfnzj" "mjxuwelhdnscmzfhwetjobbcjnjvbhzocxzlrnaazotckzwsuwrbwmcabfuhompsgdbqzd"))25 26test6 :: Test27test6 = TestCase (assertEqual "for (findMinimumOperations  \"jmszcpqqaqjlwxuzwgxiyxrjsewdspinqbmpd \"  \"gymnmqbaqqhqqyaimrwdjmanfhkelavaucznszzoxeynonaujfcitqixcthhmohcaaflkfszmzyvgeacgkktlm \"  \"bbazqvqpwchbtkwlbxqgyphthtqnviuvgkcggfafltgeuzgpesslphxunbjpwlnvsoxxxizbkpozsqbuhcjjzpzuzvk \")," (-1) (findMinimumOperations "jmszcpqqaqjlwxuzwgxiyxrjsewdspinqbmpd" "gymnmqbaqqhqqyaimrwdjmanfhkelavaucznszzoxeynonaujfcitqixcthhmohcaaflkfszmzyvgeacgkktlm" "bbazqvqpwchbtkwlbxqgyphthtqnviuvgkcggfafltgeuzgpesslphxunbjpwlnvsoxxxizbkpozsqbuhcjjzpzuzvk"))28 29test7 :: Test30test7 = TestCase (assertEqual "for (findMinimumOperations  \"tzwaooirwrsn \"  \"mpcgachqmdsrwuujodvbgcdpxtysqgbnyxhtsew \"  \"czqykpxejfumndejfugzfphgsublykowhdpanouszafciycdwlybbrjatikhaakcpgwwomsubkcshmuqeijrwpi \")," (-1) (findMinimumOperations "tzwaooirwrsn" "mpcgachqmdsrwuujodvbgcdpxtysqgbnyxhtsew" "czqykpxejfumndejfugzfphgsublykowhdpanouszafciycdwlybbrjatikhaakcpgwwomsubkcshmuqeijrwpi"))31 32test8 :: Test33test8 = TestCase (assertEqual "for (findMinimumOperations  \"zsahdtrwtdhnrmlqrqxjrnybnmkyaqniruyuc \"  \"sqsgqkmvzuomyfpzpuzssgkmoxuyxzpwyivhzjwjqgqnqjycsofonpba \"  \"hxwoznldoquhoeadtvwgaewvcmlaydyckpyakqnnynmghoptxqtozf \")," (-1) (findMinimumOperations "zsahdtrwtdhnrmlqrqxjrnybnmkyaqniruyuc" "sqsgqkmvzuomyfpzpuzssgkmoxuyxzpwyivhzjwjqgqnqjycsofonpba" "hxwoznldoquhoeadtvwgaewvcmlaydyckpyakqnnynmghoptxqtozf"))34 35test9 :: Test36test9 = TestCase (assertEqual "for (findMinimumOperations  \"zucgojgsmpsagsjdanltuwoxqoytjuxgvzaiepiolmrjxaepcjnhgdqxowfntbrftmci \"  \"qhgfnxxmsjjgpdumxjppxydfjfpvcizqgztrhf \"  \"xjmubvjbgyblqtuvjb \")," (-1) (findMinimumOperations "zucgojgsmpsagsjdanltuwoxqoytjuxgvzaiepiolmrjxaepcjnhgdqxowfntbrftmci" "qhgfnxxmsjjgpdumxjppxydfjfpvcizqgztrhf" "xjmubvjbgyblqtuvjb"))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