HW1 SampleTests

HW代写 {- Example of using the HUnit unit test framework. See

http://hackage.haskell.org/package/HUnit for additional documentation.

{- Example of using the HUnit unit test framework. See

http://hackage.haskell.org/package/HUnit for additional documentation.

To run the tests type “run” at the Haskell prompt. -}

module HW1SampleTests

where

import Test.HUnit

import Data.Char

import Data.List (sort)

import HW1

— Helper functions HW代写 

— Function to sort second elements in each tuple

sortSnds xs = map (\(x,y) -> (x,sort y)) xs

p1_test1 = TestCase (assertEqual “everyOther-test1”

“ABCDEFGH”

(everyOther “AaBbCcDdEeFfGgH”) )

p1_test2 = TestCase (assertEqual “everyOther-test2”

[1,3,5,7,9]

(everyOther [1,2,3,4,5,6,7,8,9,10]) )

p1_test3 = TestCase (assertEqual “everyOther-test3”

[“yes”,”oui”,”ja”,”evet”,”ye”,”shi”,”ie”,”nai”]

(everyOther

[“yes”,”no”,”oui”,”non”,”ja”,”nein”,”evet”,”hayir”,”ye”,”ani”,”shi”,

“hai”,”ie”,”meiyou”,”nai”,”ochi” ]) )

p1_test4 = TestCase (assertEqual “everyOther-test4”

“A”

(everyOther [‘A’]) )

p2a_test1 = TestCase (assertEqual “eliminateDuplicates-test1”

(sort [1,2,3,4,5,6,7])

(sort $ eliminateDuplicates

[6,5,1,6,4,2,2,3,7,2,1,1,2,3,4,5,6,7]) )

p2a_test2 = TestCase (assertEqual “eliminateDuplicates-test2”

(sort “-CptS 321”)

(sort $ eliminateDuplicates “CptS322 – CptS322 – CptS

321”) )

p2a_test3 = TestCase (assertEqual “eliminateDuplicates-test3”

(sort [[1,2],[3],[1],[]])

(sort $ eliminateDuplicates [[1,2],[1],[],[3],[1],[]])

)

p2a_test4 = TestCase (assertEqual “eliminateDuplicates-test4”

(sort [“Let”,”snow”,”rain”,”let”,”it”,”hail”])

(sort $ eliminateDuplicates [“Let”,”it”,”snow”,

“let”,”it”, “rain”, “let”, “it”,”hail”]) )

p2b_test1 = TestCase (assertEqual “matchingSeconds-test1”

(sort [5,3])

(sort $ matchingSeconds “cat” [(“cat”,5),(“dog”,9),

(“parrot”,3),(“cat”,3),(“fish”,1)]) )

p2b_test2 = TestCase (assertEqual “matchingSeconds-test2”

[]

(matchingSeconds “hamster” [(“cat”,5),(“dog”,9),

(“parrot”,3),(“cat”,3),(“fish”,1)]) )

p2b_test3 = TestCase (assertEqual “matchingSeconds-test3” HW代写

(sort [355,302,322])

(sort $ matchingSeconds “CptS” [(“EE”,214),

(“CptS”,355),(“CptS”,302), (“CptS”,322)]) )

p2c_test1 = TestCase (assertEqual “clusterCommon-test1”

(sort $ sortSnds [(“parrot”,[3]),(“dog”,[10,5,7]),

(“cat”,[5,3]),(“fish”,[1])])

(sort $ sortSnds $ clusterCommon [(“cat”,5),

(“dog”,10),(“parrot”,3),(“dog”,5),(“dog”,7),(“cat”,3), (“fish”,1)]) ) p2c_test2 = TestCase (assertEqual “clusterCommon-test2”

(sort $ sortSnds [(2,[20]),(1,[10,1]),(4,[400,40]),(3,

[3,30,300])])

HW代写
HW代写

(sort $ sortSnds $ clusterCommon [(1,10),(4,400),

(3,3),(2,20),(3,30),(1,1),(4,40),(3,300)]) )

p2c_test3 = TestCase (assertEqual “clusterCommon-test3”

([]::[(Int,[Int])])

(clusterCommon []) )

cdcData =[ (“King” , [(“Mar”,2706),(“Apr”,3620),(“May”,1860),(“Jun”,2157),(“July”,5014),

(“Aug”,4327),(“Sep”,2843)]),

(“Pierce”, [(“Mar”,460),(“Apr”,965),(“May”,522),(“Jun”,2260),(“July”,2470),

(“Aug”,1776),(“Sep”,1266)]),

(“Snohomish”,[(“Mar”,1301),(“Apr”,1145),(“May”,532),(“Jun”,568),(“July”,1540),

(“Aug”,4360),(“Sep”,811)]),

(“Spokane”, [(“Mar”,147),(“Apr”,4000),(“May”,233),(“Jun”,794),(“July”,2412),

(“Aug”,1530),(“Sep”,1751)]),

(“Whitman” , [(“Apr”,7),(“May”,5),(“Jun”,19),(“July”,51),(“Aug”,514),

(“Sep”,732), (“Oct”,278)])

]

p3_test1 = TestCase (assertEqual “(maxNumCases-test1)”

2260 (maxNumCases cdcData HW代写

“Jun”) )

p3_test2 = TestCase (assertEqual “(maxNumCases-test2)”

4000 (maxNumCases cdcData

“Apr”) )

p3_test3 = TestCase (assertEqual “(maxNumCases-test3)”

0 (maxNumCases cdcData

“Jan”) )

p4_test1 = TestCase (assertEqual “(groupIntoLists-test1)”

[[1],[2,3],[4,5,6],[7,8,9,10],[11,12]] (groupIntoLists

[1,2,3,4,5,6,7,8,9,10,11,12]) ) HW代写 

p4_test2 = TestCase (assertEqual “(groupIntoLists-test2)”

[“a”,”bc”,”def”,”ghij”,”klmno”,”pqrstu”,”wxyz012″]

(groupIntoLists “abcdefghijklmnopqrstuwxyz012”) )

p4_test3 = TestCase (assertEqual “(groupIntoLists-test3)”

[] (groupIntoLists “”) )

p5_test1 = TestCase (assertEqual “(getSlice-test1)”

“Covid-19”

(getSlice (‘(‘,’)’) “I got the (Covid-19) vaccine!” ) )

p5_test2 = TestCase (assertEqual “(getSlice-test2)”

“2021”

(getSlice (‘(‘,’)’) “I hope this year (2021) will be

better than last year (2020).” ) )

p5_test3 = TestCase (assertEqual “(getSlice-test3)”

“early”

(getSlice (‘*’,’*’) “Start the assignment *early*!” ) )

p5_test4 = TestCase (assertEqual “(getSlice-test4)”

[5,6,7,8]

(getSlice (0,9) [1,2,3,4,0,5,6,7,8,9,10,11] ) )

p5_test5 = TestCase (assertEqual “(getSlice-test5)”

[]

(getSlice (0,9) [1,2,3,4,5,6,7,8,9,10,11] ) )

p5_test6 = TestCase (assertEqual “(getSlice-test6)”

[5,6,7,8,10,11]

(getSlice (0,9) [1,2,3,4,0,5,6,7,8,10,11] ) )

tests = TestList [ TestLabel “Problem 1- test1 ” p1_test1, HW代写

TestLabel “Problem 1- test2 ” p1_test2,

TestLabel “Problem 1- test3 ” p1_test3,

TestLabel “Problem 1- test4 ” p1_test4,

TestLabel “Problem 2a- test1 ” p2a_test1,

TestLabel “Problem 2a- test2 ” p2a_test2,

TestLabel “Problem 2a- test3 ” p2a_test3, TestLabel “Problem 2a- test4 ” p2a_test4,

TestLabel “Problem 2b- test1 ” p2b_test1,

TestLabel “Problem 2b- test2 ” p2b_test2,

TestLabel “Problem 2b- test3 ” p2b_test3,

TestLabel “Problem 2c- test1 ” p2c_test1,

TestLabel “Problem 2c- test2 ” p2c_test2,

TestLabel “Problem 2c- test3 ” p2c_test3,

TestLabel “Problem 3- test1 ” p3_test1,

TestLabel “Problem 3- test2 ” p3_test2,

TestLabel “Problem 3- test3 ” p3_test3,

TestLabel “Problem 4- test1 ” p4_test1,

TestLabel “Problem 4- test2 ” p4_test2,

TestLabel “Problem 4- test3 ” p4_test3,

TestLabel “Problem 5- test1 ” p5_test1,

TestLabel “Problem 5- test2 ” p5_test2,

TestLabel “Problem 5- test3 ” p5_test3,

TestLabel “Problem 5- test4 ” p5_test4,

TestLabel “Problem 5- test5 ” p5_test5,

TestLabel “Problem 5- test6 ” p5_test6

]

— shortcut to run the tests

run = runTestTT tests

 
QQ在线咨询
售前咨询热线
QQ:3554475127
售后咨询热线
QQ:3042439236