sugar union does not guarantee order retention

romainfrancois · romainfrancois · commit 37d306b8e53b · 2013-11-14T09:13:24.000+01:00
diff --git a/inst/unitTests/runit.sugar.R b/inst/unitTests/runit.sugar.R
@@ -718,7 +718,10 @@ test.setdiff <- function(){
 }
 
 test.union <- function(){
-    checkEquals( runit_union( 1:10, 1:5 ), union( 1:10, 1:5 ) )
+    checkEquals( 
+      sort(runit_union( 1:10, 1:5 )), 
+      sort(union( 1:10, 1:5 )) 
+    )
 }
 
 test.intersect <- function(){

Original file line number	Diff line number	Diff line change
`@@ -718,7 +718,10 @@ test.setdiff <- function(){`
`718`	`718`	`}`
`719`	`719`
`720`	`720`	`test.union <- function(){`
`721`		`- checkEquals( runit_union( 1:10, 1:5 ), union( 1:10, 1:5 ) )`
	`721`	`+ checkEquals(`
	`722`	`+ sort(runit_union( 1:10, 1:5 )),`
	`723`	`+ sort(union( 1:10, 1:5 ))`
	`724`	`+ )`
`722`	`725`	`}`
`723`	`726`
`724`	`727`	`test.intersect <- function(){`