UPDATE: stri_sub<- tests