git.iko.soy/elk
on master help sign in
Check in old benchmark files so we can race 0.15 and 0.16
2654c5eEvan Czaplicki
bench/src/Realistic/Check15.elmnew file+65
compare with master
unifiedsplit
@@ -0,0 +1,65 @@
1+module Realistic.Check15 (benchmark) where
2+{-| Source: http://elm-lang.org/examples/checkboxes
3+-}
4+
5+import Benchmark
6+import String
7+
8+
9+benchmark : Benchmark.Benchmark
10+benchmark =
11+ Benchmark.suite "check box business logic"
12+ [ run "toggle boxes" toggleActions
13+ ]
14+
15+
16+run : String -> List Action -> Benchmark.Benchmark
17+run description actions =
18+ Benchmark.test
19+ (description ++ " - " ++ toString (List.length actions) ++ " actions")
20+ (\_ -> List.foldl update initialModel actions)
21+
22+
23+toggleActions =
24+ [ Red True
25+ , Underline True
26+ , Bold True
27+ , Bold False
28+ , Red False
29+ , Bold True
30+ , Bold False
31+ ]
32+
33+
34+-- MODEL
35+
36+type alias Model =
37+ { red : Bool
38+ , underline : Bool
39+ , bold : Bool
40+ }
41+
42+
43+initialModel =
44+ Model False False True
45+
46+
47+-- UPDATE
48+
49+type Action
50+ = Red Bool
51+ | Underline Bool
52+ | Bold Bool
53+
54+
55+update action model =
56+ case action of
57+ Red bool ->
58+ { model | red <- bool }
59+
60+ Underline bool ->
61+ { model | underline <- bool }
62+
63+ Bold bool ->
64+ { model | bold <- bool }
65+
bench/src/Realistic/Todo15.elmnew file+167
@@ -0,0 +1,167 @@
1+module Realistic.Todo15 (benchmark) where
2+
3+import Benchmark
4+import String
5+
6+
7+benchmark : Benchmark.Benchmark
8+benchmark =
9+ Benchmark.suite "todomvc business logic"
10+ [ run "type in 5 todos, each 15 characters long" typingActions
11+ , run "do everything" batchActions
12+ ]
13+
14+
15+run : String -> List Action -> Benchmark.Benchmark
16+run description actions =
17+ Benchmark.test
18+ (description ++ " - " ++ toString (List.length actions) ++ " actions")
19+ (\_ -> List.foldl update emptyModel actions)
20+
21+
22+typingActions =
23+ let
24+ enter i =
25+ List.map (\n -> UpdateField (String.repeat n "X")) [1..15]
26+ ++ [ Add ]
27+ in
28+ List.concatMap enter [1..5]
29+
30+
31+batchActions =
32+ let
33+ addTask i =
34+ [ UpdateField ("My task " ++ toString i)
35+ , Add
36+ ]
37+
38+ editTask i =
39+ [ EditingTask i True
40+ , UpdateTask i "New Task text"
41+ , EditingTask i False
42+ ]
43+
44+ check i =
45+ Check i True
46+
47+ uncheck i =
48+ Check i False
49+
50+ isEven i =
51+ i % 2 == 0
52+ in
53+ List.concat
54+ [ List.concatMap addTask [1..50]
55+ , [CheckAll True, CheckAll False]
56+ , List.concatMap editTask (List.filter isEven [1 .. 50])
57+ , List.map check [5, 7, 9, 13, 17, 23, 37]
58+ , List.map uncheck [7, 13, 23, 37]
59+ , [DeleteComplete, Delete 7, Delete 23]
60+ , List.concatMap addTask [51..80]
61+ , List.map check (List.filter isEven [51..80])
62+ , [DeleteComplete, CheckAll True, DeleteComplete]
63+ ]
64+
65+
66+
67+-- MODEL
68+
69+
70+type alias Model =
71+ { tasks : List Task
72+ , field : String
73+ , uid : Int
74+ , visibility : String
75+ }
76+
77+
78+type alias Task =
79+ { description : String
80+ , completed : Bool
81+ , editing : Bool
82+ , id : Int
83+ }
84+
85+
86+newTask : String -> Int -> Task
87+newTask desc id =
88+ { description = desc
89+ , completed = False
90+ , editing = False
91+ , id = id
92+ }
93+
94+
95+emptyModel : Model
96+emptyModel =
97+ { tasks = []
98+ , visibility = "All"
99+ , field = ""
100+ , uid = 0
101+ }
102+
103+
104+
105+-- UPDATE
106+
107+
108+type Action
109+ = NoOp
110+ | UpdateField String
111+ | EditingTask Int Bool
112+ | UpdateTask Int String
113+ | Add
114+ | Delete Int
115+ | DeleteComplete
116+ | Check Int Bool
117+ | CheckAll Bool
118+ | ChangeVisibility String
119+
120+
121+update : Action -> Model -> Model
122+update action model =
123+ case action of
124+ NoOp -> model
125+
126+ Add ->
127+ { model |
128+ uid <- model.uid + 1,
129+ field <- "",
130+ tasks <-
131+ if String.isEmpty model.field
132+ then model.tasks
133+ else model.tasks ++ [newTask model.field model.uid]
134+ }
135+
136+ UpdateField str ->
137+ { model | field <- str }
138+
139+ EditingTask id isEditing ->
140+ let updateTask t = if t.id == id then { t | editing <- isEditing } else t
141+ in
142+ { model | tasks <- List.map updateTask model.tasks }
143+
144+ UpdateTask id task ->
145+ let updateTask t = if t.id == id then { t | description <- task } else t
146+ in
147+ { model | tasks <- List.map updateTask model.tasks }
148+
149+ Delete id ->
150+ { model | tasks <- List.filter (\t -> t.id /= id) model.tasks }
151+
152+ DeleteComplete ->
153+ { model | tasks <- List.filter (not << .completed) model.tasks }
154+
155+ Check id isCompleted ->
156+ let updateTask t = if t.id == id then { t | completed <- isCompleted } else t
157+ in
158+ { model | tasks <- List.map updateTask model.tasks }
159+
160+ CheckAll isCompleted ->
161+ let updateTask t = { t | completed <- isCompleted }
162+ in
163+ { model | tasks <- List.map updateTask model.tasks }
164+
165+ ChangeVisibility visibility ->
166+ { model | visibility <- visibility }
167+
bench/src/Syntax/Records15.elmnew file+109
@@ -0,0 +1,109 @@
1+module Syntax.Records15 (benchmark) where
2+
3+import Benchmark exposing (Benchmark, test, suite)
4+import String
5+
6+
7+benchmark : Benchmark.Benchmark
8+benchmark =
9+ suite "records"
10+ [ suite "update"
11+ [ test "1 of 2 fields" (update1of2 record2)
12+ , test "2 of 2 fields" (update2of2 record2)
13+ , test "2 of 2 new" (new2of2 record2)
14+ , test "3 of 5 fields" (update3of5 record5)
15+ , test "5 of 5 fields" (update5of5 record5)
16+ , test "5 of 5 new" (new5of5 record5)
17+ ]
18+ , suite "access"
19+ [ test "2 of 2" (access2of2 record2)
20+ , test "4 of 10" (access4of10 record10)
21+ ]
22+ ]
23+
24+
25+-- RECORDS WITH 2 FIELDS
26+
27+record2 =
28+ { x = 3
29+ , y = 4
30+ }
31+
32+
33+update1of2 r _ =
34+ { r | x <- r.x + 42 }
35+
36+
37+update2of2 r _ =
38+ { r
39+ | x <- r.x + 1
40+ , y <- r.y + 1
41+ }
42+
43+
44+new2of2 r _ =
45+ { x = r.x + 1
46+ , y = r.y + 1
47+ }
48+
49+
50+access2of2 r _ =
51+ r.x + r.y
52+
53+
54+-- RECORDS WITH 5 FIELDS
55+
56+record5 =
57+ { product = "iPhone 6s"
58+ , storage = 16
59+ , weight = 143
60+ , ppi = 326
61+ , chip = "A9"
62+ }
63+
64+
65+update3of5 r _ =
66+ { r
67+ | product <- "iPhone 6s Plus"
68+ , weight <- 192
69+ , ppi <- 401
70+ }
71+
72+
73+update5of5 r _ =
74+ { r
75+ | product <- "iPhone 6"
76+ , storage <- r.storage
77+ , weight <- 129
78+ , ppi <- r.ppi
79+ , chip <- "A8"
80+ }
81+
82+
83+new5of5 r _ =
84+ { product = "iPhone 6"
85+ , storage = r.storage
86+ , weight = 129
87+ , ppi = r.ppi
88+ , chip = "A8"
89+ }
90+
91+
92+-- RECORDS WITH 10 FIELDS
93+
94+record10 =
95+ { a = 1
96+ , b = 2
97+ , c = 3
98+ , d = 4
99+ , e = True
100+ , f = 'a'
101+ , g = "abc"
102+ , h = record2
103+ , i = record5
104+ , j = [1,2,3]
105+ }
106+
107+
108+access4of10 r _ =
109+ r.a + r.b + r.c + r.d