cope with LC_COLLATE=da_DK

smeyer · smeyer · commit 9c869db3fc57 · 2024-12-09T12:51:41.000Z
git-svn-id: https://svn.r-project.org/R/trunk@87429 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/utils/man/ls_str.Rd b/src/library/utils/man/ls_str.Rd
@@ -74,7 +74,7 @@ lsf.str(pos = length(search()), pattern = "file")
 ## ["browser/debug mode"]:
 tt <- function(x, y = 1) { aa <- 7; r <- x + y; ls.str() }
 (nms <- sapply(strsplit(capture.output(tt(2))," *: *"), `[`, 1))
-stopifnot(nms == c("aa", "r","x","y"))
+stopifnot(setequal(nms, c("aa", "r","x","y")))% collation-specific
 }
 \keyword{print}
 \keyword{utilities}

Original file line number	Diff line number	Diff line change
`@@ -74,7 +74,7 @@ lsf.str(pos = length(search()), pattern = "file")`
`74`	`74`	`## ["browser/debug mode"]:`
`75`	`75`	`tt <- function(x, y = 1) { aa <- 7; r <- x + y; ls.str() }`
`76`	`76`	(nms <- sapply(strsplit(capture.output(tt(2))," : "), `[`, 1))
`77`		`-stopifnot(nms == c("aa", "r","x","y"))`
	`77`	`+stopifnot(setequal(nms, c("aa", "r","x","y")))% collation-specific`
`78`	`78`	`}`
`79`	`79`	`\keyword{print}`
`80`	`80`	`\keyword{utilities}`