setdiff is not guaranteed to retain order

romainfrancois · romainfrancois · commit 68beb7ed5780 · 2013-11-14T08:33:30.000+01:00
diff --git a/inst/unitTests/runit.sugar.R b/inst/unitTests/runit.sugar.R
@@ -711,7 +711,10 @@ test.duplicated <- function(){
 }
 
 test.setdiff <- function(){
-    checkEquals( runit_setdiff( 1:10, 1:5 ), setdiff( 1:10, 1:5 ) )
+    checkEquals( 
+      sort(runit_setdiff( 1:10, 1:5 )), 
+      sort(setdiff( 1:10, 1:5))
+    )
 }
 
 test.union <- function(){

Original file line number	Diff line number	Diff line change
`@@ -711,7 +711,10 @@ test.duplicated <- function(){`
`711`	`711`	`}`
`712`	`712`
`713`	`713`	`test.setdiff <- function(){`
`714`		`- checkEquals( runit_setdiff( 1:10, 1:5 ), setdiff( 1:10, 1:5 ) )`
	`714`	`+ checkEquals(`
	`715`	`+ sort(runit_setdiff( 1:10, 1:5 )),`
	`716`	`+ sort(setdiff( 1:10, 1:5))`
	`717`	`+ )`
`715`	`718`	`}`
`716`	`719`
`717`	`720`	`test.union <- function(){`