reinstate intersect test with added sort()

Author: eddelbuettel

ChangeLog

@@ -4,6 +4,9 @@
         * inst/unitTests/runit.Date.R (test.Date.formating): Ditto
         (test.Datetime.formating): Ditto
 
+        * inst/unitTests/runit.sugar.R (test.intersect): Added sort() around
+        call to Sugar's intersect to ensure sorted output with g++-6.* 
+
 2016-11-27  Dirk Eddelbuettel  <[email protected]>
 
         * inst/include/Rcpp/date_datetime/Date.h (format, operator<<): Added

inst/unitTests/runit.sugar.R

@@ -708,9 +708,9 @@ if (.runThisTest) {
         checkEquals(sort(runit_union( 1:10, 1:5 )), sort(union( 1:10, 1:5 )))
     }
 
-#    test.intersect <- function(){
-#        checkEquals( runit_intersect( 1:10, 1:5 ), intersect( 1:10, 1:5 ) )
-#    }
+    test.intersect <- function(){
+        checkEquals(sort(runit_intersect(1:10, 1:5)), intersect(1:10, 1:5))
+    }
 
     test.clamp <- function(){
         r_clamp <- function(a, x, b) pmax(a, pmin(x, b) )