update function_args tests

Author: Lindsay Carr

tests/testthat/test-arguments.R

@@ -1,7 +1,7 @@
 context("lining up default arguments")
 test_that("setting params with other default works as expected",{
-  expect_equal(gsplot:::function_args("grDevices","points", 1:5, y = NULL, 'label', use.default='xy.coords'), 
-               list(x=1:5, y=NULL,xlab='label'))
+  expect_equal(gsplot:::function_args("grDevices","points", 5:10, y = NULL, 'label', use.default='xy.coords'), 
+               list(x=1:6, y=5:10,xlab='label'))
 })
 
 test_that("setting params with class match works as expected",{

tests/testthat/tests-points.R

@@ -15,7 +15,7 @@ test_that("graphics examples work", {
 
 context("points arguments")
 test_that("setting params works as expected",{
-  expect_equal(gsplot:::function_args("graphics","points", 5, y = NULL), list(x=5, y=NULL))
+  expect_equal(gsplot:::function_args("graphics","points", 5, y = NULL), list(x=1, y=5))
   expect_equal(gsplot:::function_args("graphics","points", y=5, x=0), list(x=0, y=5))
 })