blob: b62fa0f543335b4bca4f61c01e1ce15dded14abf [file] [log] [blame]
Jeremy Ronquillo6df87812017-08-28 16:17:36 +00001# Copyright 2017 Open Networking Foundation (ONF)
2#
3# Please refer questions to either the onos test mailing list at <onos-test@onosproject.org>,
4# the System Testing Plans and Results wiki page at <https://wiki.onosproject.org/x/voMg>,
5# or the System Testing Guide page at <https://wiki.onosproject.org/x/WYQg>
6#
7# TestON is free software: you can redistribute it and/or modify
8# it under the terms of the GNU General Public License as published by
9# the Free Software Foundation, either version 2 of the License, or
10# (at your option) any later version.
11#
12# TestON is distributed in the hope that it will be useful,
13# but WITHOUT ANY WARRANTY; without even the implied warranty of
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15# GNU General Public License for more details.
16#
17# You should have received a copy of the GNU General Public License
18# along with TestON. If not, see <http://www.gnu.org/licenses/>.
19#
20# If you have any questions, or if you don't understand R,
Jeremy Ronquillob6268842017-10-03 13:02:58 -070021# please contact Jeremy Ronquillo: j_ronquillo@u.pacific.edu
Jeremy Ronquillo6df87812017-08-28 16:17:36 +000022
23# **********************************************************
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070024# STEP 1: Data management.
Jeremy Ronquillo6df87812017-08-28 16:17:36 +000025# **********************************************************
26
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070027print( "**********************************************************" )
28print( "STEP 1: Data management." )
29print( "**********************************************************" )
Devin Lim0e967162017-11-03 15:59:53 -070030database_host = 1
31database_port = 2
32database_u_id = 3
33database_pw = 4
34test_name = 5
35branch_name = 6
36save_directory = 7
Jeremy Ronquillob6268842017-10-03 13:02:58 -070037# Command line arguments are read.
Jeremy Ronquillo6df87812017-08-28 16:17:36 +000038print( "Reading commmand-line args." )
39args <- commandArgs( trailingOnly=TRUE )
40
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070041# ----------------
42# Import Libraries
43# ----------------
44
Jeremy Ronquillo6df87812017-08-28 16:17:36 +000045print( "Importing libraries." )
46library( ggplot2 )
47library( reshape2 )
48library( RPostgreSQL ) # For databases
49
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070050# -------------------
51# Check CLI Arguments
52# -------------------
53
54print( "Verifying CLI args." )
55
Devin Lim0e967162017-11-03 15:59:53 -070056if ( is.na( args[ save_directory ] ) ){
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070057
58 print( paste( "Usage: Rscript SCPFcbench",
59 "<database-host>",
60 "<database-port>",
61 "<database-user-id>",
62 "<database-password>",
63 "<test-name>",
64 "<branch-name>",
65 "<directory-to-save-graphs>",
66 sep=" " ) )
67
Jeremy Ronquillo6df87812017-08-28 16:17:36 +000068 q() # basically exit(), but in R
69}
70
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070071# -----------------
72# Create File Names
73# -----------------
Jeremy Ronquillo6df87812017-08-28 16:17:36 +000074
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070075print( "Creating filenames and title of graph." )
Jeremy Ronquillo6df87812017-08-28 16:17:36 +000076
Devin Lim0e967162017-11-03 15:59:53 -070077errBarOutputFile <- paste( args[ save_directory ],
78 args[ test_name ],
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070079 "_",
Devin Lim0e967162017-11-03 15:59:53 -070080 args[ branch_name ],
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070081 "_errGraph.jpg",
82 sep="" )
Jeremy Ronquillo6df87812017-08-28 16:17:36 +000083
84chartTitle <- paste( "Single-Node CBench Throughput", "Last 3 Builds", sep = "\n" )
85
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070086# ------------------
87# SQL Initialization
88# ------------------
89
90print( "Initializing SQL" )
91
92con <- dbConnect( dbDriver( "PostgreSQL" ),
93 dbname = "onostest",
Devin Lim0e967162017-11-03 15:59:53 -070094 host = args[ database_host ],
95 port = strtoi( args[ database_port ] ),
96 user = args[ database_u_id ],
97 password = args[ database_pw ] )
Jeremy Ronquillo7673f802017-10-30 09:42:44 -070098
99# ------------------
100# Cbench SQL Command
101# ------------------
102
103print( "Generating Scale Topology SQL Command" )
104
105command <- paste( "SELECT * FROM cbench_bm_tests WHERE branch='",
Devin Lim0e967162017-11-03 15:59:53 -0700106 args[ branch_name ],
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700107 "' ORDER BY date DESC LIMIT 3",
108 sep="" )
109
110print( "Sending SQL command:" )
111print( command )
112
113fileData <- dbGetQuery( con, command )
114
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000115# **********************************************************
116# STEP 2: Organize data.
117# **********************************************************
118
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700119print( "**********************************************************" )
120print( "STEP 2: Organize Data." )
121print( "**********************************************************" )
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000122
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700123# ------------
124# Data Sorting
125# ------------
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000126
127print( "Sorting data." )
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700128
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000129avgs <- c( fileData[ 'avg' ] )
130
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700131# --------------------
132# Construct Data Frame
133# --------------------
134
135print( "Constructing Data Frame" )
136
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000137dataFrame <- melt( avgs )
138dataFrame$std <- c( fileData$std )
139dataFrame$date <- c( fileData$date )
140dataFrame$iterative <- rev( seq( 1, nrow( fileData ), by = 1 ) )
141
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700142colnames( dataFrame ) <- c( "ms",
143 "type",
144 "std",
145 "date",
146 "iterative" )
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000147
Jeremy Ronquillo2d2649d2017-09-14 12:53:06 -0700148dataFrame <- na.omit( dataFrame ) # Omit any data that doesn't exist
149
150print( "Data Frame Results:" )
151print( dataFrame )
152
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000153# **********************************************************
154# STEP 3: Generate graphs.
155# **********************************************************
156
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700157print( "**********************************************************" )
158print( "STEP 3: Generate Graph." )
159print( "**********************************************************" )
160
161# ------------------
162# Generate Main Plot
163# ------------------
164
165print( "Creating main plot." )
166
167mainPlot <- ggplot( data = dataFrame, aes( x = iterative,
168 y = ms,
169 ymin = ms,
170 ymax = ms + std ) )
171
172# ------------------------------
173# Fundamental Variables Assigned
174# ------------------------------
175
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000176print( "Generating fundamental graph data." )
Jeremy Ronquillo2d2649d2017-09-14 12:53:06 -0700177
Jeremy Ronquillo0e27b912017-10-21 14:34:24 -0700178theme_set( theme_grey( base_size = 22 ) ) # set the default text size of the graph.
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700179barWidth <- 0.3
180xScaleConfig <- scale_x_continuous( breaks = dataFrame$iterative,
181 label = dataFrame$date )
Jeremy Ronquillo4363d092017-10-13 13:28:47 -0700182xLabel <- xlab( "Build Date" )
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000183yLabel <- ylab( "Responses / sec" )
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700184fillLabel <- labs( fill = "Type" )
185imageWidth <- 15
186imageHeight <- 10
187imageDPI <- 200
188errorBarColor <- rgb( 140,140,140, maxColorValue=255 )
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000189
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700190theme <- theme( plot.title = element_text( hjust = 0.5, size = 32, face = 'bold' ),
191 legend.position = "bottom",
192 legend.text = element_text( size = 18, face = "bold" ),
193 legend.title = element_blank() )
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000194
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700195title <- ggtitle( chartTitle )
196
197fundamentalGraphData <- mainPlot +
198 xScaleConfig +
199 xLabel +
200 yLabel +
201 fillLabel +
202 theme +
203 title
204
205# ---------------------------
206# Generating Bar Graph Format
207# ---------------------------
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000208
209print( "Generating bar graph with error bars." )
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000210
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700211barGraphFormat <- geom_bar( stat = "identity",
212 position = position_dodge(),
213 width = barWidth,
214 fill = "#00AA13" )
215
216errorBarFormat <- geom_errorbar( width = barWidth,
217 color = errorBarColor )
218
219values <- geom_text( aes( x=dataFrame$iterative,
220 y=fileData[ 'avg' ] + 0.025 * max( fileData[ 'avg' ] ),
221 label = format( fileData[ 'avg' ],
222 digits=3,
223 big.mark = ",",
224 scientific = FALSE ) ),
225 size = 7.0,
226 fontface = "bold" )
227
228result <- fundamentalGraphData +
229 barGraphFormat +
230 errorBarFormat +
231 values
232
233# -----------------------
234# Exporting Graph to File
235# -----------------------
Jeremy Ronquillo6df87812017-08-28 16:17:36 +0000236
237print( paste( "Saving bar chart with error bars to", errBarOutputFile ) )
Jeremy Ronquillo7673f802017-10-30 09:42:44 -0700238
239ggsave( errBarOutputFile,
240 width = imageWidth,
241 height = imageHeight,
242 dpi = imageDPI )
243
244print( paste( "[SUCCESS] Successfully wrote bar chart with error bars out to", errBarOutputFile ) )