Added assign_arg_list test for testing.

Author: kenmawer

tests/testthat/test-assign_arg_list.R

@@ -4,3 +4,8 @@ test_that("First argument must be a list",{
 test_that("All arguments should be named",{
   expect_error(assign_arg_list(list(1,2)))
 })
+test_that("assign_arg_list works as intended",{
+  assign_arg_list(list(a="dog",b=2))
+  expect_identical(a,"dog")
+  expect_identical(b,2)
+})