Verified Commit 8e7766e8 authored by hrbrmstr's avatar hrbrmstr 馃泴
Browse files

temp removal of 'best' from spd_test() due to weird pingr behaviour on ubuntu

parent c452fe17
......@@ -22,19 +22,20 @@ spd_test <- function() {
cat(cyan("Determining best server...\n"))
servers <- spd_closest_servers(servers, config)
best <- spd_best_servers(servers, config, max=3)
best <- servers
# best <- spd_best_servers(servers, config, max=3)
cat(green("Initiating test from ") %+% white(config$client$isp) %+% green(" (") %+%
white(config$client$ip) %+% green(") to ") %+% white(best$sponsor[1]) %+%
green(" (") %+% white(best$name[1]) %+% green(")\n\n"))
cat(white$bold("Analyzing download speed"))
down <- spd_download_test(best, config, FALSE, .progress="dots")
down <- spd_download_test(best, config, FALSE, timeout=5, .progress="dots")
cat(green("Download: ") %+% white$bold(as.integer(max(down$bw))) %+% white$bold(" Mbit/s\n"))
cat(white$bold("\nAnalyzing upload speed"))
up <- spd_upload_test(best, config, FALSE, .progress="dots")
up <- spd_upload_test(best, config, FALSE, timeout=10, .progress="dots")
cat(green("Upload: ") %+% white$bold(as.integer(max(up$bw))) %+% white$bold(" Mbit/s\n"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment