updated rank test

rgrannell1 · Jun 30, 2014 · a73381b · a73381b
1 parent cb1c783
commit a73381b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/tests/test-xInterOf.R b/tests/test-xInterOf.R
@@ -4,7 +4,6 @@ test_cases <- kiwi:::test_cases
 
 require(kiwi)
 
-
 message("xInterOf")
 
 	forall(

diff --git a/tests/test-xRankOf.R b/tests/test-xRankOf.R
@@ -8,7 +8,14 @@ message("xRankOf (+)")
 
 	describe("rank of empty collection is integer(0)") +
 	holdsWhen(
-		is_collection(nums) && length(nums) == 0 && !any(is.na(nums)),
+		is_collection(nums) && length(nums) == 0 && !any(is.na(nums)) && !is_named(nums),
+		xRankOf(nums) %is% integer(0)
+	) +
+
+
+	describe("rank of empty collection is integer(0) (named)") +
+	holdsWhen(
+		is_collection(nums) && length(nums) == 0 && !any(is.na(nums)) && is_named(nums),
 		xRankOf(nums) %is% integer(0)
 	) +