class MapT is subclass of TestDriverfunctions public tests : () -> seq of TestCasenew MapT01(), new MapT02() end MapT---------------------------------------------------- class MapT01 is subclass of TestCase, CommonDefinitionoperations protected test: () ==> bool let m1 = {1 |-> "Kei Sato" , 19 |-> "Shin Sahara" , 20 |-> "Hiroshi Sakoh" },"Kei Sato" |-> 1, "Shin Sahara" |-> 19, "Hiroshi Sakoh" |-> 20},Map `Get[int , seq of char ],Map `Get[seq of char , int ]in return "Shin Sahara" and nil and "Shin Sahara" ) = 19 and "Worst Prime Minister Koizumi" ) = nil protected setUp: () ==> ()"MapT01:\tTest of Get function." ;protected tearDown: () ==> ()return ;end MapT01---------------------------------------------------- class MapT02 is subclass of TestCase, CommonDefinitionoperations protected test: () ==> bool let m1 = {1 |-> "Kei Sato" , 19 |-> "Shin Sahara" , 20 |-> "Hiroshi Sakoh" },"Kei Sato" |-> 1, "Shin Sahara" |-> 19, "Hiroshi Sakoh" |-> 20},Map `Contains[int , seq of char ],Map `ContainsKey[int , seq of char ],Map `Contains[seq of char , int ],Map `ContainsKey[seq of char , int ]in return "Kei Sato" ) and c1(m1)("Shin Sahara" ) and c1(m1)("Hiroshi Sakoh" ) and "Worst Prime Minister Koizumi" ) = false and and k1(m1)(19) and k1(m1)(20) and not k1(m1)(99) and and c2(m2)(19) and c2(m2)(20) and false and "Kei Sato" ) and k2(m2)("Shin Sahara" ) and k2(m2)("Hiroshi Sakoh" ) and "Worst Prime Minister Koizumi" ) = false protected setUp: () ==> ()"MapT02:\tTest of Contains related functions." ;protected tearDown: () ==> ()return ;end MapT02quality 100%
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
