Fix bug in test

hadley · Jun 28, 2010 · f17af4b · f17af4b
1 parent f3237e8
commit f17af4b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/tests/test-array.r b/inst/tests/test-array.r
@@ -40,7 +40,7 @@ test_that("idempotent function equivalent to permutation",  {
   aperms <- llply(perms, function(perm) aperm(x, unique(c(perm, 1:3))))
   aaplys <- llply(perms, function(perm) aaply(x, perm, identity))
 
-  for(i in seq_along(res_aperm)) {
+  for(i in seq_along(aperms)) {
     expect_that(dim(aaplys[[i]]), equals(dim(aperms[[i]])))
     expect_that(unname(dimnames(aaplys[[i]])), equals(dimnames(aperms[[i]])))
     expect_that(aaplys[[i]], is_equivalent_to(dimnames(aperms[[i]])))