Remove test_threads()

Can't currently test `r_task()` because it requires a functioning `R_MAIN`

Author: lionel-

crates/harp/src/exec.rs

@@ -457,17 +457,11 @@ where
 
 #[cfg(test)]
 mod tests {
-
     use std::ffi::CString;
-    use std::io::Write;
-
-    use stdext::spawn;
 
     use super::*;
     use crate::assert_match;
-    use crate::r_lock;
     use crate::r_test;
-    use crate::r_test_unlocked;
     use crate::utils::r_envir_remove;
     use crate::utils::r_is_null;
 
@@ -528,44 +522,6 @@ mod tests {
         }
     }
 
-    #[test]
-    fn test_threads() {
-        // TODO: Switch to `r_task()`
-        r_test_unlocked! {
-
-            // Spawn a bunch of threads that try to interact with R.
-            const N : i32 = 1000;
-            let mut handles : Vec<_> = Vec::new();
-            for i in 1..20 {
-                let handle = spawn!(format!("test_exec_test_threads_{}", i), move || {
-                    let id = std::thread::current().id();
-                    for _j in 1..20 {
-                        r_lock! {
-                            println!("Thread {:?} acquiring R lock.", id);
-                            std::io::stdout().flush().unwrap();
-                            let mut protect = RProtect::new();
-                            let code = protect.add(Rf_lang2(r_symbol!("rnorm"), Rf_ScalarInteger(N)));
-                            println!("Thread {:?} about to evaluate R code.", id);
-                            std::io::stdout().flush().unwrap();
-                            let result = protect.add(Rf_eval(code, R_GlobalEnv));
-                            println!("Thread {:?} finished evaluating R code.", id);
-                            std::io::stdout().flush().unwrap();
-                            assert!(Rf_length(result) == N);
-                            println!("Thread {:?} releasing R lock.", std::thread::current().id());
-                            std::io::stdout().flush().unwrap();
-                        };
-                    }
-                });
-                handles.push(handle);
-            }
-
-            for handle in handles {
-                handle.join().unwrap();
-            }
-
-        }
-    }
-
     #[test]
     fn test_try_catch_error() {
         r_test! {