1## regression test for bug reported by Richard Valliant
2library(survey)
3s<-subbootweights(c(1,1),1:2, 50)
4stopifnot(all(s$repweights$weights %in% c(0,2)))
5