Correct the test case in test_format_fwf , ref #289

[chainsawriot]

The test case with widths=list(3,3,3,3,1) is not correct because the original read.fwf asks for " list of integer vectors giving widths for multiline records", not a list of integer numbers.

Please ensure the following before submitting a PR:

• [ ] if suggesting code changes or improvements, open an issue first
• [X for all but trivial changes (e.g., typo fixes), add your name to DESCRIPTION
• [ ] for all but trivial changes (e.g., typo fixes), documentation your change in NEWS.md with a parenthetical reference to the issue number being addressed
• [ ] if changing documentation, edit files in /R not /man and run devtools::document() to update documentation
• [ ] add code or new test files to /tests for any new functionality or bug fix
• [ ] make sure R CMD check runs without error before submitting the PR