a test of possibly valid factor filling

Author: MichaelChirico

inst/tests/nafill.Rraw

@@ -346,6 +346,7 @@ test(13.06, nafill(x, fill=factor("a")), x_fill_a)
 test(13.07, nafill(x, fill=factor("a", levels=levels(x))), x_fill_a)
 test(13.08, nafill(x, fill=factor("a", levels=c("a", "b"))), x_fill_a)
 test(13.09, nafill(x, fill=factor("a", levels=c("a", "d"))), x_fill_a)
+test(13.09, nafill(x, fill=factor("d", levels=c("a", "b", "c", "d"))), x_fill_a)
 test(13.10, nafill(x, fill=NA), x)
 test(13.11, nafill(x, fill=NA_integer_), x)
 test(13.12, nafill(x, fill=NA_character_), x)