Add stress test example

jeroen · Jun 21, 2018 · 81184ad · 81184ad
1 parent 908c9c4
commit 81184ad
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -18,3 +18,4 @@
 ^httpbin.md$
 ^examples$
 ^release.R$
+bugs
diff --git a/bugs/multi-stress.R b/bugs/multi-stress.R
@@ -0,0 +1,19 @@
+# Random segfaults for curl 0.60 + openssl + nghttp2
+
+library(curl)
+pool <- new_pool()
+tlds <- Filter(function(x){nchar(x) < 3}, urltools::tld_dataset)
+
+
+while(TRUE){
+  server <- paste0('https://www.google.', sample(tlds, 1))
+  cat("Adding: ", server, "\n")
+  for(i in 1:100){
+    curl::curl_fetch_multi(server, pool = pool)
+  }
+  cat("Running...\n")
+  print(multi_run(pool = pool))
+  cat("GC: ")
+  gc()
+  cat("OK!\n")
+}