From dddd9379f3c09506addea1851fd1400257bcdb01 Mon Sep 17 00:00:00 2001 From: Jordan S Read Date: Sun, 13 Dec 2015 10:30:31 -0600 Subject: [PATCH 1/2] adding par scoping test for mtext --- tests/testthat/test-mtext.R | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-mtext.R b/tests/testthat/test-mtext.R index 79c73d6..dcacdb9 100644 --- a/tests/testthat/test-mtext.R +++ b/tests/testthat/test-mtext.R @@ -11,7 +11,15 @@ test_that("mtext on correct side", { expect_false(gs[[i]][['window']][['axes']]) }) - +test_that("mtext las defined for both mtext calls", { + gs <- gsplot() %>% + points(1,2) %>% + mtext(text=c(1,2,3,4), at=c(0.7,0.9,1.1,1.3), cex=0.5, las=2, side=1, line=1) %>% + mtext(text=c("yr1", "yr2"), at=c(0.8, 1.2), las=1, side=1, line=3) + + expect_true(names(gs[['view']][[2]]) %in% "las") + expect_true(names(gs[['view']][[3]]) %in% "las") +}) test_that("multiple mtext are on correct sides", { gs <- gsplot() %>% From 5efcffef4c9181cba813dbd5a29ddd0e8f022eec Mon Sep 17 00:00:00 2001 From: Jordan S Read Date: Sun, 13 Dec 2015 10:32:04 -0600 Subject: [PATCH 2/2] new view naming --- tests/testthat/test-mtext.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-mtext.R b/tests/testthat/test-mtext.R index dcacdb9..9c0a6d3 100644 --- a/tests/testthat/test-mtext.R +++ b/tests/testthat/test-mtext.R @@ -17,8 +17,8 @@ test_that("mtext las defined for both mtext calls", { mtext(text=c(1,2,3,4), at=c(0.7,0.9,1.1,1.3), cex=0.5, las=2, side=1, line=1) %>% mtext(text=c("yr1", "yr2"), at=c(0.8, 1.2), las=1, side=1, line=3) - expect_true(names(gs[['view']][[2]]) %in% "las") - expect_true(names(gs[['view']][[3]]) %in% "las") + expect_true(names(gs[['view.1.2']][[2]]) %in% "las") + expect_true(names(gs[['view.1.2']][[3]]) %in% "las") }) test_that("multiple mtext are on correct sides", {