update for all slots and move testing to separate testing_functions R script